Question

定义一个对象数组,利用vb循环语句将对象数组各项的值赋予各个文本框怎么写?

Answer 1

Dim data(0 To 6) As Long 定义数组
For i = 0 To 6 为数组赋值
data(i) = i
Next

For i = 0 To 6 通过数组为text赋值
Text1(i).Text = data(i)
Next

Answer 2

可以在窗体中建立文本框数组，如下是将随机产生的5个数先赋值给A数组，然后将A数组的值再赋给文本框数组。

Dim a(4)
For i = 0 To 4
a(i) = Rnd * 100
Next

For i = 0 To 4
Text1(i).Text = a(i)
Next

Answer 3

必须要有对象数组的结构，不然怎么做？

追问

数组结构是一维数组。

追答

for i=lbound(x) to Ubound(x)
text1(i-lbound(x)).text=x(i)
next i