以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。
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