WSHでプログラムをやっている者です。（遊びですが）

質問

WSHでプログラムをやっている者です。（遊びですが）
そこで質問ですが、いま乱数と分岐を組み合わせてつくっています。
その際、まれにプログラムが飛んでしまいます。下に載せるので、ミスがあれば教えていただきたいです。よろしくお願いします。

dim xa,za,a
xa=msgbox("ゲーム挑戦権の獲得を試みますか？",4)
if xa=6 then
randomize
za=int(rnd*10)
select case za
case 0,1,2,3,4
za=msgbox("ゲームへの挑戦権を獲得しました。挑戦しますか？",4)
case else
msgbox"ゲームへの挑戦権獲得に失敗しました。またチャレンジしてください。"⇒(1)
end select
elseif xa=7 then
msgbox"さようなら"
end if
if za=6 then
a=msgbox("ではゲームを始めます。用意はよろしいですか？",4)⇒(2)
elseif za=7 then
msgbox"また次の機会に挑戦してください。"⇒(3)
end if

メッセージボックスに(1)が表示されたら、それでプログラムが終わるようにしたつもりですが、
数回に一回、(1)で「OK」をクリックすると(2)や(3)に飛びます。何らかのミスでしょうか？

回答No.1

DOUGLAS_ · ベストアンサー

za=int(rnd*10)
ですから、za の値は
case 0,1,2,3,4
でない場合、つまり、
case else
の場合には「5,6,7,8,9」になります。

　ここで、za の値が「6」または「7」だった場合には、
msgbox"さようなら"
end if
の後で、再び
if za=6 then
elseif za=7 then
という分岐に入ってしまいますので、
＞数回に一回、(1)で「OK」をクリックすると(2)や(3)に飛
ぶようなことになるかと存じます。

　従って、

if za=6 then
a=msgbox("ではゲームを始めます。用意はよろしいですか？",4)⇒(2)
elseif za=7 then
msgbox"また次の機会に挑戦してください。"⇒(3)
end if

の行を
za=msgbox("ゲームへの挑戦権を獲得しました。挑戦しますか？",4)
と
case else
との間に移動してお試しください。

お礼

ありがとうございました。後のプログラムが関係していたわけですね。
早速直してみます。