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

17 查阅

[填空题] 以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。

Private Sub Form_click()

Dim x，y As Single

Dim z As Integer

x=Input Box("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] [EIseIf condition-n Then [elseifstatements]… [Else [clsestatEments] End If 当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。语法 Do[{While[Until}condition] [statements] [Exit Do] [statements] Loop 或者可以使用下面这种语法： Do [statements] [Exit Do] [statements] Loop[{While|Until

计算机考试