vbsで事前に要素数を宣言せずに二次元動的配列の値の初期値を定義したい

Question

前提・実現したいこと

vbsにおいてArrayは一次元配列を定義するものと理解しておりますが、最初から多次元配列を定義するにはどのように記述すれば良いのでしょうか。
以下のようにすれば良いことは承知しておりますが、可能ならば要素数は宣言せずに定義したいです。

Dim Arr(1,1)
Arr(0,0) = "A"
Arr(0,1) = "Apple"
Arr(1,0) = "B"
Arr(1,1) = "Banana"
WScript.Echo Arr(0,0)

該当のソースコード

Dim Arr
Arr = Array(Array("A","Apple"),Array("B","Banana"))
WScript.Echo Arr(0,0)

発生している問題・エラーメッセージ

行　　: 3
文字　: 1
エラー: インデックスが有効範囲にありません。
コード: 800A0009
ソース: Microsoft VBScript 実行時エラー

Answer 1

Arr = Array(Array("A","Apple"),Array("B","Banana"))

だと、2次元配列じゃなくて、「1次元配列の1次元配列」なので、

Dim Arr
Arr = Array(Array("A","Apple"),Array("B","Banana"))
WScript.Echo Arr(0)(0)

でしょうか。
2次元配列であれば、大きさを明示する必要があると思います。

Comments

[otn]

Array(Array("A","Apple",123),Array("B","Banana"))
のようなことも出来ることから、2次元配列でないことはわかると思います。

[pfqywb8w]

ご回答ありがとうございます。
なるほど、入れ子の方は行数が一致していなくても作成できる利点(?)があるのですね。とても参考になりました。

Answer 2

ReDim を試してみて下さい。

Dim Arr()
Dim n
n = 1
ReDim Arr(n,n)

Array 関数で二次元配列を表現する場合は、以下のような感じでしょうか。

Dim Arr
Arr = Array(Array("A","Apple"),Array("B","Banana"))
'WScript.Echo Arr(0,0)
WScript.Echo Arr(0)(0)

「二次元配列」と「ArrayのArray」の違いのイメージについては下記を参照下さい（Excel VBA のウォッチ式の表示結果になります。）

＜参考＞
■ 第6回　VBScriptの配列を極める
https://atmarkit.itmedia.co.jp/ait/articles/0611/03/news015_4.html

Comments

[pfqywb8w]

これは盲点でした。Arrayの入れ子と多次元配列は違うものなんですね…
私の求める機能は入れ子の方でも対応できましたので、ひとまずArr()()を使用することにします。
BAは迷いましたが、今回は二次元配列についても触れていただいたcx20さんにお贈りいたします。
また、ご回答を受けて再度調べたところ以下の記事を見つけましたので、ここで共有しておきます。
【VBA】多次元配列の落とし穴
https://qiita.com/11295/items/7364a80814bca5b734ff