If statement 如何在vbscript中结束if语句

我不知道如何结束这句话。我查遍了，找不到答案

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

如果有，则为2 x结束。每个多行if的一端if

对于if y=vbokonly，您缺少1个End if。。。也是代码末尾的下一个结束For循环的代码。 我还对你的n=n-1做了评论，因为下一个知道如何计数。 现在它将无法向上移动。

---

此外，您还必须申报您的y

如果有疑问，请阅读。@AnsgarWiechers显然他们已经查遍了。如果没有其他部分，也可以使用单行If语句。例如，如果y=vbokonly，则在单行中退出不需要EndIf

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

    End If
End If

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