二叉树类模块(原创)

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

阅读更多
文章标签: vb function string class
个人分类: Visual Basic
上一篇多分支树的类模块(原创)
下一篇与VB对应的字符串函数之一:Instr, InstrRev
想对作者说点什么? 我来说一句

二叉树c++源码(原创

2008年07月26日 1KB 下载

免费在线伪原创PHP版

2010年02月08日 637KB 下载

没有更多推荐了,返回首页

关闭
关闭