Imports System

Public Module Module1

    Public Sub Main()

        Dim grades(5) As String

        Dim i As Integer

        Dim countA As Integer

        Dim countB As Integer

        countA=0

        countB=0

        Console.Readline(grades(i))

        For i=1 To 5

            If (grades(i)="A") Then

            countA=countA+1

            Else If (grades(i)="B") Then

                countB=countB+1

            End If

        Next

            Console.Writeline("Number of A's are:")

            Console.Writeline(countA)

            Console.Writeline("Number of B's are:")

            Console.Writeline(countB)

    End Sub

End Module