2. 计算机
  3. 以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x

以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。 Dim amax As Single，amin As Single x=InputBox("请输入数据") amax=x amin=x

admin2009-02-13  53
问题 以下程序的功能是，从键盘上输入若干数据，统计并输出最大值和最小值，当输入负数时结束输入，请填空。
   Dim amax As Single，amin 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 "Max="；amax；"Min="；amin
   End Sub
选项
答案x＞=0或Not x＜0, x＜amin或Not x＞=amin
解析 第1个填空是结束循环的条件。根据题目要求，在循环体内，需要反复地输入数据，只有当输入负数时才结束输入，即退出循环，也就是说，结束循环的条件就是输入的数是负数，即小于0。最大数通过循环中的第1个条件语句来统计，放在变量amax中，类似地，最小数通过循环中的第2个条件语句来统计，放在变量amin中。
转载请注明原文地址:https://kaotiyun.com/show/az1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)