※以下vbscript↓

dim test()
ReDim test(6)　　　　　　　　　　　　　　　　　　　’・・・①

test(0) = “生死去来”
test(1) = “棚頭傀儡”
test(2) = “一線断時”
test(3) = “落落磊磊”

msgbox UBound(test)　　　　　　　　　　　　　　　　　　　　’・・・②
msgbox test(0) & test(1) & test(2) & test(3)

ReDim Preserve test(3)　　　　　　　　　　　　　　　　　　　’・・・③
msgbox UBound(test)
msgbox test(0) & test(1) & test(2) & test(3)

ReDim test(3)　　　　　　　　　　　　　　　　　　　　　’・・・④
msgbox UBound(test)
msgbox test(0) & test(1) & test(2) & test(3)

(続きを読む…)