以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输 入负数时结束输入,输出结果。请补充完整下列程序段。   Dim x,amax,amin As Single   x=InputBox("Enter a score")   am

admin2009-01-15  49

问题 以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输 入负数时结束输入,输出结果。请补充完整下列程序段。
  Dim x,amax,amin As Single
  x=InputBox("Enter a score")
  amax=x
  amin=x
  Do While【  】
   If x>amax Then
    amax=x
   End If
   If【  】Then
    amin=x
   End If
   x=InputBox("enter a score")
  Loop
  Print"max=";amax,"min=";amin

选项

答案x>=0 , x

解析 本程序先定义了3个变量,x、amin、amax,它们分别用来接受从键盘输入的字符,最小值和最大值,先用InputBox函数从键盘接受 一个整数并赋给x。然后将x的值赋给amin和amax,作为它们的初值,因为当输入的值为负数时结束循环,所以Do While的控制语句就是判断x的 值是否大于等于“o”;当x大于等于“0”时,执行块形式条件语句,当x大于amax,将x的值赋给amax,显然当x的值小于amin时,就将x的值赋 给amin;每循环一次,就要给x赋值一次,然后接着循环直到x的值是负数时就跳出循环,输出amax和amin的值。
转载请注明原文地址:https://kaotiyun.com/show/GM2p777K
0

最新回复(0)