2. 计算机
  3. 以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x，y As Single Dim z As Integ

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x，y As Single Dim z As Integ

admin2010-09-11  57
问题 以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
   Private Sub Form_click()
       Dim x，y As Single
       Dim z As Integer
       x=InputBox("Enter a score")
       Do while【   】
           y=y+x
           z=z+1
           x=InputBox("Enter a score")
       Loop
       If z=0 Then
           z=1
       End If
       y=【   】
       Print y
   End Sub
选项
答案x＞=0,y/z
解析 根据表达式的值有条件地执行一组语句。
语法
If condition Then [statements] [Else elsestatements]
或者，可以使用块形式的语法：
If condition Then
[statements]
[ElseIf condition -n Then
[elseifstatements]...
[Else
[elsestatements]]
End If
当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。
语法
Do [{While｜Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法：
Do
[statements]
[Exit Do]
[statements]
Loop [{While｜Until} condition]
本题的循环首先判断输入是否大于0，如果是则处理这个输入，否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小，如果是则改写当前最小值为输入值，否则结束判断语句。
转载请注明原文地址:https://kaotiyun.com/show/XTmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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