急急急VB中题目!!!!!!考试题目!请大师们帮忙

来源：百度知道 编辑：UC知道 时间：2024/07/06 17:35:24
用inputbox()函数输入十个数于数组A,输入后将这10个数显示在某文本框中,然后单击窗体统计正数的个数.正数的和,负数的个数,负数的和,求大师们的代码

窗体上有个text1 command1 控件:
Private Sub Command1_Click()
Dim a(11), zh, fh As Integer
Static b As Integer
Static c As Integer
For i = 0 To 10
a(i) = InputBox("输入")
Text1 = Text1 + Str(a(i)) + ","
If a(i) > 0 Then
zh = zh + Val(a(i))
b = b + 1
Else
fh = fh + Val(a(i))
c = c + 1
End If
Next i
Print "正数有:"; b; "正数和:"; zh
Print
Print "负数有:"; c; "负数和:"; fh
End Sub