作业帮VB 由键盘输入n个数,分别统计期中正数,负数之和以及正数和负数的个数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/27 12:37:35
x) sRx>e)Ϟb䧭KXl mO;V?=źcA/ROvv?dҧ] "|V ="}Z[_`gCe%*&)8&;d&gkhd*$j*+h*8+g*?e{fA\gh 1-943$5=H'
]6St/RTUK
y8Wh(AS/b XA[djρ)VPr43
lBHFj/0!BB7B7ThnQDճ9RRPP
7
P,$فR Ms
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