|
|
'http://zhidao.baidu.com/link?url=GsP_Dv75fFTYxZBhdlLL1SPCIjCq6lPqwy4Scq-DyX-htSK2YutP6G2tZWTBAsY8-wzXYcms9LEK7rJJT9QHhxl4iMs3FLVqFi52WwPN793
Private Sub Command2_Click()
Dim a() As String
Dim J1() As String
Dim i As Long
Dim n As Long
J1 = Split("ad|fg|af|ssww|wwww|w", "|")
'Print UBound(J1)
’ReDim a(2, UBound(J1))
For n = 0 To UBound(J1)
ReDim Preserve a(2, n) ' Preserve 保留动态数组原来的项，这里原来的项
' 是什么?似乎理解了，可能是For循环中产生的,之前的项需要保留
a(2, n) = J1(n)
Debug.Print a(2, n)
Next
Print UBound(a) '我实在不理解 为什么是 2,而不是5
'以下为测试数组内容
Dim Tmp As String
For i = 0 To UBound(J1)
Tmp = Tmp & a(2, i) & vbCrLf
Next
MsgBox Tmp
End Sub
|
|
置顶卡
