vb6.0 菜鸟发问

显示全部楼层 · 2009-2-16 10:00:28

以下是我写一段代码
debug到这段后报 Compile error: end if without block if
For n = 0 To 3 Step 1

If menufocus = focusmin + n Then

If main1_0_0_0A_flag(n) = False Then

main1_0_0_0A_flag(n) = Not (main1_0_0_0A_flag(n))

If n = 0 Then Label1.Caption = "Off"

ElseIf n = 1 Then Label2.Caption = "Off"

ElseIf n = 2 Then Label3.Caption = "Off"

ElseIf n = 3 Then Label4.Caption = "Off"

Else

End If

Else

main1_0_0_0A_flag(n) = Not (main1_0_0_0A_flag(n))

If n = 0 Then Label1.Caption = "On"

ElseIf n = 1 Then Label2.Caption = "On"

ElseIf n = 2 Then Label3.Caption = "On"

ElseIf n = 3 Then Label4.Caption = "On"

Else

End If

End If
End If
Next n
提示光标高亮 ElseIf n = 1 Then Label2.Caption = "On"这句
搞不明白这个简单的if block 怎么会出错？
那位高手麻烦指点一下
谢谢

千问 · 2009-2-16 10:00:28

For n = 0 To 3 Step 1
If menufocus = focusmin + n Then
If main1_0_0_0A_flag(n) = False Then
main1_0_0_0A_flag(n) = Not (main1_0_0_0A_flag(n))
If n = 0 Then
Label1.Caption = "Off"
ElseIf n = 1 Then
Label2.Caption = "Off"
ElseIf n =...