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