Imports System

​

'Aprameya Kannan

'Average Input 2

'01/13/2021

​

Public Module Module1

    Public Sub Main()

​

        'Declare Variables

        Dim sum As Integer = 0

        Dim num As Integer

        Dim count As Integer 

        Dim average As Single

        Dim userCount As Integer

        'User Input

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

        userCount = Console.ReadLine()

         'Calculations

        For I As Integer = 1 to userCount

            Console.WriteLine("Please enter value: ")

            num = Console.ReadLine()

            sum += num

            count += 1

        Next I

        average = sum/count

        'Output

        Console.Writeline("Average of Numbers: " & average)

    End Sub

End Module