Imports System

Public Module Module1

    Public Sub Main()

        Dim UserNumber as Integer

        Dim Total As integer = 0 

        Dim mean as decimal 

        Dim Highest as integer = -999

        Dim lowest as integer = 99

        Dim Loopcounter as integer 

        For Loopcounter = 1 to 10  

            Console. Writeline("Enter Number" & Loopcounter)

            UserNumber = Console.Readline ()

        Total = Total + Usernumber 

        If UserNumber > Highest Then 

            Highest = UserNumber

        End if

        If UserNumber < Lowest Then 

            Lowest = UserNumber

        End if

    Next 

    Mean = Total / 10

    Console.Writeline("Total =" & Total)

    Console.Writeline("Mean =" & Mean)

    Console.Writeline("Highest =" & Highest)

    Console.Writeline("Lowest =" & Lowest)

    End Sub

End Module