Imports System

Public Module Module1

    Public Sub Main()

        dim howmany as integer

        dim num as integer

        dim total as integer

        dim highest as integer = 0

        dim lowest as integer = 99999999

        dim again as char = "y"

        do while again = "y"

            Console.WriteLine("How many numbers would you like to enter?")

        howmany = console.ReadLine()

    for i = 1 to howmany

        console.WriteLine("Enter an integer:")

        num = console.ReadLine()

        total = total + num

        if num > highest

            highest = num

        end if 

        if num < lowest

            lowest = num

        end if 

    next 

    console.WriteLine("Total is " & total)

    console.WriteLIne("Average is " & total / howmany)

    console.WriteLine("The highest number is " & highest)

    console.WriteLIne("The lowest number is " & lowest)

    console.WriteLine("the range is " & highest - lowest)

    console.WriteLIne("would you like to do this again")

    again = console.ReadLine()  

    loop

    console.WriteLIne("Bye!")

    End Sub

End Module