Visual Basic.NET How to Program (PDF)

1174 Data Structures and Collections Chapter 23
23 ' create Double tree
24 Dim doubleTree As CTree = New CTree()
25 populateTree(doubleArray, doubleTree, "doubleTree")
26 TraverseTree(doubleTree, "doubleTree")
27
28 ' create String tree
29 Dim stringTree As CTree = New CTree()
30 populateTree(stringArray, stringTree, "stringTree")
31 TraverseTree(stringTree, "stringTree")
32
33 End Sub ' Main
34
35 ' populate tree with array elements
36 Public Sub PopulateTree(ByVal array As Array, _
37 ByVal tree As CTree, ByVal name As String)
38
39 Dim data As IComparable
40 Console.WriteLine(vbCrLf & "Inserting into " & name & ":")
41
42 For Each data In array
43 Console.Write(Convert.ToString(data) & " ")
44 tree.InsertNode(data)
45 Next
46
47 End Sub ' PopulateTree
48
49 ' perform traversals
50 Public Sub TraverseTree(ByVal tree As CTree, _
51 ByVal treeType As String)
52
53 ' perform preorder traversal of tree
54 Console.WriteLine(vbCrLf & vbCrLf & _
55 "Preorder Traversal of " & treeType)
56
57 tree.PreorderTraversal()
58
59 ' perform inorder traversal of tree
60 Console.WriteLine(vbCrLf & vbCrLf & _
61 "Inorder Traversal of " & treeType)
62
63 tree.InorderTraversal()
64
65 ' perform postorder traversal of tree
66 Console.WriteLine(vbCrLf & vbCrLf & _
67 "Postorder Traversal of " & treeType)
68
69 tree.PostorderTraversal()
70
71 Console.WriteLine(vbCrLf)
72 End Sub ' TraverseTree
73
74 End Module ' CTreeTest2
Fig. 23.25 IComparable binary-tree demonstration (part 2 of 3).