Question

我不知道如何结束此声明。我已经四处抬头，找不到答案

Option Explicit
Dim objSHL : Set objSHL = CreateObject("WScript.Shell")
Dim n,i,x

n=15 ' fifteen seconds

For i = 1 To n
   x = objSHL.Popup(""&n&"",1,"Countdown",vbokonly)

   n=n-1
   If n = 0 Then
       y=MsgBox("Oh No",vbokonly,"")
   Else
       If y = vbokonly Then

           Exit For
   End If

Answer 1

n=n-1
If n = 0 Then
    y=MsgBox("Oh No",vbokonly,"")
Else
    If y = vbokonly Then

    End If
End If

使用2 x End If。每个多行 end if一个if。

Answer 2

Option Explicit
Dim objSHL : Set objSHL = CreateObject("WScript.Shell")
Dim n,i,x,y

n=15 ' fifteen seconds

For i = 1 To n
   x = objSHL.Popup(""&n&"",1,"Countdown",vbokonly)

   'n=n-1
   If n = 0 Then
       y=MsgBox("Oh No",vbokonly,"")
   Else
       If y = vbokonly Then

           Exit For
       End If
   End If
Next

您遗漏了1 End if，如果您的“ If y = vbokonly ...”，以及代码末尾的Next（正在关闭您的循环），也请选择Next。
另外，我还根据您的n = n-1做出了评论，因为下一个知道如何计数。
它会立即提示您我。
另外，您还必须声明您的“ y”;）

如何在vbscript中结束if语句

2 个答案: