Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim Num as Integer

        dim smallest as Integer

        dim largest as integer

        dim total as integer

        dim average as integer

        largest = 0

        smallest = 0

        total = 0

        average = 0

        num = 0

        while num < = 10

        console.WriteLine("Enter Number")

        Num = console.ReadLine()

        If Num > largest then

            largest = Num

        end if

        console.WriteLine(Num & "is largest")

        If Num < smallest then

            smallest = Num

        end if

        console.WriteLine(Num & "is smallest")

        end while

        total = Num*10

        console.WriteLine(Total & "is total")

        average = (total)/10

        console.WriteLine(Average & "is Average")

    End Sub

End Module