Programa de Como Contar Vocales y Consonantes Ingresadas

Module Module1

    Dim Letra As String

    Dim Contador As String

    Dim NVocales As Integer

    Dim NConsonantes As Integer

    Sub Main()

        NVocales = 0

        NConsonantes = 0

        For c = 1 To 10

            Console.WriteLine("Ingrese Letra")

            Letra = Console.ReadLine()

            Select Case

                Case "A"

                    NVocales = NVocales + 1

                Case "E"

                    NVocales = NVocales + 1

                Case "I"

                    NVocales = NVocales + 1

                Case "O"

                    NVocales = NVocales + 1

                Case "U"

                    NVocales = NVocales + 1

                    Letra = Letra + 1

                Case Else

                    NConsonantes = NConsonantes + 1

                    Console.WriteLine("Se ingresaron {0} vocales y {1} consonantes", NVocales, Letra)

                    Console.ReadLine()

            End Select

        Next

    End Sub

End Module