填空题
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_ diek()
Dim x, y As Single
Dim z As integer
x=Input Box("Enter a score")
Do while{{U}} 【8】 {{/U}}
y=y+x
Z=Z+1
x=Input Box("Enter a score")
Loop
If=0 Then
z=1
End If，
y={{U}} 【9】 {{/U}}
Print y
End Sub
1、
【正确答案】
1、[8]x＞=0
【答案解析】[9]y/z
[评析] 根据表达式的值有条件地执行一组语句。
语法 If condition Then[statements][Els elsestatements)
或者，可以使用块形式的语法：
If condition Then
[statements]
[Elselfconditioff-nThen
[elseifstatements]…
[Else
[elsestatementsU
End If
当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。
语法
Do[{While|Until}condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法：
Do
[statements]
[Exit Do]
[statements]
Loop[{While|Until}condition]
本题的循环首先判断输入是否大于0，如果是则处理这个输入，否则结束循环。循环体内的第二个判断语句判断的是当前输入是否比当前的最小值小，如果是则改写当前最小值为输入值，否则结束判断语句。