最もシンプルなやり方

もっとも簡単な乱数の発生スクリプトは以下のようになります。
1~6の数字を発生させる、サイコロです。
Option Explicit
'変数設定
Dim MyValue, Response
minvalue = 1
maxvalue = 6
’乱数を初期化
Randomize
'乱数を生成して表示
MyValue = Int((Rnd*maxvalue) + minvalue)
MsgBox (MyValue)
上記のコードをメモ帳にコピペして、拡張子.vbsで保存するだけで動きます。
※VBSを使う理由はこちら
機能を追加するには
数字の範囲を変更するには
minvalue と maxvalueで数字の範囲を変更できます。
例えば以下のように変更すると100~199の範囲になります。
Option Explicit
'変数設定
Dim MyValue, Response
minvalue = 100
maxvalue = 199
’乱数を初期化
Randomize
'乱数を生成して表示
MyValue = Int((Rnd*maxvalue) + minvalue)
MsgBox (MyValue)
連続してサイコロを振れるようにする
メッセージボックスのyesを押すたびにサイコロを振りなおすようにしました。

Dim MyValue, Response
'変数設定
minvalue = 1
maxvalue = 6
’乱数を初期化
Randomize
'乱数を生成して表示、NOが押されるまでループする
Do until Response = vbNo
MyValue = Int((Rnd*maxvalue) + minvalue)
Response = MsgBox (" "&MyValue & vbcrlf & vbcrlf& vbcrlf& vbcrlf&"続行...", vbYesNo)
Loop
参考価格
これくらいの シンプルさ、難易度であれば、カシコでは5000円程度で作成できます。
※処理の追加が必要な場合は、その難易度や数によって金額が上がります。
お気軽にお見積りお待ちしております。
This site is protected by reCAPTCHA and the GooglePrivacy Policy and Terms of Service apply.