Question

vb编程题，由键盘输入n个数，分别统计其中正数之和及个数，负数之和及个数。

跪求，急需，谢谢了，要vb的

Answer 1

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
If a(i) > 0 Then z = z + a(i)
If a(i) < 0 Then f = f + a(i)
Next
For i = 1 To 10
If a(i) > 0 Then Zcount = Zcount + 1
If a(i) < 0 Then Fcount = Fcount + 1
Next
Print "整数之和：" & z
Print "负数之和：" & f
Print "正数个数：" & Zcount
Print "负数个数：" & Fcount
End Sub

正在码字 请稍等