VB：使用数组结构编写一个程序，输入10个学生的成绩，统计最高分、最低分和平均分

Question

要求：单击command4按钮，用inputbox（）函数输入10个成绩数据，并在picture1图形框中显示所输入的成绩：单击command1按钮，在text1文本框中显示最高分；单击command2按钮，在text2文本框中显示最低分；单击command3按钮，在text3文本框中显示平均分
各位高手帮帮忙吧，谢谢啦！

Answer 1

Option Explicit
Dim sdt(1 To 10) As Double

Private Sub Command1_Click()
Dim i As Integer, max As Double
max = sdt(1)
For i = 1 To 10
If sdt(i) > max Then
max = sdt(i)
End If
Next i
Text1.Text = Str(max)
End Sub

Private Sub Command2_Click()
Dim i As Integer, min As Double
min = sdt(1)
For i = 1 To 10
If sdt(i) < min Then
min = sdt(i)
End If
Next i
Text2.Text = Str(min)
End Sub

Private Sub Command3_Click()
Dim i As Integer, aver As Double
For i = 1 To 10
aver = aver + sdt(i)
Next i
aver = aver / 10
Text3.Text = Str(aver)
End Sub

Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 10
sdt(i) = InputBox("input sdt(i) grade")
Next i
For i = 1 To 10
Picture1.Print sdt(i)
Next i
End Sub本回答被提问者采纳