Imports System

Public Module Module1

    Public Sub Main()

        '    task1()

        '   task1_2()

        '    task1_3()

        '    task2()

        task3()

    End Sub

     Sub task1()

        ''create an array with 10 values, 1 to 10

        ''creating array

        Dim n1(9) As Decimal

        ''populating array

        Dim c As Integer ''assigning loop counter

        Do Until c > 9

            n1(c) = c + 1

            c = c + 1

        Loop

​

        ''outputting array

        For c = 0 To 9

            Console.WriteLine(n1(c))

        Next

        Console.ReadLine()

​

    End Sub

​

    Sub task1_2()

        ''same as previous one except numbers are odd

​

        Dim n12(9) As Decimal ''Array

        Dim c12 As Integer ''loop counter and index 

        Do Until c12 > 9

            n12(c12) = 2 * c12 + 1

            c12 = c12 + 1

        Loop

        ''results being output

        For c12 = 0 To 9

            Console.WriteLine(n12(c12))

        Next

        Console.ReadLine()

    End Sub

​

    Sub task1_3()

        ''same as previous except array is output starts from the end of the array

​

        Dim n13(9) As Decimal ''Array

        Dim c13 As Integer ''loop counter and index 

        Do Until c13 > 9

            n13(c13) = 2 * c13 + 1

            c13 = c13 + 1

        Loop

        ''results being output

        For c13 = 0 To 9

            Console.WriteLine(n13(9 - c13))

        Next

        Console.ReadLine()

    End Sub

    Sub task2()

        ''user inputs number to determine size of array. Array is populated with sqrt of numbers up to input

​

        ''user inputs size of array

        Console.WriteLine("Input the size of your array.")

        Dim i2 As Integer

        i2 = Console.ReadLine

​

        ''creating array of size n2

        Dim n2(i2) As Decimal

​

        ''loop for poplating array

        Dim c2 As Integer ''creating counter

        c2 = 0

        Do Until c2 > i2

            n2(c2) = Math.Sqrt(c2)

            c2 = c2 + 1

        Loop

​

        ''loop for outputting array

        Console.WriteLine("Below is your array with the squareroot of every number unitl your input value")

        For c2 = 0 To i2

            Console.WriteLine(n2(c2))

        Next

        Console.ReadLine()

    End Sub

    Sub task3()

        ''User inputs value to populate 10 item array. Array will be cancelled if -1 is entered. 

        Console.WriteLine("Enter the values for your array. There are 10 items and it will be cancelled if -1 is entered.")

        Dim n3(9) As Decimal    ''creating array

​

        ''populating array

        Dim l As Integer = 0    ''this is for output 2

        Dim l2 As Integer = 0

        Dim c3 As Integer = 0   ''loop counter

        Do Until c3 > 9     ''loop to make sure no more than 10 values are entered

            n3(c3) = Console.ReadLine

            If n3(c3) = -1 Then

                n3(c3) = 0

                l = c3

                c3 = 10

            Else l2 = c3 + 1

            End If

            c3 = c3 + 1

        Loop

        If l2 > l Then l = l2

        ''Sum of all numbers

        Dim sum As Decimal = 0

​

        c3 = 0

        Do Until c3 > 9

            sum = sum + n3(c3)

            c3 = c3 + 1

        Loop

​

        Console.WriteLine("The sum of all the items in the array is " & sum)

​

        ''Count of the numbers entered

        Console.WriteLine("There are " & l & " items in the array")

​

        ''Highest Value

        Dim max As Decimal = 0

        Dim maxpos As Integer

        c3 = 0

​

        Do Until c3 > l - 1

            If n3(c3) > max Then

                max = n3(c3)

                maxpos = c3

            End If

            c3 = c3 + 1

        Loop

        Console.WriteLine("The highest value is " & max)

​

        ''Lowest Value

        Dim min As Decimal = 0

        Dim minpos As Integer

        c3 = 0

        If n3(0) < n3(1) Then

            min = n3(0)

            minpos = 0

        Else

            min = n3(1)

            minpos = 1

        End If

        Do Until c3 > l - 1

            If n3(c3) < min Then

                min = n3(c3)

                minpos = c3

            End If

            c3 = c3 + 1

        Loop

        Console.WriteLine("The lowest value is " & min)

​

        ''How many items in the array shared the highest value

        Dim highmode As Decimal = 0

        c3 = 0

​

        Do Until c3 > l - 1

            If n3(c3) = max Then highmode = highmode + 1

            c3 = c3 + 1

        Loop

        Console.WriteLine("The highest value " & max & " has been entered " & highmode & " times")

​

        ''How many items in the array shared the lowest value

        Dim lowmode As Decimal = 0

        c3 = 0

​

        Do Until c3 > l - 1

            If n3(c3) = min Then lowmode = lowmode + 1

            c3 = c3 + 1

        Loop

        Console.WriteLine("The lowest value " & min & " has been entered " & lowmode & " times")

​

        Console.ReadLine()

    End Sub

End Module