Question

关于VB的问题

请高手解释一下这个程序，谢谢了
Private Sub Form_click()
Dim x,y As Single
Dim z As Integer
x = InputBox("Enter a scire")
Do while x>=0
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z = 0 Then
z = 1
End If
y = y/z
print y
End Sub

高手帮忙解释一下 谢谢了
小弟还有个疑问就是下面那个大虾解释的“If z = 0 Then '当跳出循环后~如果X值为0 则 Z值为0
z = 1 ”我不是懂 我的理解是当z=0时 则

Answer 1

Private Sub Form_click()
Dim x,y As Single
Dim z As Integer
x = InputBox("Enter a scire") '输入一个数
Do while x>=0 '如果这个数大于等于0则执行循环
y=y+x
z=z+1
x=InputBox("Enter a score") '同上弹出对话框输入数字
Loop
If z = 0 Then '当跳出循环后~如果Z值为0 则1赋值给Z
z = 1
End If
y = y/z '原来的Y除以Z得到得结果赋值给Y
print y ’打印出y值
End Sub

呵呵 笔误。

Answer 2

点击下就能求输入的几个数的平均值。Do while 和LOOP这里是循环，y=y+x把输入的数据相加，z=z+1 统计有几个数，然后y = y/z 就是求均值。

Answer 3

求正数的平均值，当你最后输入一个<0的数的时候就打印出前面输入所有数的平均数，
详细介绍上面人都说了.

z=0的情况不会出现，所以下面的那个IF语句可以省略掉，效果一样的