在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

设有如下程序：
Option Base 1
Dim a(3, 4) As Integer, b(4, 3) As Integer
Private Sub Command1_Click( )
’循环1
For i = 1 To 3
For j = 1 To 4
b(j, i) =a(i, j)
Next j
Next i
’循环2
x=b(1, 1)
For i = 1 To 4
For j = 1 To 3
Print b(i, j);
if x＜b(i, j) Then x=b(i, j)
Next j
Print
Next i
End Sub
程序中的数组a已被赋值。以下关于上述程序的叙述中，正确的是( )。

A:窗体模块中，不能使用Dim声明a、b数组 B:“循环1”可以正常运行 C:“循环2”中循环变量i、j的终值不对，所以不能正常运行 D:程序可以正常运行，x中保存的是数组b中所有元素中最小的数

下面程序段，运行后的结果是　Private Sub Commandl_Click( )　　Dim b%(1 To 4)，i%，t#　　For i=1 To 4　　　b(i)=i　　Next i　　t=Tof(b( ) )　　Print"t="；t，　End Sub　Function Tof(a（　） As Integer)　　Dim t#，i%　　t=1　　For i=2 To UBound(

A:

　　　　　　t=t * a(i)

有如下程序：　　Private Sub Commandl_Click（　）　　　Dim a As Integer　　　a=2　　　For i=1 To 3　　　　　Print Gad (

A:

　　　　　Next i

　　End Sub

　　Function Gad (a As Integer)

　　　b=0

　　　Static c

　　　b=b + 1

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

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

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。
Private Sub Command1_Click（　）
Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2#
For i= 1 To 4
a(i) = i
Next i
For i=3 To 6
b(i) = i
Next i
s1 = Factorial (

A:
s2 = Factorial ( B:
Print "s1="; s1; "s2="; s2
End Sub
Function Factorial(a() As Integer)
Dim t#, i%
t=1
For i = LBoun C:s1=24 s2=24 D:s1=360 s2=360

在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请选择正确的程序段是( )，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click（　） Dim Y As Single Dim i As Integer Dim Ksc As Ang Open ______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close #2 End Sub

A:"../Datatxt"For Random As #1 Len=10 Put #1，i，Ksc B:"../Datatxt"For Random As #1 Len=10 Put #1，Y，Ksc C:"../Datatxt"For Random As #1 Put #1，i，Ksc D:"../Datatxt"For Random As #1 Put #1，Y，Ksc

要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：
Option Base 1
Private Sub Command1_Click（　）
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“输入1到10的一个整数：”)
For i=x+1 to 10 ‘循环2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（　　）。

A:产生随机数时不使用Int函数 B:循环2的初始值应为i=x C:数组定义改为Dim a(11) as integer D:循环3是循环终值应改为9