在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_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(
题目
在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_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个数据分别统计有几个是奇数，有几个是偶数
相似考题
更多“在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub run35_Enter()Dim num As Intege ”相关问题
-
第1题：
在窗体中有一个标签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
正确答案：B
-
第2题：
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。
A.4
B.5
C.1O
D.40
正确答案：C
暂无解析，请参考用户分享笔记 -
第3题：
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：
Private Sub run13_Click()
If Me!num1>=60 Then
result="及格"
Elself Me!num1>=70 Then
result="通过"
ElselfMe!numl>=85 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。
正确答案：及格
及格 -
第4题：
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 >= 60 Then result = "及格" ElseIf Me!num1 >= 70 Then result = "通过" ElseIf Me!num1 >= 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
正确答案：
及格
-
第5题：
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database Dim a As String*10 Pfivae Sub Commandl_Click() a＝“1234” b＝Len(A) Me.Lbl.Caption＝b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。
A．4
B．5
C．10
D．40
正确答案：C
解析： 本题考查VBA中定长字符串的知识。当声明一个变量为String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明a的长度为10，故Len(A) ＝10。