Necesito ayuda en una funcion que me saque si es vocal

[Avellaneda]

Iniciado por gokufast

necesito ayuda en una funcion que esta bien facil (creo), pero como no conozco mucho de VB quisiera una ayudita, es una Funcion una funcion que indique si la letra proporcionada como arguento es una vocal.

Mas o menos seria la cosa asi:

function es_vocal (x)
if x = "a" then
es_vocal = "si"
elseif x = "e" then
es_vocal = "si"
elseif x = "i" then
es_vocal = "si"
elseif x = "o" then
es_vocal = "si"
elseif x = "u" then
es_vocal = "si"
else es_vocal = "no"
endif
end function

ahora no se como expresarlo en lenguaje de visual basic.

Saludos

Puedes conseguirlo con el valor ascii de la letra. Esta función devuelve Verdadero si la letra es vocal (mayúscula o minúscula), en caso contrario devuelve Falso:

Código:

Function es_vocal(ByVal a As String) As Boolean
Select Case Asc(a)
Case 65, 69, 73, 79, 85, 97, 101, 105, 111, 117
    es_vocal = True
End Select
End Function

Saludos