VBA数组循环逻辑异常：未按预期判断条件即执行赋值

你的核心问题出在循环逻辑的执行顺序，以及可能的数组初始化或错误处理逻辑上，以下是具体分析和修正方案：

原代码的逻辑问题 #

原代码的Do Until循环本身逻辑是成立的，但写法容易造成误解，且错误处理过于激进：

• 当数组第一个元素p_ScreenObjects(0)就是Nothing时，Do Until的条件直接满足，循环不会执行，程序会直接给i=0的位置赋值。这其实是符合需求的正确行为，但可能让你误以为程序没有执行判断。
• 循环内先执行i = i + 1再做溢出检查，逻辑顺序没问题，但可读性差，不利于调试。
• 错误处理中的End语句会直接终止整个程序，而非仅退出当前过程，可能掩盖真实的执行流程。

修正后的代码 #

调整循环逻辑为更直观的显式检查，同时优化错误处理：

' Inserts a Range into the DrawRange Array
Public Sub Insert(ByVal ScreenObject As AL_ScreenObject)
    If IsInitialized = True Then
        Dim i As Integer
        
        i = 0
        Do 
            ' 先检查当前索引的元素是否为空
            If p_ScreenObjects(i) Is Nothing Then
                Exit Do ' 找到空位，退出循环
            End If
            
            i = i + 1 ' 当前元素非空，移动到下一个索引
            
            ' 检查是否超出数组上限
            If i > 1024 Then
                AL_Error_Print 1, 5, LongValue
                AL_Error_Show 1, 5, LongValue
                Exit Sub ' 用Exit Sub替代End，避免终止整个程序
            End If
        Loop
        
        Set p_ScreenObjects(i) = ScreenObject
    End If
End Sub

额外排查点 #

如果修正后仍有问题，需要确认以下两点：

• 数组初始化：确保p_ScreenObjects已正确声明为AL_ScreenObject类型的数组，例如：

  Private p_ScreenObjects(0 To 1024) As AL_ScreenObject
  

  对象数组的默认元素值就是Nothing，无需额外初始化。
• IsInitialized的有效性：确认IsInitialized属性的逻辑正确，确保返回True时数组已经完成了必要的初始化操作。

内容的提问来源于stack exchange，提问作者Almesi