vb数组的赋值

Private Sub Form_Load()
Dim a(10) As Integer, n As Integer, i As Integer
n = InputBox("请输入n的值(n>=2且n<=10)")
For i = 1 To n
a(i) = InputBox("请按顺序输入数组中各元素的值")
Picture1Print "a(" & i & ")="; a(i)
Next i
End Sub
1)你代码稍作修改可以输入数组中各各元素的值
2)当然也可在窗体初始化时给数组赋值:
Private Sub Form_Load()
a(0) = 1
a(0) = 11
a(0) = 27
a(0) = 15
a(0) = 136
a(0) = 44
End Sub
3)在窗体初始化时读取文本文件(或数据库)给数组赋值:
Private Sub Form_Load()
Dim As Byte
Dim gongyi(31) as Single
Open "c:\gongyitxt" For Input As #1
For i = 0 To 31
Input #1, gongyi_sj(i)
Next i
Close
End Sub

UBound(<数组名>[,<参数名>])：功能是返回数组某维的维上界值。比如：Dim a(3,5) as Interger……t=UBound(a,2)，即表示t=数组a第二维的上界，即t=5。对于一维数组，维可以省略，例如：Dim a(3) as Interger……t=UBound(a)，即表示t=3 。你的代码中UBound(a)=5，所以是Redim b(5) 。

Dim b() As String
b() = Split(list1text, " ")
text1text = b(0)
text2text = b(1)
是这样用的
不能赋值给具体的数组元素

---