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

1、

【正确答案】 1、正确答案： x＞＝0或Not x＜0 , x＜amin或Not x＞＝amin

【答案解析】解析：本题主要是对求最值算法的考查。题中要求当输入负数时结束输入，可知控制程序的条件应是输人数x必须大于等于0。用语句表示应为x＞＝0或Not x＜0。程序中用变量amin存放最低分，又因为语句amin＝ x，则可推断出x值比初始化时的最低分要小的条件。故条件表达式应写成x＜amin或 Not x＞＝amin。