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

vb 没指针呐!~
你再怎么用p都没用.
除非用CopyMemory,(MoveMemory ?),所以用VB练习连表才叫麻烦呐!~