Private Sub Command1_Click()If Combo1.ListIndex < 0 Then MsgBox "未选择课程！": Exit SubFor i = 0 To List1.ListCount - 1If Combo1.Text = List1.List(i) Then MsgBox "已选择该课程！": Exit SubNextList1.AddItem Combo1.List(Combo1.ListIndex)End SubPrivate Sub Command2_C...
