'Tyler Katsoff

'1/14/21

'Average Input Program

Imports System

Public Module Module1

    Public Sub Main()

        Dim sum, num, average, numvalues As Single 'Declaring Variables

        Console.write("Please enter a number of values: ")

        numvalues = Console.ReadLine() 'Get User Input

        For i As Integer = 1 To numvalues 

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

            num = Console.ReadLine()

            sum += num

        Next i

    average = sum/numvalues 'Calculations

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

    End Sub

End Module