大神帮忙看一下，为什么redim preserve 显示变量未定义

急哥哥姐姐们！

蟹蟹你哦，你的图片治好了我的颈椎病

声明数组a为动态数组，放在窗体模块中

还哪有问题又出错了，说是类型不匹配@klimaa

Dim a() As Integer \\\\\\窗体级变量，只需添加此处
Private Sub Form_Click()
Print "1000以内的的完数"
For i = 1 To 1000
If IsWs(i) Then
Print i; "=1";
For j = 1 To UBound(a)
Print "+"; a(j);
Next j
Print
End If
Next i
End Sub
Function IsWs(m) As Boolean
Dim s%
s = 0
For i = 1 To m \ 2
If m Mod i = 0 Then
ReDim Preserve a(j)
a(j) = i
j = j + 1
s = s + i
End If
Next i
If m = s Then IsWs = True
End Function

学到了，原来没有Option Explicit的情况下，ReDim Preserve也有可能报“变量未定义”的错误