处理（用户）选择列表时如何返回一步？答案

【问题标题】：How can I go back one step when processing a list of (user) choices?处理（用户）选择列表时如何返回一步？
【发布时间】：2015-06-01 13:00:00
【问题描述】：

我有一系列用户选择（实现为输入框）。简短示例：

Answer = InputBox("Choose: 1 - One 2 - Two", "Choose"))
If Answer = "1" Then 
    Answer = InputBox("Choose: 1 - Hi 2 - Hello", "Choose"))
        If Answer = "1" Then....

我想知道 VBScript 是否可以退回到上一个选择。来自

InputBox("Choose: 1 - Hi 2 - Hello   3 - BACK", "Choose"))

如果我输入 3，我想后退一步。我尝试history.go(-1)，但出现错误。他想要对象“历史”。

【问题讨论】：

“退一步”到底是什么意思？您是否希望它位于Answer = InputBox("Choose... 行之前的行？
在该示例中，我想从 Hi 和 Hello 所在的行返回一二行

标签： vbscript back inputbox

【解决方案1】：

将第一个选择放在 Do 循环中，并且仅当在第二个提示中选择了 3 以外的内容时，才使用 Exit Do 跳出循环。

Do
    Answer = InputBox("Choose: 1 - One 2 - Two", "Choose")

    If Answer = "1" Then 
        MyVal = LevelTwoSelect
    End If

    If MyVal <> 3 Then Exit Do

Loop

Function LevelTwoSelect

    Answer = InputBox("Choose: 1 - Hi 2 - Hello  3 - BACK", "Choose")
        If Answer = "1" Then LevelTwoSelect = 1
        If Answer = "2" Then LevelTwoSelect = 2
        If Answer = "3" Then LevelTwoSelect = 3

End Function

【讨论】：