在窗体中有一个命令按钮Command1，对应的事件代码如下：运行以上事件所完成的功能是（ ）。

A． 对输入的10个数据求累加和

B． 对输入的10个数据求各自的余数，然后再进行累加

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_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=

[单选题]在窗体中有一个命令按钮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 打开窗体运行后，单击命令按钮，输出的结果是( )

[单选题]在窗体上有一个命令按钮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，编写事件代码如下： Prirate Sub Command1_Click() Dim d1 AS Date Dim d2 As Date d1=#12/25/2009# d2=#1/5/2010# MsgBox DateDiff("ww"，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。A．1B．2C．10D．11

[单选题]在窗体上有一个命令按钮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

[单选题]在窗体中有一个标签 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

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

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