VB同胞来看看

Dim i As Integer, n As Double
Dim a As Integer, b As Integer, c As Integer

For i = 1 To 10
n = Val(InputBox("输入一个数"))
Select Case n
Case Is > 0
a = a + 1
Case Is = 0
b = b + 1
Case Is < 0
c = c + 1
End Select
Next

Print "正数个数" & a
Print "零的个数" & b
Print "负数个数" & c

10个数值？
Private Sub Command2_Click()
Dim a(1 To 10), j1, j2, j3 As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个正数")
Print a(i) & " ";
Next
Print
For i = 1 To 10
If a(i) > 0 Then j1 = j1 + 1
If a(i) = 0 Then j2 = j2 + 1
If a(i) < 0 Then j3 = j3 + 1
Next
Print j1
Print j2
Print j3
End Sub

想知道找我