>>398

dim i as integer
dim hoge() as integer

　'///最初に確保
　hoge(10)

　'///消す。
　erase hoge

　'///拡張しながら
　for i = 0 to 10
　　redim preserve hoge(i)
　next i