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

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

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