问题
填空题
以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x Do While 【8】 If x＞amax Then amax=xEnd IfIf 【9】 Then amin=xEnd Ifx=InputBox("请输入数据") Loop Print "Max="；amax；"Min="；amin End Sub
答案
参考答案：[8]x＞=0或Not x＜0
解析：[9]x＜amin或Not x＞=amin
[分析]： 第1个填空是结束循环的条件。根据题目要求，在循环体内，需要反复地输入数据，只有当输入负数时才结束输入，即退出循环，也就是说，结束循环的条件就是输入的数是负数，即小于0。最大数通过循环中的第1个条件语句来统计，放在变量amax中，类似地，最小数通过循环中的第2个条件语句来统计，放在变量amin中。