Imports System

​

Public Module Module1

​

    Public Sub Main()

        Q1_()

        Dim thousanditems(999) As Integer

        Dim nRand As New Random()

        For i = 0 To 999

            thousanditems(i) = nRand.Next(1, 2000)

            Console.WriteLine("Item " & i & ": " & thousanditems(i))

        Next

​

        Call insertionSort(thousanditems)

        Console.ReadLine()

    End Sub

​

    Public Sub Q1_()

        Dim CurrentItem As Integer

        Dim List(9) As Integer

        Dim nTemp As Integer

        For i = 0 To 9

            Console.WriteLine("Populate a 10 item array")

            List(i) = Console.ReadLine()

        Next

​

        For j = 1 To 9

            nTemp = List(j)

            CurrentItem = j - 1

            Do While List(CurrentItem) > nTemp And CurrentItem >= 0

                List(CurrentItem + 1) = List(CurrentItem)

                CurrentItem = CurrentItem - 1 'to compare the next lower value with the original value using the while loop'

                If Not CurrentItem >= 0 Then

                    Exit Do

                End If

            Loop

​

            List(CurrentItem + 1) = nTemp 'inserting original value into the lowest array element we have compared with'

        Next

​

        Console.WriteLine("Sorted array: ")

        For n = 0 To 9

            Console.Write(List(n) & " ")

        Next

    End Sub

​

    Public Function insertionSort(array)

        Dim nTemp, CurrentItem As Integer

        For j = 1 To 999

            nTemp = array(j)

            CurrentItem = j - 1

            Do While array(CurrentItem) > nTemp And CurrentItem >= 0

                array(CurrentItem + 1) = array(CurrentItem)

                CurrentItem = CurrentItem - 1 'to compare the next lower value with the original value using the while loop'

                If Not CurrentItem >= 0 Then

                    Exit Do

                End If

            Loop

​

            array(CurrentItem + 1) = nTemp 'inserting original value into the lowest array element we have compared with'

        Next

​

        Console.WriteLine("Sorted array: ")

        For n = 0 To 999

            Console.Write(array(n) & " ")

        Next

    End Function

End Module