確率変動させる 1/2000の確率を変えレア度を上げる

お久しぶりです。MSXBASICで確率変動をさせてみたいと思います。
ちょっと宝箱の当たりの確率について考えてみました。

このプログラムではこんなふうな結果になりました。
2000回で1900回目とかハマっていることもありますが、
1300回ぐらいまで回せば1回は宝箱が当たりそうな感じになります。
よくハマると言いますが確率が厳しいのかもしれませんね。

当たりかたを厳しくやってみたいと思います。
5000回の確率で2000回以上は最後になるように設定します。

こんなふうに最後に当たる確率が増えます。
逆に2000以下はレアモンスター出現みたいな設定もいいですね。
Cの値を大きくすればレアの出現率が下がり激レアにできます。
自由に変えることができるので試してみてください。