Dim a AsInteger，当a=123：b=Str（a），则（）

A:a和b均是字符型变量 B:a是字符型变量，b是数值型变量 C:a是数值型变量，b是字符型变量 D:a和b均是数值型变量

在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter（　）
Dim hum As Integer
Dim a As Integer
Dim b As Integer
Dim i As Intege
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个数据分别统计有几个是奇数，有几个是偶数

变量定义语句Dim Index&与下面的______等价。 ( )

A:Dim Index As Long B:Dim Index As Integer C:Dim Index As Single D:Dim Index As Double

在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter（　）
Dim hum As Integer
Dim a As Integer
Dim b As Integer
Dim i As Intege
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个数据分别统计有几个是奇数，有几个是偶数

有如下程序： 　　Private Sub Commandl_Click（　） 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t/y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A:Dim pict[3,4]As Integer B:Dim pict(3，4)As Integer C:Dim pict[3．4]As Integer D:Dim pict(3：4)As Integer．

有如下程序： 　　Private Sub Commandl_Click（　） 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t/y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A:Dim pict[3,4]As Integer B:Dim pict(3，4)As Integer C:Dim pict[3．4]As Integer D:Dim pict(3：4)As Integer．

有如下程序： 　　Private Sub Commandl_Click（　） 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t/y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A:Dim pict[3,4]As Integer B:Dim pict(3，4)As Integer C:Dim pict[3．4]As Integer D:Dim pict(3：4)As Integer．