Imports System

Public Module Module1

    Public Sub Main()

        Dim NoOfPlayers As Integer

        Dim StrokesPerHole As Integer

        Dim NoOfHoles As Integer

        Dim CoursePar As Integer

        Dim ValidCoursePar As Boolean= False

        Dim StrokesPerHole2 As Integer

        Dim ViewScores As String

        Dim ValidStokes As Boolean= False

        Dim AverageRoundScore As Double

        Dim AverageHoleScore As Double

        Dim GrantTotalScore As Integer

        Dim HoleTotal As Integer

        Dim LowestPar As Integer= 100

        Dim Winner As Integer

        Dim Total as integer 

        Do

            Console.WriteLine("Enter Number of players (2, 3 or 4)")

            NoOfPlayers = Console.ReadLine()

            Loop Until NoOfPlayers >= 2 And NoOfPlayers <= 4

            Do

            Console.WriteLine("Enter Number of Holes (2,3)")

            NoOfHoles=Console.ReadLine()

            Loop Until NoOfHoles =  2 Or NoOfHoles = 3

        Do

            Console.WriteLine("Enter Course par (>=30 and less than = 100)")

            CoursePar = Console.ReadLine()

            If NoOfHoles = 9 Then

                If CoursePar >= 30 And CoursePar <= 50 Then

                ValidCoursePar = True

                Else

                Console.WriteLine("Enter a valid course par between 30 and 50")

                End If

                Else

            If  CoursePar >= 30 And CoursePar <= 100 Then

                ValidCoursePar = True

                Else Console.WriteLine("Enter a valid course par between 30 and 100")

                End If

                End If

            Loop Until ValidCoursePar = True 

        Dim Names(NoOfPlayers -1) As String 

        Dim scores(NoOfHoles -1, NoOfPlayers -1) As Integer

        Dim TotalScores(NoOfPlayers -1) As Integer

        For  r = 0 To NoOfHoles -1

        For c = 0 To NoOfPlayers -1

        scores(r, c) = 0

    Next

Next

​

​

​

​

​

For i = 0 To NoOfPlayers -1

Console.WriteLine("Enter Player "& i + 1 & " Name ")

Names(i) = Console.ReadLine()

Next

Console.WriteLine("Number of players taking part : "& NoOfPlayers)

Console.WriteLine("The players are ")

For i = 0 To NoOfPlayers -1

Console.WriteLine(i + 1 & "".PadLeft(5) & Names(i))

Next 

Console.WriteLine("Number of holes to be played : "& NoOfHoles)

Console.WriteLine("The par for the course : "& CoursePar)

​

​

Console.WriteLine("Entering stokes for each hole : ")

For c = 0 To NoOfPlayers -1

Console.WriteLine("Entering Strokes for "& Names(c))

For r = 0 To NoOfHoles -1

Do 

Console.WriteLine("Enter strokes for hole "& r + 1)

StrokesPerHole = Console.ReadLine()

Console.WriteLine("Re-enter strokes for hole "& r + 1)

StrokesPerHole2 = Console.ReadLine()

If StrokesPerHole = StrokesPerHole2 Then 

scores(r, c) = StrokesPerHole

TotalScores(c) = TotalScores(c) + StrokesPerHole

ValidStokes = True

Else

Console.WriteLine("Strokes for hole "& r + 1 & "Do not match, Please re-enter")

ValidStokes = False

End  If

Loop  Until ValidStokes = True

Console.WriteLine("Do you want to view current scores (Yes/No)")

ViewScores = Console.ReadLine()

​

If ViewScores = "Yes" Or ViewScores = "yes"  Then 

Console.WriteLine("Name of player      "& Names(c))

Console.WriteLine("Holes played so far "& r + 1)

Console.WriteLine("Current score       "& TotalScores(c))

End If 

Next

Next

For x = 0 To NoOfPlayers -1

Console.Write(Names(x) & "".PadLeft(8))

Next

Console.WriteLine()

For r = 0 To NoOfHoles -1

For c = 0 To NoOfPlayers -1

Console.Write(scores(r, c) & " ".PadLeft(8))

Next

Console.WriteLine()

Next

Console.WriteLine("Total Scores")

Console.WriteLine()

For x = 0 To NoOfPlayers -1

Console.Write(TotalScores(x) & "".PadLeft(8))

If TotalScores(x)<LowestPar Then

LowestPar = TotalScores(x)

Winner = x

End If

Next 

​

Console.WriteLine("The winner is "& Names(Winner))

LowestPar = LowestPar -CoursePar

If LowestPar > 0 Then 

Console.WriteLine("Total score is "& LowestPar & " Overpar")

Else Console.WriteLine("Total score is "& LowestPar * -1 & " Underpar")

End if 

For t = 0 To NoOfPlayers -1

​

Total = GrantTotalScore + Total

​

Next 

AverageRoundScore = GrantTotalScore / NoOfPlayers

Console.WriteLine("The average score for the round is "& AverageRoundScore)

​

​

For r = 0 To (NoOfHoles -1)

HoleTotal = 0

For c = 0 To NoOfPlayers -1

HoleTotal = HoleTotal + scores(r, c)

Next

AverageHoleScore = HoleTotal / NoOfPlayers

Console.WriteLine("Hole number  "& r + 1 & " Average Score  "& AverageHoleScore)

Next

​

​

Console.WriteLine("List of players with a hole in 0ne")

For c = 0 To NoOfPlayers -1

For r = 0 To NoOfHoles -1

If scores(r, c) = 1 Then

Console.WriteLine("Player Name ".PadLeft(4) & Names(c) & "  Hole Number  "& r + 1)

End If

Next

Next

​

​

​

​

    End Sub

End Module