提示没有select

Question

我设置了两个控件数组，一个是text1（），另一个是label1（）
同时设置了一个combobox
运行时提示 Case "国际级"  这句没有select
Combo1.List(0) = "国际级"
Combo1.List(1) = "国家级"
Combo1.List(2) = "省市级"
Combo1.List(3) = "企业合作"
Select Case Combo1.Text
    Case ""
        For i = 0 To 11
        Text1(i).Visible = False
        Label1(i + 1).Visible = False
        sub1.Visible = False
        Next i
    Case "企业合作"
        For i = 0 To 11
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "国际级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "国家级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "省市级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
End Select

Answer 1

Case "企业合作"
        For i = 0 To 11
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "国际级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "国家级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
    Case "省市级"
        For i = 0 To 5
        Text1(i).Visible = True
        Label1(i + 1).Visible = True
        sub1.Visible = True
你这些for循环里都没有next！！！！！！！！！！！！！！！！加上就好了

Answer 2

楼主的for语句从Case "企业合作"开始就没Next的
把Next加上去再试试

Answer 3

For i = 0 To 5
    Text1(i).Visible = True
    Label1(i + 1).Visible = True
    sub1.Visible = True
next i
养成好习惯！！！，注意程序的缩进，出错好查！！！

Answer 4

哈哈,是啊,它只有第一个里有Next,后面四个都漏了...