Как закончить, если заявление в VBScript

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

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 в конце вашего кода, который закрывает ваш цикл For-Loop.
Также я сделал комментарий из вашего n = n-1, потому что следующий умеет считать.
Теперь он будет наверху.
Также вы также должны объявить свой «у»;)

Answer 2

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

    End If
End If

С 2 х End If.Одна end if для каждой мультилинии if.