VBScript サイコロ

2014年08月26日 15:12

こんにちは今回はVBScriptでサイコロプログラムをつくります

こう書いてください

Randomize
 
msg = "サイコロを振りますか？"
do while MsgBox(msg, vbYesNo) = vbYes
   r = Int(Rnd * 6) + 1
   msg = r & " がでました" & chr(13) & "もう一度、サイコロを振りますか？"
loop
戻る