在窗体中有一个命令按钮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_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )

[单选题]在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i＝1 To 10 num＝InputBox(“请输入数据：”，“输入”，1)A．&:",b＝"& Str(B．) End Sub 运行以上事件所完成的功能是( )。C．对输入的10个数据求累加和D．对输入的10个

[单选题]在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_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/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&St

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。A．37 55 64 28 1

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。A

[单选题]在窗体中有一个命令按钮Command1，对应的事件代码如下：运行以上事件所完成的功能是（ ）。A． 对输入的10个数据求累加和B． 对输入的10个数据求各自的余数，然后再进行累加C． 对输入的10个数据分别统计有几个是整数，有几个是非整数D． 对输入的10个数据分别统计有几个是奇数，有几个是偶数

[单选题]在窗体上添加一个命令按钮，名为command1，事件过程为：Private Sub command1_Click( )x=0D．o Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aE．nd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )A．2B．3C．4D．5

[主观题]在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()D．im arr()As IntegerRe Dim arr(3)F．or i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xE．nd IfMe.Print(arr(4)-arr(3))E．nd Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为[ ]。

[单选题]在窗体中有一个标签 Lb1 和一个命令按钮 Command1 ，事件代码如下：Option Compare DatabaseD．im a As String*10Private Sub Command1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bE．nd Sub打开窗体后单击命令按钮，窗体中显示的内容是A． 4B． 5C． 10D． 40

[单选题]在窗体中有一个标签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．4B．5C．10D．40