列表框内容我点击显示出标签后我在点击就会覆盖了，怎么破？

Question

RT，Private Sub Form_Load()
  List1.AddItem "值班人员", 0
   List1.AddItem "张", 1
   List1.AddItem "李", 2
  List1.AddItem "赵", 3
  List1.AddItem "余", 4
  List1.AddItem "-------------", 5
  List1.AddItem "值班时间", 6
  List1.AddItem "上午", 7
  List1.AddItem "下午", 8
  List1.AddItem "晚上", 9
   List1.AddItem "-------------", 10
  List1.AddItem "值班情况", 11
  List1.AddItem "正常", 12
  List1.AddItem "早到", 13
  List1.AddItem "迟到", 14
End Sub
Private Sub List1_Click()
 Label1.Caption = List1.Text
End Sub 

Answer 1

 Label1.Caption = Label1.Caption + " " + List1.Text 

Answer 2

最好不要这样设计，而是使用 3 个列表框（可以用数组），分别加上 Label（也可以是数组）：
Private Sub Form_Load()
Label1(0) = "值班人员"
List1(0).AddItem "张"
List1(0).AddItem "李"
List1(0).AddItem "赵"
List1(0).AddItem "余"
List1(0).ListIndex = 0 Label1(1) = "值班时间"
List1(1).AddItem "上午"
List1(1).AddItem "下午"
List1(1).AddItem "晚上"
List1(1).ListIndex = 0 Label1(2) = "值班情况"
List1(2).AddItem "正常"
List1(2).AddItem "早到"
List1(2).AddItem "迟到"
List1(2).ListIndex = 0
End Sub
Private Sub List1_Click(Index As Integer)
Label2.Caption = "值班人员: " & List1(0).Text & ", 值班时间:" & List1(1).Text & ", 值班情况: " & List1(2).Text
End Sub

Answer 3

如果一定要使用一个列表框来做，可以这样：Private Sub Form_Load()
  List1.AddItem "值班人员", 0
  List1.AddItem "张", 1
  List1.AddItem "李", 2
  List1.AddItem "赵", 3
  List1.AddItem "余", 4
  List1.AddItem "-------------", 5
  List1.AddItem "值班时间", 6
  List1.AddItem "上午", 7
  List1.AddItem "下午", 8
  List1.AddItem "晚上", 9
  List1.AddItem "-------------", 10
  List1.AddItem "值班情况", 11
  List1.AddItem "正常", 12
  List1.AddItem "早到", 13
  List1.AddItem "迟到", 14  Label1 = "值班人员: , 值班时间: , 值班情况: "
End SubPrivate Sub List1_Click()
Dim strTmp() As String    strTmp = Split(Label1.Caption, ",")
    
    Select Case List1.ListIndex
        Case 1 To 4
            strTmp(0) = "值班人员: " & List1.List(List1.ListIndex)
        Case 7 To 9
            strTmp(1) = " 值班时间: " & List1.List(List1.ListIndex)
        Case 12 To 14
            strTmp(2) = " 值班情况: " & List1.List(List1.ListIndex)
    End Select
    
    Label1.Caption = Join(strTmp, ",")
End Sub

Answer 4

   刚刚仔细看了一下 Case 7 To 9   ，应该改为 Case 6 To 8,  Case 12 To 14  改为 Case 10 To 12