jun2010 comp1 practical code

Module Module1

    Sub Main()
        Dim PlayerOneScore As Integer = 0
        Dim PlayerTwoScore As Integer = 0
        Console.WriteLine("How many games?")
        Dim NoOfGamesInMatch As Integer
        NoOfGamesInMatch = Console.ReadLine()
        For NoOfGamesPlayed = 1 To NoOfGamesInMatch
            Console.WriteLine("Did player One win the game (enter Y or N)?")
            If Console.ReadLine() = "Y" Then
                PlayerOneScore = PlayerOneScore + 1
            Else
                PlayerTwoScore = PlayerTwoScore + 1
            End If
        Next
        Console.WriteLine(PlayerOneScore)
        Console.WriteLine(PlayerTwoScore)
        Console.Read()
    End Sub

End Module