计算机二级循环链表,计算机二级VB辅导:循环链表以及相关操作

62b289fb4c5b405631c6b242d838c41d.png

循环链表以及相关操作(VB实现)

首先建立一个工程,然后增加一个类并且命名为(node,cls),

在node.cls中加入以下代码.

Option Explicit

Public x As Long

Public count As Long

Public nextnode As node

在Form1.frm中加入以下代码。

Option Explicit

Dim head As node

Dim pointer As node

Dim newnode As node

Dim n As node

Dim counts As Long

Dim temp As node

Private Sub createlist_Click()

Dim n As node

Dim i As Long

counts = 0

Set head = New node’可选的。通常在声明时使用 New,以便可以隐式创建对象。如果 New 与 Set 一起使用,则将创建该类的一个新实例。如果 objectvar 包含了一个对象引用,则在赋新值时释放该引用

head.x = 8

Set head.nextnode = Nothing

counts = counts + 1

head.count = counts

Set pointer = head

For i = 1 To 15

Set newnode = New node

newnode.x = i

counts = counts + 1

newnode.count = counts

Set newnode.nextnode = Nothing

Set pointer.nextnode = newnode

Set pointer = newnode

Next i

Set pointer.nextnode = head

Set pointer = head

Do

Print pointer.x

Set pointer = pointer.nextnode

If ObjPtr(pointer) = ObjPtr(head) Then ’objptr返回对象的地址

Exit Sub ’strptr返回变长字符串的字符串数据地址

End If ’varptr返回变量的地址

DoEvents’用与获取变量地址,是函数。

Loop While Not pointer Is Nothing

End Sub

Private Sub delete_Click()

Dim a As Long

Dim b As Long

a = CLng(InputBox("输入要删除的一个数据", "输入数据"))

b = CLng(InputBox("输入该数据的位置", "位置"))

Set pointer = head

If b = 1 Then

Do

Set pointer = pointer.nextnode

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Set pointer.nextnode = head.nextnode

Set head = Nothing

Set head = pointer.nextnode

Exit Do

End If

DoEvents

Loop While Not pointer Is Nothing

counts = 1

Set pointer = head

pointer.count = counts

Do

counts = counts + 1

Set pointer = pointer.nextnode

pointer.count = counts

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Exit Do

End If

DoEvents

Loop While Not pointer Is Nothing

Else

While pointer.count <> b

Set n = New node

Set n = pointer

Set pointer = pointer.nextnode

DoEvents

Wend

Set n.nextnode = pointer.nextnode

Set pointer = Nothing

Set pointer = n

End If

counts = 0

Set pointer = head

counts = counts + 1

pointer.count = counts

Do

counts = counts + 1

Set pointer = pointer.nextnode

pointer.count = counts

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Exit Do

End If

DoEvents

Loop While Not pointer Is Nothing

End Sub

Private Sub insert_Click()

Dim a As Long

Dim b As Long

a = CLng(InputBox("输入要插入的一个数据", "输入数据"))

b = CLng(InputBox("输入该数据的位置", "位置"))

Set pointer = head

If b = 1 Then

head.x = a

Else

While pointer.count <> b

Set pointer = pointer.nextnode

DoEvents

Wend

pointer.x = a

End If

End Sub  Private Sub insert2_Click()

Dim a As Long

Dim b As Long

a = CLng(InputBox("输入要删除的一个数据", "输入数据"))

b = CLng(InputBox("输入该数据的位置", "位置"))

Set pointer = head

If b = 1 Then

Set n = New node

n.x = a

Set n.nextnode = Nothing

Do

Set pointer = pointer.nextnode

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Set pointer.nextnode = n

Set n.nextnode = head

Set head = n

Exit Do

End If

Loop While Not pointer Is Nothing

Set pointer = head

counts = 1

pointer.count = 1

Do

counts = counts + 1

Set pointer = pointer.nextnode

pointer.count = counts

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Exit Do

End If

Loop While Not pointer Is Nothing

Else

Set n = New node

n.x = a

Set n.nextnode = Nothing

While pointer.count <> b

Set temp = New node

Set temp = pointer

Set pointer = pointer.nextnode

DoEvents

Wend

Set n.nextnode = pointer

Set temp.nextnode = n

Set pointer = n

Set pointer = head

counts = 1

pointer.count = counts

Do

counts = counts + 1

Set pointer = pointer.nextnode

pointer.count = counts

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Exit Do

End If

Loop While Not pointer Is Nothing

End If

End Sub

Private Sub konglianbiao_Click()

Set pointer = head

Do

Set pointer = pointer.nextnode

If ObjPtr(pointer.nextnode) = ObjPtr(head) Then

Set pointer.nextnode = Nothing

Set n = New node

Set n = pointer

End If

DoEvents

Loop While Not pointer.nextnode Is Nothing

Do

Set pointer = head

Set head = head.nextnode

Set pointer = Nothing

If ObjPtr(head) = ObjPtr(n) Then

Set head = Nothing

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中调试通过。

2829f2ca24f0d0090cbba57f30759f23.png

计算机二级VB辅导:循环链表以及相关操作.doc

下载Word文档到电脑,方便收藏和打印[全文共3048字]

编辑推荐:

8b95f2eb3d3f7ce4dc3bf1178c74941e.png

8b95f2eb3d3f7ce4dc3bf1178c74941e.png

8b95f2eb3d3f7ce4dc3bf1178c74941e.png

8b95f2eb3d3f7ce4dc3bf1178c74941e.png

8b95f2eb3d3f7ce4dc3bf1178c74941e.png

下载Word文档

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值