Necesito ayuda en una funcion que me saque si es vocal

[r2ro]

Saludos gokufast

para el ejemplo que te doy necesitas un textbox, un boton y un label donde muestra el resultado. Si usas if anidados puedes correr el riesgo de que alguno no funcione y te devuelva un valor erroneo, es por eso que uso un case

Public Function vocal(ByVal x As String) As String
Select Case x
Case "a"
Return "si"
Case "e"
Return "si"
Case "i"
Return "si"
Case "o"
Return "si"
Case "u"
Return "si"
End Select
Return "no"
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim valor As String = TextBox1.Text
Label1.Text = vocal(valor)
End Sub

la funcion te devuelve un string si quieres te puede devolver un boolean y solo le cambias el tipo y en el return le colocas "true" o "false"


espero te sirva


r2ro