以下程序的功能是从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,显示结果。请填空。
Private Sub Form_Click()
Dim x,y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while【 】
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y=y/z
MsgoBox y
End Sub
订单号:
遇到问题请联系在线客服
订单号:
遇到问题请联系在线客服