乱数の範囲を100にして、それぞれの割合の範囲かどうかを調べる…えー、具体的には、こうです(^^;)。 WHILE 1 Y=10 R=RND(100)+1 IF R>=1 AND R<=10 THEN Y=100 IF R>=11 AND R<=15 THEN Y=500 PRINT Y;"えん/"; WEND 実行すると、ガチャを引いて結果を表示して…を何度も繰り返します。止めたいときはSTOPボタンを押してください。