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
我只知道这是一个建立链表的代码，但是我不知道每一句的意思，谁能帮帮忙解释下呢？

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

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