VB6 测试在For这行的UBound变化后会修改For的最大值吗？2023年12月2日 20:07
新建From1（窗体），新建Command1（按钮CommandButton），代码：
Private Sub Command1_Click()
Dim i As Integer
Dim arr() As Integer
ReDim arr(1)
For i = 0 To UBound(arr)
Debug.Print i
ReDim Preserve arr(5)
Next
End Sub运行结果：
0
1看来没变成5。
全部回复（0）