回答編集履歴
1
初期化について
answer
CHANGED
|
@@ -1,15 +1,25 @@
|
|
|
1
1
|
Dim arr() でなく、Dim arr と宣言してはどうでしょう？
|
|
2
|
+
初期化は Erase ではなく、Empty を代入します。
|
|
3
|
+
|
|
2
4
|
```vb/vbscript
|
|
5
|
+
Option Explicit
|
|
6
|
+
|
|
3
7
|
Dim arr
|
|
4
8
|
|
|
5
9
|
CheckArr(0)
|
|
6
10
|
CheckArr(1)
|
|
7
11
|
|
|
12
|
+
arr = Empty
|
|
13
|
+
|
|
14
|
+
CheckArr(0)
|
|
15
|
+
CheckArr(1)
|
|
16
|
+
|
|
8
17
|
Sub CheckArr(flg)
|
|
9
18
|
If flg = 1 Then
|
|
10
19
|
ReDim arr(2)
|
|
11
20
|
arr(0)="aaa"
|
|
12
21
|
End If
|
|
22
|
+
|
|
13
23
|
If IsEmpty(arr) Then
|
|
14
24
|
MsgBox "Empty"
|
|
15
25
|
Else
|