以下程序的功能是,从键盘上输入若干学生的成绩,统计并输出最高分数和最低分数,当输入负数时结束输入,请填空。 Private Sub Command1_C1iek() Dim x As Single Dim amax A

admin2010-03-30  33

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

选项

答案 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。
转载请注明原文地址:https://jikaoti.com/ti/7Mq0FFFM
0

最新回复(0)