单选题：在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate

  • 题目分类：VB
  • 题目类型：单选题
  • 号外号外：注册会员即送体验阅读点！
题目内容：
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNam As Integer
IntNurn=InputBox(“请输入：”)
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function_MouseUp(Button As Integer Shift As Integer,X as Single,Y As Single)
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为（　　） A．0
B．5
C．15
D．无任何输出
参考答案：
答案解析：

窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入

窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于l000，否则重新输入。为了实

分类：VB  题型：单选题
查看答案

某人编写了一个能返回数组a中10个数中最大数的函数过程，代码如下：Function MaxValue(a0As Inte

某人编写了一个能返回数组a中10个数中最大数的函数过程，代码如下：Function MaxValue(a0As Integer)As IntegerDim ma

分类：VB  题型：单选题
查看答案

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As Intege

分类：VB  题型：单选题
查看答案

已知Fibonacci数列：1，1，2，3，5，8…，即F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2

已知Fibonacci数列：1，1，2，3，5，8…，即F1=1 (n=1)F2=1 (n=2)Fn=Fn-1+Fn-2 (n≧B．下列程序的功能是：用数组来求

分类：VB  题型：单选题
查看答案

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时

在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后

分类：VB  题型：单选题
查看答案