[单项选择题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1

[单项选择题] 在窗体上画一个名称为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之内奇数与偶数之和。