VBA
1Sub test_試験コード()
2 Dim MyArry() As Integer
3 On Error Resume Next
4
5 '(初期化)
6 Erase MyArry
7
8 Err.Clear
9 If UBound(MyArry) Then
10 End If
11 If Err.Number = 9 Then Debug.Print "初期状態"
12 If Err.Number = 0 Then Debug.Print "配列済み"
13 Debug.Print Err.Number & " - " & Err.Description
14
15 '(配列作成)
16 ReDim Preserve MyArry(0)
17
18 Err.Clear
19 If UBound(MyArry) Then
20 End If
21 If Err.Number = 9 Then Debug.Print "初期状態"
22 If Err.Number = 0 Then Debug.Print "配列済み"
23 Debug.Print Err.Number & " - " & Err.Description
24End Sub