学生信息管理系统——防止重复添加！

       虽然对于学生信息管理系统这个练习的小程序结束已经有一周了，但是想想在被师傅验收的时候的一大推错误还是心有余悸。今天想写的是一个细节问题——怎样去防止重复添加！

       在设置课程的过程中我们一不小心就会出现重复添加的情况，在添加已有课程的时候我们也会出现类似的情况。如果课程信息少或者知道会出现重复添加的情况，我们稍加注意即可，但是如果这真的是一个准备发布的软件呢？我们总不能要求操作者注意这种情况的发生吧，再说如果添加的课程信息过多也会出现操作者也不知道自己是否已经添加。

       好的软件不是功能最强大的，但一定是最人性的。其实我们防止重复的事情发生使用循环就行了，如下：

       首先是For循环

'防止重复添加课程信息
    For i = 0 To lstSelCourse.ListCount - 1

        For j = j + 1 To lstSelCourse.ListCount

            If lstSelCourse.List(i) = lstSelCourse.List(j) Then
                lstSelCourse.RemoveItem j
                MsgBox "该课程已选！"
                Exit Sub
            End If

        Next j

    Next i

       其次是DO......Loop循环       

Do While (mrc.EOF = False)  '遍历记录方法2,防止重复添加
        If lstAllCourse.ListCount = mrc.RecordCount Then
            MsgBox "课程已设置，请勿重复添加！"
            Exit Do
        Else
            lstAllCourse.AddItem mrc.Fields(1)
            mrc.MoveNext
        End If
    Loop

       当然好的方法肯定还有很多，希望大家能够相互交流。同时在解决这个问题的过程中还有之前和师傅的交流使我真切的明白：作为一个好的程序员必须有一颗全心全意为人民服务的心，只有站在用户的角度去考虑问题和感受软件的实用性，才能做出户认可的软件。

       也希望将来的某一天我也能设计出让客户称赞的软件！