# Re: 请教一个vb小问题！

Posted by Reagan Chen on February 01, 1999 at 17:28:31:

In Reply to: 请教一个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

Answer:
将以下二行对调 OK!!!
: a = a + x(y) '求出所有的值之和
: x(y) = InputBox("请输入任一数值")

Follow Ups: