Imports System

Public Module Module1

    Public Sub Main()

        dim total as integer

        dim LoopCounter as integer

        dim number as integer

        dim mean as decimal

        total=0

        For LoopCounter= 1 TO 5

        Console.WriteLine("enter number" & LoopCounter )

            number = Console.ReadLine()

            total = total + number

        next

        mean = total / 5

        Console.WriteLine("the mean=" & mean)

    End Sub

End Module

​

        'PSEUDOCODE

        '----------

        'INTEGER: total, LoopCounter, number

        'REAL: mean

        'OUTPUT "Enter Number"

        'INPUT NUMBER , LoopCounter

        'total<--number , "*" , LoopCounter

        'mean <-- total / 5

        'OUTPUT "the mean of 5 numbers", "=", mean

​

​