同じ大きさの適当な配列を作る DIM TEKI[大きさ] FOR I=0 TO 大きさ-1 TEKI[I]=I+1 NEXT TEKI[消したい配列番号]=0 TEKIで消したいのがある配列をSORTして すると消したい配列番号が頭に来るのでSHIFTでぶっ飛ばします。 終了。mkIIで作った私のガラガラ抽選器は玉を取り出すのにこんな感じだったと思う。3号に移植するかな？