高考问答上海迪士尼乐园路线:有没有编程高手能帮帮我啊!VB帮我解决一下这个问题吧
来源：百度文库 编辑：高考问答 时间：2024/04/30 22:02:33
输入10个数(用inputbox循环输入)统计出其中负、偶、奇的个数？这道题怎么做啊？
Dim i As Integer
Dim result As String
Dim count(3) As Integer
count(0) = 0
count(1) = 0
count(2) = 0
For i = 0 To 9
result = InputBox("输入第" & i + 1 & "个数:", "统计数字")
If result < 0 Then count(2) = count(2) + 1
If result >= 0 Then
If result Mod 2 = 0 Then count(0) = count(0) + 1
If result Mod 2 <> 0 Then count(1) = count(1) + 1
End If
Next
Print "偶数个数:" & count(0)
Print "奇数个数:" & count(1)
Print "负数个数:" & count(2)