Postada em 01/04/2012 23:02 hs
Sou novo no forum e preciso de ajuda para contar as vogais e as consoantes de uma frase, eu consigo fazer a contagem de quantas palavras tem uma frase.
Estou usando o Visual Basic 2010
Class Frase
Public aFrase As String
Public Function Num_Palavras() As String
Dim cont As Integer
Do While aFrase.IndexOf(Space(2)) >= 0
aFrase = aFrase.Replace(Space(2), Space(1))
Loop
cont = Split(aFrase, Space(1)).Length
Return ("A frase contém " & cont & " palavras")
End Function
Public Function Num_Vog(ByVal Expression As String,
End Function
End Class
Sub Retorna_Frase()
Dim x As New Frase
Console.WriteLine()
Console.WriteLine("Digite uma frase")
Console.WriteLine()
x.aFrase = CStr(Console.ReadLine())
Console.WriteLine(x.Num_Palavras)
Console.WriteLine()
End Sub
Sub Retorna_Vogal()
Dim x As New Frase
End Sub
|
