VB问题:输入一组数,以9999结束,统计其中正数,负数零

Private Sub Command1_Click()
Dim above As Integerm, blow As Integer, Zero As Integer, n As Integer
n = Val(InputBox("Please Input an Integer:"))
While n <> 9999
If n > 0 Then
above = above + 1
ElseIf n < 0 Then
blow = blow + 1
Else
Zero = Zero + 1
End If
n = Val(InputBox("Please Input an Integer:"))
Wend
Msgbox "大于零：" & above &"，小于零：" & blow & "，零：" & Zero
End Sub

if a<0 then msgbox"是负数"
if a=0 then msgbox"零"
if a>0 then msgbox "是正数"

如果是数组可以用for循环来判断。