Imports System

Public Module Module1

    Public Sub Main()

        'to display the sum and vareahe of 5 numbers  

        DIM count,sum, num1 As Integer 

        DIM average As Decimal

        count=0

        Do 

        Console.WriteLine("Enter a number")

        num1=Console.ReadLine()

        sum= sum + num1 

        count= count + 1

        Loop Until count >=5

        average = sum/count

        Console.WriteLine("The sum of five numbers is : "& sum &" and the average is : "& average & " and count is :"&count)

        Console.ReadLine()

    End Sub

End Module