GetArrayCount ( ArrayName )
' [一次元の固定な配列変数Aの場合]
' 変数result1には要素数10が格納される。
Dim A( 10 )
result1 = GetArrayCount ( A )
'[二次元の固定な配列変数Bの場合]
' 変数result2と変数result3には列数10が,変数result4には
' 行数5が格納される。
Dim B( 5 ,10 )
result2 = GetArrayCount ( B( 1 ) )
result3 = GetArrayCount ( B( 5 ) )
result4 = GetArrayCount ( B )
' [二次元の可変な配列変数Cの場合]
' 変数result5には列数1が,変数result6には列数7が,変数result7
' には行数2が格納される。
Dim C( , )
C( 2 ,1 ) = "SUN"
C( 2 ,2 ) = "MON"
C( 2 ,3 ) = "TUE"
C( 2 ,4 ) = "WED"
C( 2 ,5 ) = "THU"
C( 2 ,6 ) = "FRI"
C( 2 ,7 ) = "SAT"
result5 = GetArrayCount ( C( 1 ) )
result6 = GetArrayCount ( C( 2 ) )
result7 = GetArrayCount ( C )