填空题以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。
Dim amax As Single，amin As Single
x=InputBox("请输入数据")
amax=x
amin=x
Do While 【8】
If x＞amax Then
amax=x
End If
If 【9】 Then
amin=x
End If
x=InputBox("请输入数据")
Loop
Print "Max="；amax；"Min="；amin
End Sub

1、

【正确答案】 1、{{*HTML*}}[8]x＞=0或Not x＜0
[9]x＜amin或Not x＞=amin

【答案解析】[分析] 第1个填空是结束循环的条件。根据题目要求，在循环体内，需要反复地输入数据，只有当输入负数时才结束输入，即退出循环，也就是说，结束循环的条件就是输入的数是负数，即小于0。最大数通过循环中的第1个条件语句来统计，放在变量amax中，类似地，最小数通过循环中的第2个条件语句来统计，放在变量amin中。