vb中从键盘上输入10个数,判断有几个偶数,有几个奇数?

我给你写了,挺简单的.窗体上添加两个label控件 一个command控件
Dim a(1 To 10)
Dim b
Dim c As Integer
Dim d As Integer
Private Sub Command1_Click()
For b = 1 To 10
a(b) = InputBox("输入数据","","")
If a(b) Mod 2 = 0 Then
c = c + 1
Label1.Caption = "你输入了" & c & "偶数"
ElseIf a(b) Mod 2 0 Then
d = d + 1
Label2.Caption = "你输入了" & d & "奇数"
End If
Next b
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
End Su