vbsのmsgboxランダム表示について

質問

つい先日、vbsをいじりだしたばかりの初心者です。
このプログラムなんですが・・・

msgbox("冒険はじまりー"),,("冒険")
msgbox("てくてく")

i = msgbox("分かれ道だ" & vbCrLf & "はい:左 いいえ:真ん中 キャンセル:右",3,"わかれみち")
if (i=6) then
msgbox("いきどまり")
msgbox("ゲームオーバー")

elseif (i=2) then
msgbox("いきどまり")
msgbox("ゲームオーバー")

else
msgbox("モンスターがあらわれた",48,"バトル")

myhp=10
mymp=5
youhp=20

for i=0 to 10 step 0
num=msgbox("ＨＰ(" & myhp & ")" & vbCrLf &_
"ＭＰ(" & mymp & ")" & vbCrLf &_
"モンスターＨＰ　(" & youhp & ")" & vbCrLf &_
"こうげき:はい　かいふく:いいえ まほう:キャンセル",3,"バトル")

if(num=6)then
myhp = myhp-1
mymp = mymp+1
youhp = youhp-1
msgbox("こうげき！" & vbCrLf &_
"モンスターHP－１" & vbCrLf & "自分のHP－1" & vbCrLf & "自分のMP＋1")

elseif (num=7) then
myhp = myhp+3
mymp = mymp-3
msgbox"HPが3回復　MPが3減った"

else
youhp = myhp-2
mymp = mymp-2
msgbox"まほうをつかった MP-2 モンスターHP-2"

end if

if(youhp=0)then
msgbox"モンスターに勝った！",64,"やったね"
msgbox"おしまい"
exit for

elseif(myhp=0)then
msgbox"負けた",16,"ざんねん"
msgbox"ゲームオーバー",16,"ざんねん"
exit for
end if
next
end if

これの、攻撃とか魔法とかのところでmsgboxにランダムで違うメッセージを出すことは
できますか？（３パターンくらいです）
調べてみても書き方がよくわかりませんでした・・・。
それと、ゲームオーバーの場合、もう一度やるかどうかの選択メッセージの出し方も
教えていただけると嬉しいです。
質問が多くてごめんなさい、どうぞよろしくお願いしますm(_ _)m

回答No.2

watabe007 · ベストアンサー

MsgBox "まほうをつかった"
n = Int(Rnd * 3) + 1 '1～3の乱数発生、それぞれ1/3の確立
If n = 1 Then
　　MsgBox "効かなかった"
ElseIf n = 2 Then
　　MsgBox "○○ポイントのダメージを与えた"
ElseIf n = 3 Then
　　MsgBox "相手は逃げた"
End If

MsgBox "まほうをつかった"
n = Int(Rnd * 10) + 1 '1～10の乱数発生、それぞれ20%、30%、50%の確立
If n < 3 Then
　　'20%の確立
　　MsgBox "効かなかった"
ElseIf n < 6 Then
　　'30%の確立
　　MsgBox "○○ポイントのダメージを与えた"
Else
　　'50%の確立
　　MsgBox "相手は逃げた"
End If

>もう一度やるかどうかの選択メッセージの出し方も
GoTo ステートメント
http://msdn.microsoft.com/ja-jp/library/69whc95c(v=vs.80).aspx

お礼

素晴らしいです、ありがとうございます！！
こう書けばよかったんですね(^^)

回答No.1

ShowMeHow

vbs 使ったことないですが、

dim a as integer
randomize
a = int((3*rnd)+1)

とすると、aにランダムで1,2,3のいずれかの値が入ります。
中を(5*rnd)とすると、1～5のいずれかになります。
http://www.kanaya440.com/contents/script/vbs/function/num/rnd.html

お礼

ご回答ありがとうございました(´▽｀)