ayuda urgente para contar vocales y consonantes
hola alguien que me ayude para poder programar un texto , donde me devuelban el total de vocales, cosonantes y otros caracteres, ademas saber en que posicion se encuentra el primer espacio en blanco.
Deberás usar un Select Case
Mira este ejemplo, supongamos que TX es la variable con la frase y filtramos solo las letras , es decir, ascii 65 a 90
Dim Vocales as Integer
Dim Consonantes as Integer
Dim Otros as Integer
dim i as Integer
Dim Car as String
Tx=Ucase$(TX)
For i = 0 to Len(TX)
Car = Mid(Tx , i , 1)
If Asc(Car) >= 95 And Asc(Car) <= 90
Select Case Car
Case "A","E","I","O","U"
Vocales = Vocales + 1
Case Else
Consonantes = Consonantes + 1
End Select
Else
Otros = Otros +1
End If
Next i
Saludos
Mira este ejemplo, supongamos que TX es la variable con la frase y filtramos solo las letras , es decir, ascii 65 a 90
Dim Vocales as Integer
Dim Consonantes as Integer
Dim Otros as Integer
dim i as Integer
Dim Car as String
Tx=Ucase$(TX)
For i = 0 to Len(TX)
Car = Mid(Tx , i , 1)
If Asc(Car) >= 95 And Asc(Car) <= 90
Select Case Car
Case "A","E","I","O","U"
Vocales = Vocales + 1
Case Else
Consonantes = Consonantes + 1
End Select
Else
Otros = Otros +1
End If
Next i
Saludos