[單項(xiàng)選擇題] 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是

A．25 30

B．10 20

C．20 30

D．1 10

A解析：[分析]： 程序的前部分給數(shù)組a賦初值，后部分利用For Each-Next語(yǔ)句對(duì)其進(jìn)行循環(huán)操作，將奇數(shù)和偶數(shù)之和分別賦值給變量sum和sum1。本題的難點(diǎn)就是要理解For Each-Next語(yǔ)句。注意：For Each語(yǔ)句的控制變量必須為變體變量。窗體上顯示的答案是1～10之內(nèi)奇數(shù)與偶數(shù)之和。