用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/23 06:08:26
用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,负数的和.用Print方法将结果打印在窗体上,设计界面、运行结果如图所示.
Private Sub form_load()
Dim i As Integer,zs As Integer
Dim zsum As Single,fsum As Single
Dim A(1 To 10) As Single
Me.AutoRedraw = True
Text1 = ""
For i = 1 To 10
A(i) = Val(InputBox("输入第" & i & " 个数"))
If A(i) >= 0 Then
zs = zs + 1:zsum = zsum + A(i)
Else
fsum = fsum + A(i)
End If
Text1 = Text1.Text & Space(5) & A(i)
Next i
Me.CurrentY = Text1.Top + Text1.Height
Print
Print "正数的个数= " & zs & " 正数的和= " & zsum
Print "负数的个数= " & 10 - zs & " 负数的和= " & fsum
End Su
Dim i As Integer,zs As Integer
Dim zsum As Single,fsum As Single
Dim A(1 To 10) As Single
Me.AutoRedraw = True
Text1 = ""
For i = 1 To 10
A(i) = Val(InputBox("输入第" & i & " 个数"))
If A(i) >= 0 Then
zs = zs + 1:zsum = zsum + A(i)
Else
fsum = fsum + A(i)
End If
Text1 = Text1.Text & Space(5) & A(i)
Next i
Me.CurrentY = Text1.Top + Text1.Height
Print "正数的个数= " & zs & " 正数的和= " & zsum
Print "负数的个数= " & 10 - zs & " 负数的和= " & fsum
End Su
用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,
输入10个整数在数组s中,统计正数的个数、负数的个数及0的个数.
输入一组非零整数(以输入零作为输入结束标志)到一维数组中,设计程序,求出这组数的平均值,并统计出正数和负数个数
输入10个整数,统计并输出其中正数、负数和零的个数.
用vfp编写,输入20个数,统计其中正数、负数和零的个数
编一个程序,输入10个整数,并放在数组中,先降序输出所有的数,再统计并输出其中正数、负数和零的个数
用 new 运算符为一个包含 20 个整数的数组分配内存,输入若干个值到数组中,分别统计其中正数和负数的个数
编一个程序,输入10个整数,统计并输出其中正数、负数和零的个数.用指针方式
输入10个整数, 统计其中的正数、负数和0的个数.
java编程:用户从键盘上输入10个数,分别统计正数、负数、零的个数、平均值、累加和.
编一个程序,输入10个整数,统计并输 出其中正数、负数和零的个数.
输入20个数至数组中,统计其中的奇数个数和偶数的个数