二叉树类模块（原创）

最新推荐文章于 2022-11-26 17:10:12 发布

tonton

最新推荐文章于 2022-11-26 17:10:12 发布

阅读量1.1k

点赞数

分类专栏： Visual Basic 文章标签： vb function string class

本文链接：https://blog.csdn.net/tonton/article/details/376709

版权

Visual Basic 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "BinTree"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Key As String
Public Value As Variant
Attribute Value.VB_VarUserMemId = 0
Public Parent As BinTree
Public Left As BinTree
Public Right As BinTree

Private Sub Class_Initialize()
    Set Parent = Nothing
    Set Left = Nothing
    Set Right = Nothing
    Set Value = Nothing
End Sub

Public Property Get Root() As BinTree
    Set Root = Me
    Do While Not Root.Parent Is Nothing
        Set Root = Root.Parent
    Loop
End Property

Public Function FindBranch(ByVal sKey As String) As BinTree
    If sKey = Key Then
        Set FindBranch = Me
    Else
        Set FindBranch = Left.FindBranch(sKey)
        If FindBranch Is Nothing Then Set FindBranch = Right.FindBranch(sKey)
    End If
End Function