以下程序的功能是,从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入,请填空。
Private Sub Command1_C1iek()
Dim x As Single
Dim amax As Single,amln As Single
x=InputBox("请输入分数")
amax=x
amin=x
Do While【 】
If x>amax Then
amax=x
End If
If【 】Then
amin=x
End If
x=InputBox("请输入分数")
Loop
Print amax,amin
End Sub