Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

    End Sub

    Public Sub Task2()

        'initialise an array from input

        'finds its max, min, 2ndmax, 2ndmin

        'initialise the array

        Dim nArraySize as integer = 4

        Dim nNumbers(nArraySize - 1) as decimal

        for i = 0 to nNumbers.GetUpperBound(0)

            console.WriteLine("Enter a Number")

        nNumbers(i) = getInput("Enter a Number")

        Next

    End sub

​

    Public Function getInput(sPrompt as string)

        console.WriteLine(sPrompt)

        Dim sInput as string

        sInput = console.ReadLine()

        Return sInput

     end function

End Module