作者ksut (逐臭之夫)
看板Visual_Basic
标题[VB6 ] 请教阵列问题
时间Thu Oct 9 10:55:10 2008
i = 0
n = Val(InputBox("请连续输入n个数值"))
While n <> -1
ReDim x(i)
x(i) = n
i = i + 1
n = Val(InputBox("请连续输入n个数值"))
Wend
For a = x(1) To x(i)
If x(a) > Max Then Max = x(a)
Next
Print "最大值=" & Max
End Sub
小弟事VB新手，此程式原本结果应该是，连续输入数值
直到输入-1时结束输入。并列印输出最大的输入值。
不过我执行以後 都是阵列索引超出范围。
特来请教 各位高手
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.127.61.11
1F：推 ClubT:你做ReDim的时候阵列的值就会被清空了 10/09 11:18
2F：→ ClubT:所以你只能记住做後的-1 10/09 11:19
3F：推 Y78:改成 ReDim Preserve x(i) 10/10 15:54