VBA80第8集，疑点

mjwwy

请问各位高人，   
Sub e3()
     Dim x As Integer
       Do
         x = x + 1
          Cells(1, 1) = x
          If x = 5 Then
            Exit Do
          End If
       Loop Until x = 100
       Range("b1") = 100
     End Sub

Sub t2()
  Dim x As Integer
  For x = 1 To 10
     If Cells(x, 1) Mod 2 = 0 Then GoSub 100
  Next x
Exit Sub
100:
   Cells(x, 1) = "偶数"
   Return
End Sub

为甚么第二个里面的if 后面不需要要 end if,强行加上还提示end if 没有if 块，初学不明白，请多指教

as0810114

if语句放在一行，不用end if