乱数の利用
僕の通う中学校では、乱数を利用してプログラムを作成することになりました。そしてプログラムを作りましたがステートメントがないと出てきます。どう解決すればよいでしょうか?これがプログラムです。
Dim a,b,c,d,e,f,g
a=msgbox("幸せですか?",4)
if a=6 then
const b="運勢"
randomize
b=int(rnd*10)
select case b
case 0,1,2
c=messagebox("吉でした。彼女はいますか?",4)
if c=6 then
msgbox"90%",,b
elseif c=7 then
msgbox"60%",,b
end if
case 3,4,5
d=msgbox("凶でした。友達はいますか?",4)
if d=6 then
msgbox"60%",,b
elseif d=7 then
msgbox"20%",,b
end if
case 6,7
e=msgbox("末吉でした。",4)
if e=6 then
msgbox"60%",,b
elseif e=7 then
msgbox"40%",,b
end if
case 8
f=msgbox("大凶でした。夢はありますか?",4)
if f=6 then
msgbox"30%",,b
elseif f=7 then
msgbox"10%",,b
end if
case else
msgbox"100%",,b
end if
elseif a=7
msgbox"0%"
end select
お礼
ご回答ありがとうございます。