Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Total As Integer = 0

        Dim Num As Integer

        Dim Count As Integer

        Dim Ave As Integer

        For Count = 1 To 5

        Console.Write("Enter a number: ")

        Num = Console.Readline()

        Total = Total + Num

    Next

    Count = Count - 1

    Ave = Total / Count

    Console.Writeline("The total of the " & Count & " numbers is " & Total)

    Console.Writeline("The average of the " & Count & " numbers is " & Ave)

    End Sub

End Module

​