回答編集履歴
1
初期化について
test
CHANGED
|
@@ -1,6 +1,15 @@
|
|
|
1
1
|
Dim arr() でなく、Dim arr と宣言してはどうでしょう？
|
|
2
|
+
初期化は Erase ではなく、Empty を代入します。
|
|
3
|
+
|
|
2
4
|
```vb/vbscript
|
|
5
|
+
Option Explicit
|
|
6
|
+
|
|
3
7
|
Dim arr
|
|
8
|
+
|
|
9
|
+
CheckArr(0)
|
|
10
|
+
CheckArr(1)
|
|
11
|
+
|
|
12
|
+
arr = Empty
|
|
4
13
|
|
|
5
14
|
CheckArr(0)
|
|
6
15
|
CheckArr(1)
|
|
@@ -10,6 +19,7 @@
|
|
|
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
|