VB 由键盘输入n个数,分别统计期中正数,负数之和以及正数和负数的个数.

VB 由键盘输入n个数,分别统计期中正数,负数之和以及正数和负数的个数.
VB 由键盘输入n个数,分别统计期中正数,负数之和以及正数和负数的个数.

VB 由键盘输入n个数,分别统计期中正数,负数之和以及正数和负数的个数.
Private Sub Command1_Click()
Dim a(1 To 10) As Single '这里假定输入10个数
Dim Fcount As Integer,Zcount As Integer
Dim i%
For i = 1 To 10
a(i) = InputBox("输入")
Next
For i = 1 To 10
s = s + a(i)
Next
Print s '正负数之和
For i = 1 To 10
If a(i) > 0 Then Zcount = Zcount + 1
If a(i) < 0 Then Fcount = Fcount + 1
Next
Print "正数有：" & Zcount
Print "负数有：" & Fcount
End Sub