作业帮 > 综合 > 作业

用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/23 06:08:26
用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,负数的和.用Print方法将结果打印在窗体上,设计界面、运行结果如图所示.
用InputBox函数输入10个数与数组A中,输入后将这10个数显示在文本框中,并统计正数的个数,正数的和,负数的个数,
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