问题
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim sum1 As Integer
Dim a(1 To 20)，x
For i = 1 To 10
a(i)=i
Next i
For Each x In a
If x Mod 2 = 0 Then
sum1=sum1+x
Else
sum = sum+x
End If
Next x
Print sum；sum1
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是
A．25 30
B．10 20
C．20 30
D．1 10
答案
参考答案：A
解析：
[分析]： 程序的前部分给数组a赋初值，后部分利用For Each-Next语句对其进行循环操作，将奇数和偶数之和分别赋值给变量sum和sum1。本题的难点就是要理解For Each-Next语句。注意：For Each语句的控制变量必须为变体变量。窗体上显示的答案是1～10之内奇数与偶数之和。