vb6.0 菜鸟发问

来源：百度知道 编辑：UC知道 时间：2024/06/22 21:50:07
以下是我写一段代码
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

提示

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"
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"