[VBScript] Array関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
Array(arglist)

■説明
引数をもとに配列を作成します。
値は、カンマで区切って指定します。
代入する変数の型はVariantでないとエラーとなります。
引数を指定しない場合は、長さ0の配列が作成されます。

■サンプルコード(引数の数と最終要素番号の関係)

view plainprint?

1. Option Explicit  
2.   
3. '■引数が一つの場合  
4. Dim A  
5. A = Array("配列")  
6. Wscript.Echo UBound(A) '0(最後の要素は0と返す)  
7. Wscript.Echo LBound(A) '0(最初の要素は0と返す)  
8.   
9. '■引数が複数の場合  
10. Dim B  
11. B = Array(True, 100, "String", 3.5)  
12. Wscript.Echo UBound(B) '3(最後の要素は3と返す)  
13. Wscript.Echo LBound(B) '0(最初の要素は0と返す)  
14.   
15. '■引数を指定しない場合  
16. Dim C  
17. C = Array()            '長さ0の配列  
18. Wscript.Echo UBound(C) '-1(最後の要素は-1と返す)  
19. Wscript.Echo LBound(C) '0 (最初の要素は 0と返す)  

Option Explicit

'■引数が一つの場合
Dim A
A = Array("配列")
Wscript.Echo UBound(A) '0(最後の要素は0と返す)
Wscript.Echo LBound(A) '0(最初の要素は0と返す)

'■引数が複数の場合
Dim B
B = Array(True, 100, "String", 3.5)
Wscript.Echo UBound(B) '3(最後の要素は3と返す)
Wscript.Echo LBound(B) '0(最初の要素は0と返す)

'■引数を指定しない場合
Dim C
C = Array()            '長さ0の配列
Wscript.Echo UBound(C) '-1(最後の要素は-1と返す)
Wscript.Echo LBound(C) '0 (最初の要素は 0と返す)

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧