使用vbs编写一个弹窗,答案不对给提示并继续弹窗

以下是使用VBScript编写一个弹窗，并在用户回答不正确时给出提示并继续弹窗的示例：

Dim answer

answer = InputBox("请回答问题：你喜欢编程吗？", "问题", "")

Do While answer <> "是"
    MsgBox "回答错误，请重新回答！"
    answer = InputBox("请回答问题：你喜欢编程吗？", "问题", "")
Loop

MsgBox "回答正确！"

这段代码创建了一个弹窗，要求用户回答一个问题：“你喜欢编程吗？”如果用户回答不是“是”，则会显示一个提示框，显示“回答错误，请重新回答！”的消息，并继续弹出同样的问题，直到用户回答正确为止。当用户回答为“是”时，将显示一个提示框，显示“回答正确！”的消息。