以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,显示结果。请填空。
Private Sub Form click()
Dim x,y As Single
Dim z As Integer
x=Input Box (”Enter a score")
Do while 【13】
y=y + x
2=2+1
x=Input Box (”Enter a score")
Loop
if =0 Then
2=1
End lf
y=y/z
msgbox y
End Sub
参考答案:x>=0
解析:[知识点] 模块/VBA程序设计基础
[评析] 根据表达式的值有条件地执行一组语句。
相关语法
If condition Then[statements][Else elsestatements]
或者,可以使用块形式的语法:
If condition Then
[statements]
[EIse If condition-n Then]
[elseifstatements]…
[EIse
[elsestatements]]
End If
当条件为True时,或直到条件变为True时,重复执行一个语句块中的命令。相关语法
Do “While I Until)conditionl
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法:
Do
[statementsl
[Exit Do]
[statements]
Loop[{While | Until