Question

VB编程：输入一个数n，然后一行输入n 个数，判断并输出其中偶数个数。

Answer 1

Private Sub Command1_Click()
Dim i, n, m, a() As Integer
Dim s, c() As String
Do
n = Val(InputBox("请输入一个正整数 n", 0))
If n > 0 Then Exit Do
Loop
ch = InputBox("请输入一行整数【以 , 隔开】", "")
ReDim c(n), a(n)c = Split(ch,",")
m = 0
For i = 0 To n - 1
a(i) = Val(c(i))
If a(i) Mod 2 = 0 Then m = m + 1
Next
Print "输入数 ("& ch & ") 中有 " &m & " 个偶数"
End Sub