ayuda urgente para contar vocales y consonantes

BELEAN
24 de Mayo del 2005
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.

mvallejos
24 de Mayo del 2005
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