MINI PROJETO 07

Module Module1
    Sub Main()
        Dim I As Integer
        Dim numvogais As Integer
        Dim vogais As String
        Dim str As String

        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")
        Console.WriteLine("_____ MINI PROJETO 07 _____")
        Console.WriteLine("")
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")

        vogais = “aeiou”

        Console.Write(“Digite uma frase: ”)
        str = Console.ReadLine()
        str = Trim(str)
        str = LCase(str)

        For I = 1 To Len(str)
            If InStr(vogais, Mid(str, I, 1)) Then
                numvogais = numvogais + 1
            End If
        Next

        Console.WriteLine("")

        Console.WriteLine(“O número total de vogais é: ” & numvogais)

        'Contar o número de palavras

        Console.WriteLine("")

        Dim palavras_seperadas As String()
        Dim cada_palavra As String
        Dim numeros As Integer = 0
        Dim abc As String = "abcdefghijklmnopqrstuvwxyz"
        Dim apenas_letras As Boolean

        palavras_seperadas = Split(str)


        For Each cada_palavra In palavras_seperadas
            apenas_letras = False

            For I = 1 To Len(cada_palavra)
                If InStr(abc, Mid(cada_palavra, I, 1)) > 0 Then
                    apenas_letras = True
                Else
                    apenas_letras = False
                    Exit For
                End If
            Next

            If apenas_letras = True Then
                numeros = numeros + 1
            End If

        Next
        Console.WriteLine("Número total de palavras: " & numeros)

        Console.ReadKey()

    End Sub

End Module