'Juan Campos

'January 11 2021

'Average Input

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim Sum As Single       'Declare Variables

        Dim Num As Single

        Dim Count As Single

        Dim Average As Integer = 0

        Do

            Console.Write("Enter number, or -1 when finished: ")            'Get user input

        Num = Console.ReadLine()

            Count+=Num

            Average+=1

    Loop while Num <> -1                        

            Sum = (Count + 1)/ (Average - 1)                        'Equation

            Console.WriteLine(Sum)                  'Output

    End Sub

End Module