Dim num(99) As Integer
Dim max As Integer
Dim min As Integer
max = num(0)
min = num(0)
For i = 1 To 99
If num(i) > max Then max = num(i)
If num(i) < min Then min = num(i)
Next i
Print "最高分是:" & max
Print "最低分是:" & min
參考答案:???????????????????????????
你缺少了分数的输入,改回这个吧
For i = 1 To 99
Num(i) = Inputbox()
If num(i) > max Then max = num(i)
If num(i) < min Then min = num(i)
Next i