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

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/19 23:46:43

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
再问：是n 啊不是10啊怎么回事
再答： n肯定是个具体的数，你把代码中10改成你想输入数字的个数，也就是n到底是多少就行了

由键盘输入N个数,分别统计其中正数之和及个数,负数之和及个数求解决“由键盘任意输入10个数据,分别统计其中的正数个数、正数之和、负数个数、负数之和”的编程问题 :从键盘输入10个整数,分别统计其中的正数,负数,零的个数. 从键盘上输入20个整数,分别统计计算并输出所有整数之和、正数之和、负数之和、正数的个数及负数的个数. 统计给定的n个数中,负数、零和正数的个数用C语言 C语言统计给定的n个数中,负数、零和正数的个数 C语言统计给定的n个数中,负数、零和正数的个数. 求编一个Java程序：从键盘输入10个数,统计其中的正数、负数和零的个数. 从键盘输入20个参数,统计其中负数个数并求所有正数的平均值. 汇编语言：一组有符号整数,编写程序分别统计正数的个数、负数的个数和0的个数任意输入100个整数,分别统计其中的正数、负数和零的个数. 输入n和相应的n个数统计其中正数负数零的个数我的程序哪里有问题?