Private Sub Form Load Dim d()As Integer Dim iAs Integer, totalS Single, average As Single Show For i=l To 5 输入成绩 d()=Val( InputBox("请输入第"&Str(i)& "个学生的成绩",’"输入成绩")) Next i total= o Fori= 1 To 5 计算总分和平均分 total= total+ d(i) Next i average= total /5 Print"总分:"& total Print"平均分:"& Format( average,"##,0") End SubPrivate Sub Form_Load() Dim d(5) As Integer Dim i As Integer, total As Single, average As Single Show For i = 1 To 5 '输入成绩 d(i) = Val(InputBox("请输入第" & Str(i) & _ "个学生的成绩", "输入成绩")) Next i total = 0 For i = 1 To 5 '计算总分和平均分 total = total + d(i) Next i average = total / 5 Print "总分：" & total Print "平均分：" & Format(average, "##.0") End Sub