为什么下面代码不能实现OPtion和text之间的相互转换？

Question

Private Sub Combo1_Click()
    If Combo1.Text = "１－判断题" Then
      Text1.Visible = False
       Option1.Visible = True
       Option2.Visible = True
    ElseIf Combo1.Text = "２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题" Then
       Text1.Visible = True
       Option1.Visible = False
       Option2.Visible = False
    End If
End SubPrivate Sub Form_Load()
        Combo1.AddItem "１－判断题"
        Combo1.AddItem "２－单选题"
        Combo1.AddItem "３－多选题"
        Combo1.AddItem "４－填空题"
        Combo1.AddItem "５－简答题"
        Combo1.AddItem "６－论述题"
        Combo1.AddItem "７－综合题"
End Sub
--------------------------------------------------------------------------------------------
  
         当Combobox选择相应的选项时不能实现Option和text的转换！！！！

Answer 1

Private Sub Combo1_Click()
    If Combo1.Text = "１－判断题" Then
      Text1.Visible = False
      Option1.Visible = True
      Option2.Visible = True
    Else
      Text1.Visible = True
      Option1.Visible = False
      Option2.Visible = False
    End If
End SubPrivate Sub Form_Load()
        Combo1.AddItem "１－判断题"
        Combo1.AddItem "２－单选题"
        Combo1.AddItem "３－多选题"
        Combo1.AddItem "４－填空题"
        Combo1.AddItem "５－简答题"
        Combo1.AddItem "６－论述题"
        Combo1.AddItem "７－综合题"
End Sub

Answer 2

ElseIf Combo1.Text = "２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题" Then 
表示当 Combo1.Text 是 "２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题"才会发生而不是表示除了 "１－判断题" 之外的值.而且 ２－单选题,３－多选题,４－填空题,５－简答题,６－论述题,７－综合题" 会作为一个整体.
而不是分开来
 ２－单选题,
３－多选题,
.....