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

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

Dim answer

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

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

MsgBox "回答正确！"

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

相关问题

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

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

Do
    answer = InputBox("请回答问题：你喜欢编程吗？", "问题", "")
Loop While answer <> "是"

MsgBox "回答正确！"

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

使用vbs编写一个弹窗,答案不对给提示并继续弹窗。并且在窗口是不能做其它事情

以下是使用VBScript编写一个弹窗，并在用户回答不正确时给出提示并继续弹窗的示例。在弹窗显示期间，用户无法进行其他操作。

Set objShell = CreateObject("WScript.Shell")

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

objShell.Popup "回答正确！", 3, "提示"

这段代码创建了一个弹窗，要求用户回答一个问题：“你喜欢编程吗？”如果用户回答不是“是”，则会显示一个提示框，显示“回答错误，请重新回答！”的消息。用户只能在关闭或回答正确后才能进行其他操作。当用户回答为“是”时，将显示一个提示框，显示“回答正确！”的消息。

请注意，`objShell.Popup` 函数的第二个参数表示弹窗显示的时间（以秒为单位），在示例中设置为3秒。您可以根据需要调整这个值。