UC知道编写平均分计算系统（急求！！）
来源：百度知道 编辑：UC知道 时间：2024/07/04 01:42:28
1、由用户输入10个成绩，输入必须为0-100之间的数字且不允许为空；
2、将成绩保存在数组中；
3用户单击“查找最大值”按钮，则将数组内成绩的最大值显示在对应文本框中
2、将成绩保存在数组中；
3用户单击“查找最大值”按钮，则将数组内成绩的最大值显示在对应文本框中
Dim x(1 To 10) As Single
Private Sub Command1_Click()
Dim xSum As Single
xSum = 0
For i = 1 To 10
xxxx: y = InputBox("Please input the score:")
If Not IsNumeric(y) Or y = "" Or y < 0 Or y > 100 Then GoTo xxxx:
x(i) = y
Print x(i)
xSum = xSum + x(i)
Next
Print "Average=" & xSum / 10
End Sub
Private Sub Command2_Click()
xMax = 0
For i = 1 To 10
For j = i To 10
If x(j) > x(i) Then
xMax = x(j)
Else
xMax = x(i)
End If
Next
Next
Print "Max=" & xMax
End Sub