声明一个变量为局部变量应该用（ ）。 A: Private Sub Command1 Click() n=5：x=1 Do X=X * I I=I + 1 Loop While I ＜ n Print x End Sub B: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub C: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub D: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＞n Print X End Sub

下面程序的功能是对统计所输入的10个数据中奇数和偶数的个数，为了实现相应功能请将如下代码补充完整。 Private Sub P9() Dim num As Integer，a As Integer，b As Integer，i As Integer For i＝1 To 10 num ＝ InputBox("请输入数据："，"输入") If ________ Then ________ Else b ＝ b ＋ 1 End If Next i MsgBox("运行结果：偶数个数＝" & Str(a) & "，奇数个数＝" & Str(b)) End Sub

设有如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n＜ 10 Then Call，GetArray(a， n) End If End Sub Private Sub GetArray(b() As Integer， n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是 A: 数组b中的偶数被保存在数组c中 B: 程序运行结束时，在窗体上显示的是c数组中元素的个数 C: GetArray过程的参数n是按值传送的 D: 如果输入的数据大于10，则窗体上不显示任何信息

已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为。 Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub

若有数组Dim a%(10)且每个元素有值，统计前一个元素大于后一个元素的次数，结果存放在变量n中。则下列语句正确的是___________。 A: Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = n + 1 End If Next MsgBox(n) B: Dim i%, n% For i = 1 To 10 If a(i) > a(i + 1) Then n = a(i) End If Next MsgBox(n) C: Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then a(i) = n + 1 End If Next MsgBox(n) D: Dim i%, n% For i = 0 To 9 If a(i) > a(i + 1) Then n = n +1 End If Next MsgBox(n)