VBS どうするの？

質問

VBSで、
a=inputbox("0+1=")
if lang=1 then
　msgbox("あってます。")
　else
　msgbox("間違えています。")
end if
として、
msgbox("間違えています。")
のあとに、もういちど最初（aの位置）にもどしたいときはどうすればよいでしょう？
よろしくおねがいします。

回答No.2

KG_ · ベストアンサー

#1です。すみません思い切り例を間違っていました。
下記が修正後です。

例)
-----------------------------------------------------
Do While True
　a = Inputbox("0+1")
　If a=1 Then
　　Msgbox "あってます。"
　　Exit Do
　Else
　　Msgbox "間違えてます。"
　End If
Loop

回答No.1

KG_

ループ処理で正解の時だけ抜けるようにしてはどうでしょう。

例)
-----------------------------------------------------
Do While True
　a = Inputbox("0+1")
　If a=1 Then
　　Msgbox "あってます。"
　　Exit Do
　Else
　　Msgbox "あってます。"
　End If
Loop