题目内容:
以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出结果。请填空。
Private Sub Command1_Click()
Dim x,amax,amin As Single
x=InputBox(”Enter a score”)
amax=x
amin=X
Do While____
Ifx>amaxThen
amax=x
End If
If____Then
amin=x
EndIf
x=InputBox(”enter a score”)
Loop
Print”max=";amax,”min=”;amin
End Sub。
参考答案:
答案解析: