# 请教一个vb小问题！

Posted by stotoro on February 01, 1999 at 11:27:51:

请问高手以下一题题目的解法：
*写一程式读取inputbox输入的数值，并存入阵列中，直到输入
的数值等于0为止，最后再计算阵列中所有数值的平均值。
我的解法为如下，不晓得哪里有错，敬请高手指教：
请mail至stotoro@ms15.url.com.tw

ReDim x(5)
a = 0 '将变数a用来记录输入值之和
y = 1 '将变数用来记录y使用者输入的笔数
x(y) = InputBox("请输入任一数值")
While x(y) <> 0 '若输入不等于0，则持续输入
y = y + 1 '增加一笔
If y > UBound(x) Then
ReDim Preserve x(y + 5) '将x阵列放大5笔
End If
a = a + x(y) '求出所有的值之和
x(y) = InputBox("请输入任一数值")
Wend

z = a / y
Print z

Follow Ups:

- Re: 请教一个vb小问题！ Reagan Chen 17:28:31 2/01/99 (0)
- Re: 请教一个vb小问题！ Knight 16:02:23 2/01/99 (0)