以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。 Private Sub Form_ click() Dim x,y As Single Dim z As Integer x= InputBox("

admin2010-09-11  31

问题 以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。
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://jikaoti.com/ti/gBg0FFFM
0

最新回复(0)