INVERTENDO E CONTANDO VOGAIS
olá
eu gostaria de fazer assim
bom, tem um textbox e um botão
ai no textbox, eu digito, Alex
e na mensagem aparece xela e conta a vogal, tipo
xela
a=1
e=2
obs:só conta as vogais
eu fiz assim
msgbox strReverse(text1.text)
eu só não sei contar as vogais
eu gostaria de fazer assim
bom, tem um textbox e um botão
ai no textbox, eu digito, Alex
e na mensagem aparece xela e conta a vogal, tipo
xela
a=1
e=2
obs:só conta as vogais
eu fiz assim
msgbox strReverse(text1.text)
eu só não sei contar as vogais
Private Sub Command1_Click()
Label1.Caption = NumeroDeVogais(Text1.Text)
End Sub
Private Function NumeroDeVogais(Palavra As String) As Integer
Dim i As Integer
Dim Cont As Integer
If Trim(Palavra) Empty Then
For i = 1 To Len(Palavra)
If "AEIOU" Like "*" & UCase$(Mid$(Palavra, i, 1)) & "*" Then
Cont = Cont + 1
End If
Next
NumeroDeVogais = Cont
End If
End Function
Label1.Caption = NumeroDeVogais(Text1.Text)
End Sub
Private Function NumeroDeVogais(Palavra As String) As Integer
Dim i As Integer
Dim Cont As Integer
If Trim(Palavra) Empty Then
For i = 1 To Len(Palavra)
If "AEIOU" Like "*" & UCase$(Mid$(Palavra, i, 1)) & "*" Then
Cont = Cont + 1
End If
Next
NumeroDeVogais = Cont
End If
End Function
Tópico encerrado , respostas não são mais permitidas