如何在 vbscript 中结束 if 语句

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 xEnd If.每个多行if一个end 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 

如果"如果 y = vbokonly..."还有代码末尾的下一个，它正在关闭您的 For 循环。
我也从你的 n=n-1 中做了一个评论，因为下一个知道如何计数。
它现在会把你的 i 向上。
您还必须声明您的"y";)