Imports System

Public Module Module1

    Structure Node

        Dim Value as Integer

        Dim left as Integer

        Dim right as Integer

    End Structure

​

    Public Sub Main()

​

Dim Tree(8) As Node

Const nullPointer = -1

        Dim str as Integer

        Dim free as Integer

        Dim cur as Integer

​

        str = nullPointer

        freeptr = 0

​

        For i = 0 To 7

Tree(i).left = i+1

        Next

​

Tree(8).left = nullPointer

    Do

​

            Console.WriteLine(“Select from the following;”)

            Console.WriteLine(“ A - Insert A New Node “)

            Console.WriteLine(“ B - Delete A Node “)

            Console.WriteLine(“ C - Search For A Node “)

            Console.WriteLine(“ D - Display List in Order “)

            Console.WriteLine(“ E - Exit “)

            Dim Ans As Char = Console.ReadLine()

​

            Select Case Ans

                Case = “A”

                    Console.WriteLine(“Input Value for Insertion”)

                    Dim newval As Integer = Console.ReadLine()

                    PROCEDURE InsertNode(newData)•

​

IF freePointer<>nullPointer•

​

THEN•

​

NewNodePointerfreePointer•

​

freePointermyTree[freePointer].leftPointer•

​

myTree[NewNodePointer].leftPointernullPointer•

​

myTree[NewNodePointer].rightPointernullPointer

        IF rootPointer= nullPointer•

​

THEN•

​

rootPointerNewNodePointer•

​

ELSE•

​

ThisNodePointerrootPointer•

​

WHILE ThisNodePointer<> nullPointer DO•

​

PreviousNodePointer NewNodePointer•

​

IF myTree[ThisNodePointer].item > newData•

​

THEN•

​

TurnedLeftTRUE•

​

ThisNodePointermyTree[ThisNodePointer].leftPointer•

​

ELSE•

​

TurnedLeftFALSE•

​

ThisNodePointermyTree[ThisNodePointer].rightPointer•

​

ENDIF•

​

IF TurnedLeft=TRUE•

​

THEN•

​

myTree[PreviousNodePointer].leftPointerThisNodePointer•

​

ELSE•

​

myTree[PreviousNodePointer].rightPointerThisNodePointer•

​

ENDIF•

​

ENDIF

                Case = “B”

                    Console.WriteLine(“Input Value for Deletion”)

                    Dim delval As Integer = Console.ReadLine()

                    DeleteNode(delval, str, cur, free, prv, LinkedList)

                Case = “C”

                    Console.WriteLine(“Input Value for Search”)

                    Dim Sval As Integer = Console.ReadLine()

                    Search(Sval, str, cur, LinkedList)

                Case = “D”

                    Display(cur, str, LinkedList)

                Case = “E”

                    close = True

                Case Else

                    Console.WriteLine(“Please input a value between A and D inclusive”)

            End Select

        Loop Until close = True

​

    End Sub

End Module