Question

VBS如何编写多段对话框

看了教程只有一段的...我想要比如第一个msgbox出现是或者否选了是以后的对话框有新选项 是和否 选了答案以后又有新的 不知道else endif 在哪里加想要的感觉：msgbox你知道时间吗 yes/noyes了之后 inputbox 几点了然后 继续 if=9点 然后xxx同时 第一个问题回答了no以后那你有手机吗 yes/no 这样子每个选项后面都有新选项的复杂的对话框

Answer 1

if msgbox("你知道时间吗？",vbyesno)=vbyes then 
    a=inputbox("几点了？")
    msgbox a
else
    if msgbox("你不知道时间，真的假的？",vbyesno)=vbyes then 
        msgbox "真"
    else
        msgbox "假"
    end if
end if

Answer 2

在循环中不断交互的意思？

Answer 3

看看下边的代码是不是你想要的效果：
Sub dhk()
Dim a, b, c
a = MsgBox("知道时间吗？", vbYesNo, "确认")
Select Case a
Case vbYes
b = InputBox("几点了", "输入时间")
If b = 9 Then
MsgBox "回答正确", vbYesNo, "正确"
Else
MsgBox "回答错误", vbYesNo, "错误"
End If
Case vbNo
c = MsgBox("", vbYesNo, "")
End Select
End Sub

Answer 4

就直接用if嵌套就好了。
if。。。then
if。。。then
'干什么事
else

end if
else
’干什么事
end if