sp; Set n = Nothing End If DoEvents Loop While Not head Is Nothing Form1.Cls End Sub Private Sub leave_Click() End End Sub Private Sub print_Click() Set pointer = head If head Is Nothing Then MsgBox "链表为空" Else While Not pointer Is Nothing Print pointer.x Set pointer = pointer.nextnode If ObjPtr(pointer) = ObjPtr(head) Then ''''objptr返回对象的地址 Exit Sub ''''strptr返回变长字符串的字符串数据地址 End If ''''varptr返回变量的地址 DoEvents ''''用与获取变量地址，是函数。 Wend End If End Sub 该代码在VB6.0+WINME中调试通过。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
