end if 没有 Option ExplicitPrivate Sub Command1_Click()Dim i%,f1&,f2&,k%f1 = 0f2 = 1For i = 2 To 11Print f1,f2,If i Mod 2 0 Then Printf1 = f1 + f2f2 = f1 + f2End IfPrintEnd Sub运行代码的时候说end if 没块if,要怎么改呢?

end if 没有 Option ExplicitPrivate Sub Command1_Click()Dim i%,f1&,f2&,k%f1 = 0f2 = 1For i = 2 To 11Print f1,f2,If i Mod 2 0 Then Printf1 = f1 + f2f2 = f1 + f2End IfPrintEnd Sub运行代码的时候说end if 没块if,要怎么改呢?
end if 没有
Option Explicit
Private Sub Command1_Click()
Dim i%,f1&,f2&,k%
f1 = 0
f2 = 1
For i = 2 To 11
Print f1,f2,
If i Mod 2 0 Then Print
f1 = f1 + f2
f2 = f1 + f2
End If
Print
End Sub
运行代码的时候说end if 没块if,要怎么改呢?

end if 没有 Option ExplicitPrivate Sub Command1_Click()Dim i%,f1&,f2&,k%f1 = 0f2 = 1For i = 2 To 11Print f1,f2,If i Mod 2 0 Then Printf1 = f1 + f2f2 = f1 + f2End IfPrintEnd Sub运行代码的时候说end if 没块if,要怎么改呢?
也就是你的程序有if 开头的条件语句
但没有输入end if
请检查一下,没有的话,在相应地方加一下即可
特别注意中间的空格