Visual Basic.NET How to Program (PDF)

1166 Data Structures and Collections Chapter 23
1 ' Fig. 23.21: TreeTest.vb
2 ' This program tests class CTree.
3
4 ' Deitel namespaces
5 Imports BinaryTreeLibrary
6
7 Module modTreeTest
8
9 ' test class CTree
10 Sub Main()
11 Dim tree As CTree = New CTree()
12 Dim insertValue As Integer
13 Dim i As Integer
14
15 Console.WriteLine("Inserting Values: ")
16 Dim randomNumber As Random = New Random()
17
18 ' insert 10 random integers from 0-99 in tree
19 For i = 1 To 10
20 insertValue = randomNumber.Next(100)
21 Console.Write(insertValue & " ")
22 tree.InsertNode(insertValue)
23 Next
24
25 ' perform preorder traversal of tree
26 Console.WriteLine(vbCrLf & vbCrLf & "Preorder Traversal")
27 tree.PreOrderTraversal()
28
29 ' perform inorder traversal of tree
30 Console.WriteLine(vbCrLf & vbCrLf & "Inorder Traversal")
31 tree.InOrderTraversal()
32
33 ' perform postorder traversal of tree
34 Console.WriteLine(vbCrLf & vbCrLf & "Postorder Traversal")
35 tree.PostOrderTraversal()
36
37 Console.WriteLine()
38 End Sub ' Main
39
40 End Module ' modTreeTest
Inserting Values:
83 13 83 96 81 26 25 13 10 89
Preorder Traversal
83 13 10 81 26 25 96 89
Inorder Traversal
10 13 25 26 81 83 89 96
Postorder Traversal
10 25 26 81 13 89 96 83
Fig. 23.21 Tree-traversal demonstration.