求一个VB简单程序代码

以下程序可以运行，添加5个文本框用于显示，一个按钮。

Private Sub Command1_Click()
Dim val(1 To 60) As Integer
Dim pass%, good%, i%, j%, temp%, sum%

'输入60个学生的成绩
For i = 1 To 60
val(i) = InputBox("输入第" & i & "个学生的成绩：")
'计算总成绩
sum = sum + val(i)
'计算及格(大于60分)人数和优秀(大于90分)人数
If val(i) > 59 Then pass = pass + 1
If val(i) > 89 Then good = good + 1
Next i

'对60个学生成绩按从小到大排序
For i = 1 To 60
For j = i + 1 To 60
If val(i) > val(j) Then
temp = val(i): val(i) = val(j): val(j) = temp
End If
Next j
Next i

Text1 = val(1) '最低分
Text2 = val(60) '最高分
Text3 = sum / 60 '平均分
Text4 = pass '及格人数
Text5 = good '优秀人数

End Sub

请楼主参考

Dim t As Integer
Dim max As Integer
Dim min As Integer
Dim pass As Single
Dim exce As Single
max = 0
min = 100
n = Val(InputBox("请输入学