Question

求vb高手关于text数组的问题

在窗体中建立10个text数组(text(0)到text(9))，随机输入i个数，每个框中一个，将text(0).text 至 text(i-1).text 放在一个数组中，并打印出来，而text(i-1).text 后的不用放。
我在运行中text(i-1)后面的总是显示0，不知怎么解决
Private Sub Command1_Click()
Dim S()
Dim i As Integer
Dim n As Integer
n = UBound(S)
ReDim S(n)
For i = 0 To n
S(i) = Val(Text1(i).Text)
Print S(i)
Next i
End Sub
假如我输入5个数，只有输入的5个数参与循环计算，怎么实现
在实际中5个数后面的也参与循环，系统默认的值是0

Answer 1

这简单啊，用一个判断句
dim i,a(9)
for i=0 to 9
if text1(i)="" then exit for
s(i)=text1(i)
print s(i)
next i
题目是说放入一个数组，但没说该数组只有i个元素。如要求只有i个元素也好办，先定义一动态数组a(),在s(i)=text1(i) 前加一句redim preserve a(i)

Answer 2

因为你的N=0。实际只有一个数组元素。当然只会是0了
dim s() 得到一个数组，只有s(0)这个元素。
那么n=ubound(s)=0
所以 for i=0 to n
实际只执行了一次。