本文共 648 字，大约阅读时间需要 2 分钟。

###点击按钮会重复添加课程

Private Sub cmdAdd_Click(Index As Integer)    Dim i As Integer         '定义两个整型变量    Dim j As Integer    '往 listSelectcourse列表中添加课程    If listAllcourse.ListIndex <> -1 Then        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)        For i = 0 To listSelectcourse.ListCount - 1             '外循环    For j = i + 1 To listSelectcourse.ListCount            '内循环    '判断在list列表中是否有相同的数据    If listSelectcourse.List(i) = listSelectcourse.List(j) Then        listSelectcourse.RemoveItem j     '删除添加的数据        MsgBox "已有添加课程，请先删除在添加！", vbOKOnly, "提示"                Exit Sub    End If    Next j    Next i    End IfEnd Sub