vb题：输出任意10个数中负数的个数，偶数的个数，奇树的和

Question

如题所述

Answer 1

添加一个按钮
Private Sub Command1_Click()
Dim a(9) As Long, i As Integer, k As Integer, s As Integer, n As Integer
For i = 0 To 9
a(i) = Val(InputBox("请输入任意一个数"))
If a(i) Mod 2 = 0 Then k = k + 1
If a(i) Mod 2 <> 0 Then s = s + a(i)
If a(i) < 0 Then n = n + 1
Next i
Print "偶数的个数为：" & k
Print "负数的个数为：" & n
Print "奇数的和为：" & s
End Sub