DIM A$[6],B$[6],C$[6] FOR I=0 TO 5 READ A$[I],B$[I],C$[I] NEXT で問題とかを配列に入れて FOR I=0 TO 20 @RND XX=RND(6):YY=RND(6) IF XX==YY THEN @RND SWAP A$[XX],A$[YY]:SWAP B$[XX],B$[YY]:SWAP C$[XX],C$[YY] NEXT で順番を入れればいいのではないでしょうか