Private Sub List1_Click() Select Case List1.List(List1.ListIndex) Case "一年级" List1.Clear List1.AddItem "一班" List1.AddItem "二班" List1.AddItem "三班" Case "二年级" End SelectEnd Sub