そういうわけなので、いい感じにするのであれば、例えば、1個の当たりと9個のハズレを用意して、1回サイコロを振るごとに、出た目の箱を消していくとか。 DIM A[10]:'はこを10こ A[0]=1:'あたり A[1]=0:A[2]=0:A[3]=0:A[4]=0:A[5]=0:A[6]=0:A[7]=0:A[8]=0:A[9]=0 FOR I=1 TO 10 R=RND(10-I+1):'のこりのはこからえらぶ ?I;"かいめ "; IF A[R]==1 THEN ?"あたり！" ELSE ?"ハズレ！" FOR J=R+1 TO 10-I A[J-1]=A[J]:'はこをへらしていく NEXT NEXT