一楼喂度娘

Dim sb() As Long
Dim sb1 As Long
Dim sb2 As Long
Dim sb3 As Long
Dim i1 As Long
Dim i2 As Long
Dim i3 As Long
Private Sub Command1_Click()
sb1 = 100
For i1 = 0 To 3
For i2 = 0 To 3
For i3 = 0 To 3
ReDim sb(i1, i2, i3) As Long
sb(i1, i2, i3) = sb1
sb1 = sb1 + 1
Next i3
Next i2
Next i1
sb1 = 0
i1 = 0
i2 = 0
i3 = 0
‘查看结果
For i1 = 0 To 3
For i2 = 0 To 3
For i3 = 0 To 3
ReDim sb(i1, i2, i3) As Long
Text1.Text = Text1.Text & " " & sb(i1, i2, i3)
Next i3
Next i2
Next i1
End Sub

掉了preserve
如最后一个redim语句：ReDim preserve sb(i1, i2, i3) As Long