作业帮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,要怎么改呢?
来源：学生作业帮助网 编辑：作业帮 时间：2024/10/04 19:40:44
xR]KA+-ك
b=PѷE}(jf!k)Qfgv3ՆQ2 ν9gƧr cvD
ZBZ'`nmx<,Gą -FF'Q E %sA/)N) (DI E) L+Z XMc @i _7_ҁ-[ŔuI-]zqY6E#!\O!̸ߌo#P >a8y8_ IR 94_b\ /a;i➆o|l>ϧx'RHb5/6ayUw28W'g+.|i['*LkvߺbYUòLoc
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
请检查一下,没有的话,在相应地方加一下即可
特别注意中间的空格