学生管理系统设置课程 事实错误 13

添加一个课程没有问题，当继续添加第二个问题时就会出现 13 找了好久终于找到解决的办法了。 如下：

Private Sub cmdModify_Click()

    Dim a As Integer
    Dim i As Integer
    Dim j As Integer
    For a = 0 To listAllcourse.ListCount - 1
        If listAllcourse.Selected(a) = True Then
           listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)

           '向listselectcourse列表中添加课程
           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 + vbExclamation, "提示"
              Exit Sub
           End If
           Next j
           Next i
        End If
    Next a
End Sub

这样 就好了