vb中如何将接收到的字符赋值给数组

1、Private Sub Command1_Click()

    Dim a(10) As Integer '定义数组a,下标最大值为10    For i = 0 To 10        a(i) = i'这里可以直接给数组赋值了        Print "a(" & i & ")的值" & a(i) '打印数组    NextEnd Sub

2、Private Sub Command1_Click()

    Dim a() As Integer '定义数组a，这里未设置下标    For i = 0 To 10        ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目        a(i) = i'这里可以直接给数组赋值了        Print "a(" & i & ")的值" & a(i)    NextEnd Sub

3、Private Sub Command1_Click()    a = Array(1, 5, 2, 43, 222)    MsgBox "a(0)原来的值是：" & a(0)    a(0) = 100    MsgBox "a(0)赋值后的值是：" & a(0)End Sub

4、Private Sub Command1_Click()    Dim d    d = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))    Dim i As Integer    Dim j As Integer    For i = 0 To 2        For j = 0 To 2            Print d(i)(j)        Next j    Next iEnd Sub

5、Dim d(1 To 3, 1 To 3) As LongDim i As Long, j As LongFor i = 1 To 3    For j = 1 To 3        Randomize        d(i, j) = Int(Rnd * 10)    NextNext