问题
填空题
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()
Dim x，y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while 【8】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y= 【9】
Print y
End Sub
答案
参考答案：[8]x＞=0
[9]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