GoTo“预期声明”

Question

我正在尝试使用GoTo命令（我不知道任何替代方案，它在批处理中工作正常）。每当我尝试加载程序时，都会收到此错误：

这里基本上是错误的位置（第11行第3列）

top:
input = InputBox("Enter normal text:", "Message Encrypt Style 2", "Text goes here")
If input = "" Then
    Y = MsgBox("You inputed nothing!", vbRetryCancel+64, "Huh?")
    If Y = 2 Then
        WScript.Quit
    Else
        If Y = 4 Then
            GoTo top
        Else
            If input = 2 Then
                WScript.Quit

Answer 1

VBScript没有Goto声明，无论如何都有更清晰的方法。

Do
    input = InputBox(...)

    If IsEmpty(input) Or input = "2" Then
        WScript.Quit
    ElseIf input = "" Then
        MsgBox "No input."
    End If
Loop Until input <> ""

Answer 2

试试这个

Option Explicit

Dim Input ' as string
Dim Y ' as msgbox response

Input = ""

Do Until Input <> ""
    Input= InputBox("Enter normal text:", "Message Encrypt Style 2", "Text goes here")

    If Input = "" Then
        Y = Msgbox ("You input nothing", vbRetryCancel, "Huh?")
        If Y = vbCancel Then
            WScript.Quit
        End If
    ElseIf Input = "2" Then
        WScript.Quit
    End If  
Loop

' Proceed here if input is valid

Answer 3

Vbscript是一种结构化编程语言，结构化编程的主要目标之一是消除goto语句，因为它是considered harmful。 Vbscript确实有一个goto例外，但这只是为了在程序退出之前进行资源清理。