Private Sub cmdDelDub_Click()
    p = firstLink
    Do While p <> -1
        q = linkList(p, 2)
        If q = -1 Then Exit Do
        
        Do While linkList(q, 2) <> -1
            If linkList(p, 1) = linkList(q, 1) Then
                r = linkList(q, 2)
                linkList(q, 2) = linkList(r, 2)
               
                linkList(r, 1) = 0
                linkList(r, 2) = 0
            Else
                q = linkList(q, 2)
                If q = -1 Then Exit Do
            End If
        Loop
        p = linkList(p, 2)
    Loop
End Sub
我只知道这是一个建立链表的代码，但是我不知道每一句的意思，谁能帮帮忙解释下呢？

有人知道不，要不我睡不着啊？

Private Sub cmdDelDub_Click()
    p = firstLink                                  '给P一个值
    Do While p <> -1                               '条件,P<>-1 ,循环  
        q = linkList(p, 2)                         '给Q一个值   数组
        If q = -1 Then Exit Do                     'Q=-1,退出循环
         
        Do While linkList(q, 2) <> -1             ' 返回值<>-1,循环
            If linkList(p, 1) = linkList(q, 1) Then     '测试以P为参与和以Q为参数结果是否相同
                r = linkList(q, 2)                     '相同,则给R一个值
                linkList(q, 2) = linkList(r, 2)        '数组元素
                 
                linkList(r, 1) = 0                     '数组元素,清为0
                linkList(r, 2) = 0
            Else
                q = linkList(q, 2)                     'Q一个值
                If q = -1 Then Exit Do                 'Q=-1,退出
            End If
        Loop
        p = linkList(p, 2)                             'p取值
    Loop
End Sub

到现在为止,没看懂这个过程是干什么的.
也不知道你要干什么..

这就是一个建立链表的代码啊

怎么郁闷用VB做连表?
练习?