请问，怎样判定一个不定长数组是否经过初始化？（即是否Redim过)

[Random]

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-16
'Description:要试用本例请在窗体中填加两个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private strTest() As String
Private Sub Command1_Click()
ReDim strTest(10)
End Sub


Private Sub Command2_Click()
On Error GoTo ErrHandle

MsgBox UBound(strTest), vbInformation, "数组已被重定义"

Exit Sub
ErrHandle:
Select Case Err.Number
Case 9
MsgBox "数组未被重定义Redim", vbInformation
Case Else
End Select
End Sub


Private Sub Form_Load()
Command1.Caption = "Redim"
Command2.Caption = "Check"
End Sub

[foolishtiger]

' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-16
'Description:要试用本例请在窗体中填加两个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!

Option Explicit

Private strTest() As String
Private Sub Command1_Click()
ReDim strTest(10)
End Sub


Private Sub Command2_Click()
On Error GoTo ErrHandle

MsgBox UBound(strTest), vbInformation, "数组已被重定义"

Exit Sub
ErrHandle:
Select Case Err.Number
Case 9
MsgBox "数组未被重定义Redim", vbInformation
Case Else
End Select
End Sub


Private Sub Form_Load()
Command1.Caption = "Redim"
Command2.Caption = "Check"
End Sub

[Random]

对不起，有没有不使用错误处理的方法

[foolishtiger]

没有.