vb程序,輸入十個數,找出奇偶數,分別求和

Dim a(10) As Integer

Dim b As Integer

Dim c As Integer

Private Sub Command1_Click()

b = 0

c = 0

For i = 0 To 9 Step 1

a(i) = Val(Text1(i).Text)

If a(i) Mod 2 = 0 Then

Label1(i).Caption = "偶"

b = b + a(i)

Else

Label1(i).Caption = "奇"

c = c + a(i)

End If

Next i

Text2.Text = c

Text3.Text = b

End Sub

望采納。。。。