Imports System

Public Module Module1

    Public Sub Main()

        Dim sInput(3) as string

        Dim total as integer

        Dim max as integer

        Dim num(3) as integer

        max=0

        'input 4 strings - 3 numbers separated by commas, store in sInput

    for i = 1 to 3

        Console.WriteLine("Enter a number: ")

        sInput(i) = console.ReadLine()

    next

​

        'display all strings - in columns, width 10. Headings - Num1, Num2, Num3

    Console.Writeline("{0,10}{1,10}{2,10}","Num 1","Num 2","Num 3")

    Console.Writeline("{0,10}{1,10}{2,10}",sInput(1),sInput(2),sInput(3))

        'convert string into integer

    For h = 1 to 3

        int.Parse(sInput(h))

Next

        'find the average of the first item ineach string

    For g = 1 to 3

        sInput(g) += total

    next

        total/=3

        Console.Write("Average: ")

        Console.WriteLine(total)

        'find  the maximum of the last item in each string

    For k = 1 to 3

        if sInput(k) > max then

            max = sInput(k)

        end if

    next

    End Sub

End Module