如何在vb中连续输入一些值使其与一个二维数组对应

'可以实现，数值之间用“|”分隔
Private Sub Command1_Click()
Dim a(0 To 1, 0 To 2), I As Long, J As Long
Dim nStr As String, Str1 As String, S As Long, S1 As Long

nStr = "1|2|3|4|5|6"
'赋值给数组
For I = 0 To 1
For J = 0 To 2
S1 = InStr(S + 1, nStr, "|")
If S1 > 0 Then Str1 = Mid(nStr, S + 1, S1 - S - 1) Else Str1 = Mid(nStr, S + 1)
a(I, J) = Val(Str1)
S = S1
Next
Next

'显示数组的值
For I = 0 To 1
For J = 0 To 2
Me.Print a(I, J)
Next
Next
End Sub

a(0,0)=1
a(0,1)=2
a(0,2)=3
a(1,0)=4
a(1,1)=5
a(1,2)=6

这样也行的!!