在窗体中有一个命令按钮Command1，对应的事件代码如下：Private Sub Command1_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Thena＝a+1Elseb＝b+1End IfNext iMsgBox("运行结果：a＝"& Str(A) &:",b＝"& Str(B
题目
在窗体中有一个命令按钮Command1，对应的事件代码如下：
Private Sub Command1_Enter()
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox("请输入数据："，"输入"，1)
If Int(num/2)＝num/2 Then
a＝a+1
Else
b＝b+1
End If
Next i
MsgBox("运行结果：a＝"& Str(A) &:",b＝"& Str(B) )
End Sub
运行以上事件所完成的功能是( )。
A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计有几个是整数，有几个是非整数
D．对输入的10个数据分别统计有几个是奇数，有几个是偶数
相似考题
更多“在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub Command1_Enter() Dim num As ”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。
A．13.45.8
B．1 3 5
C．147
D．无数据输出
正确答案：B
解析：DoUntil…Loop循环采用的是先判断循环条件后执行循环体的做法。而用Until关键字表示当循环条件为False时执行循环体，直到条件为True时终止循环。代码中，Rum是整型数据，循环体共被执行3次。循环体第三次被执行后，num的值为7，故循环终止。 -
第2题：
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： OPtion Compare Databse Dim a As String * 10 Private Sub COmmand1_Click() a="1234" b=Len(a) Me.Lbl.Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是
A．4
B．5
C．10
D．40
正确答案：C
-
第3题：
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Form1.Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A．1 3.4 5.8
B．1 3 5
C．1 4 7
D．无数据输出
C -
第4题：
在窗体中有一个标签kabel()，标题为“测试进行中”；有一个命令按钮Command1，事件代码如下：
Private Sub Conunandl_Click()
Label(). Caption=“标签”
End Sub
Private Sub Foml_Load()
Form.Caption：“举例”
Commandl.Caption=“移动”
End Sub
打开窗体后单击命令按钮，屏幕显示
A．
B．
C．
D．
正确答案：D
-
第5题：
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。
A．4
B．5
C．10
D．40
正确答案：C
解析：本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为l0，故 Len(a)=10。 -
第6题：
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A．1 3.4 5.8
B．1 3 5
C．1 4 7
D．无数据输出
C