在窗体中有一个命令按钮run1，对应的事件代码如下：Private Sub run1_Enter()Dim num As IntegerDim m As IntergerDim n As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Thenm＝m＋1Elsen＝n＋1End IfNext iMsgBox("运行结果：m＝" Str(m) "，n＝" Str(n))End Sub运行以上事件所完成的功能是A．对输入的10个数据统计有几个是整数，有几个是非整数B．对输入的10个数据求各自的余数，然后再进行累加C．对输入的10个数据求累加和D．对输入的10个数据统计有几个是奇数，有几个是偶数
在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter()
Dim num As Integer
Dim m As Interger
Dim n As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox("请输入数据："，"输入"，1)
If Int(num/2)＝num/2 Then
m＝m＋1
Else
n＝n＋1
End If
Next i
MsgBox("运行结果：m＝"& Str(m) & "，n＝" & Str(n))
End Sub
运行以上事件所完成的功能是
A．对输入的10个数据统计有几个是整数，有几个是非整数
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据求累加和
D．对输入的10个数据统计有几个是奇数，有几个是偶数
相关考题：
在窗体中使用一个文本框（名为 num1 ）接受输入值，有一个命令按钮 run13 ，事件代码如下：Private Sub run13_Click()If Me!num1 = 60 Thenresult = " 及格 "ElseIf Me!num1 = 70 Thenresult = " 通过 "ElseIf Me!num1 = 80 Thenresult = " 合格 "End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为 85 ，单击命令按钮，输出结果是 【 13 】
在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:Private SuB command 在已建窗体中有一命令按钮（名为Commandl），该按钮的单击事件对应的ＶBA代码为：Private SuB commandl_Click()SuBT.Form.RecordSource = “select*From 雇员”End SuB单击该按钮实现的功能是A．使用select命令查找“雇员”表中的所有记录B．使用select命令查找并显示“雇员”表中的所有记录C．将suBt窗体的数据来源设置为一个字符串D．将suBt窗体的数据来源设置为“雇员”表
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String * 10Private Sub Command1_Clicka = "1234"b = Len(a)Me.Lb1.Caption = bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是A．4B．5C．10D．40
在窗体中使用一个文本框名为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】 。
在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下。 Option Compare DatabaseDim aAs String*10Private Sub Commandl_Click（ ） a="1234"b=Len（A． Me．Lbl．Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A.4B.5C.1OD.40
在窗体中有一个命令按钮(名称为run1)，对应的事件代码如下： Private Sub rum_Click() suln=0 For i=10 To 1 Step-2 sum=Sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是( )。A．10B．30C．55D．其他结果
在窗体中有一个标签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．4B．5C．10D．40
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：Private Sub run13_Click()If Me!num1=60 Thenresult="及格"Elself Me!num1=70 Thenresult="通过"ElselfMe!numl=85 Thenresult="合格"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。