'Owen Chin

'This program "finds the average input"

'1/13/21

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim runTime, value, total As Integer

        Dim average As Single

        Console.Write("Please enter the number of values: ")

        runTime = Console.Readline()

        For num as Integer = 1 to runTime

            Console.WriteLine("Please enter a value: ")

            value = Console.Readline()

            total += value

        Next num

        average = total / runTime

    Console.WriteLine("The average is: " & average)

    End Sub

End Module