以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均

题目：

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，显示结果。请填空。
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