Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim current as Integer

        Dim total as Integer = 0

        Dim highest as Integer

        Dim lowest as Integer = 999

        Dim average as Integer

        Dim amount as Integer

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

        amount = Console.Readline()

        For i = 1 to amount

            Console.WriteLine("Enter a number:")

            current = Console.ReadLine()

            Total = Total + current

            If current > highest then

                highest = current

            End if

​

            If current < lowest then

                lowest = current

            End if

        Next

​

        Console.WriteLine("Total: " & Total)

        Console.WriteLine("Highest number: " & highest)

        Console.WriteLine("Lowest number: " & lowest)

        Average = total / amount

        Console.WriteLine("Average: " & average)

    End Sub

End Module

​