Imports System, Microsoft.VisualBasic

'Aditya Bala

'1/21/2021

'Bowling Socres Program

Public Module Module1

    Public Sub Main()

        Dim numScore As Integer

        Dim score As Integer

        Dim value As Integer

        Dim maximum As Integer

        Dim minimum As Integer = 300                                                                       'Declare Variables

        Dim average As Single

        Dim count As Integer

        Console.WriteLine("Please enter the number of scores: ")                                           'Get User Input

        numScore = Console.ReadLine()

        For i As Integer = 1 to numScore 

            Console.WriteLine("Please enter the score: ")

            score = Console.ReadLine()

            If score > maximum Then

                maximum = score

            End If                                                                                            'Calulcations including For Next Loop and If Then Statement

            If score < minimum Then 

                minimum = score

            End If

            value += score

            count += 1

        Next i

        average = value/count                                                                              'Calculations

        Console.WriteLine("The maximum score is: " & maximum)

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

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

    End Sub

End Module