查看: 134  |  回复: 0
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。


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com