Imports System

Public Module Module1

    Public Sub Main()

    Dim Number As Integer

    Dim Total As Integer

    Dim Mean As Integer

    Dim Highest As Integer

    Dim Lowest As Integer

    Dim LoopCounter As Integer

    For  LoopCounter = 1 to 12

        Console.WriteLine("Enter number " & LoopCounter)

        Number = Console.ReadLine()

        Total = Total + Number

        If Number > Highest Then

            Highest = Number

        End If

        If Number < Lowest Then

            Lowest = Number

        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