Private Sub Form_Load()
Dim a
Dim i As Long
ReDim a(0, 14)
For i = 1 To 14
a(0, i) = i
Next i
ReDim Preserve a(1, 14)
For i = 1 To 14
a(1, i) = i
Next i
End Sub
...全文
9611打赏收藏
下面这几行代码报错,为什么,有替代办法吗?
Private Sub Form_Load() Dim a Dim i As Long ReDim a(0, 14) For i = 1 To 14 a(0, i) = i Next i ReDim Preserve a(1, 14) For i = 1 To 14 a(1, i) = i Next i End Sub
Private Sub Form_Load()
Dim a()
Dim i As Long
ReDim a(14, 0)
For i = 0 To 14
a(i, 0) = i
Next i
ReDim Preserve a(14, 1)
For i = 0 To 14
a(i, 1) = i
Next i
End Sub
Private Sub Form_Load()
Dim a() As Long
Dim i As Long
ReDim a(0 To 0,1 To 14)
For i = 1 To 14
a(0, i) = i
Next i
ReDim Preserve a(1 To 1,1 To 14)
For i = 1 To 14
a(1, i) = i
Next i
End Sub
Private Sub Form_Load()
Dim a()
Dim i As Long
ReDim a(0, 14)
For i = 1 To 14
a(0, i) = i
Next i
ReDim Preserve a(1, 14)
For i = 1 To 14
a(1, i) = i
Next i
End Sub