decir si un carácter es vocal, consonante, número o signo de puntuación

[minette1988]

Hola, tengo que hacer un ejercicio que me pida introducir un carácter de teclado y determinar si es vocal, consonante, número o signo de puntuación. A ser posible usar Option explicit e Inputbox.

[lokoman]

Hola otra vez!

Completa el codigo con los signos que falten:

Código vb:

Private Sub Command4_Click()
    Dim Caracter
    
    Caracter = InputBox("Entre caracter: ")
    
    If IsNumeric(Caracter) = True Then
        MsgBox "Es un numero"
        Exit Sub
    End If
    
    If LCase(Caracter) = LCase("A") Then
        MsgBox "Es una vocal"
    Else
        If LCase(Caracter) = LCase("E") Then
            MsgBox "Es una vocal"
        Else
            If LCase(Caracter) = LCase("I") Then
                MsgBox "Es una vocal"
            Else
                If LCase(Caracter) = LCase("O") Then
                    MsgBox "Es una vocal"
                Else
                    If Caracter = LCase("U") Then
                        MsgBox "Es una vocal"
                    End If
                End If
            End If
        End If
    End If
    
    If Caracter = "." Then
        MsgBox "Es un signo de puntuacion"
    Else
        If Caracter = ":" Then
            MsgBox "Es un signo de puntuacion"
        Else
            If Caracter = "," Then
                MsgBox "Es un signo de puntuacion"
            End If
        End If
    End If
End Sub
 

[pkj]

Se puede mejorar...

Código vb:

Dim Caracter
    
    Caracter = InputBox("Entre caracter: ")
    
    If IsNumeric(Caracter) = True Then
      MsgBox "Es un numero"
    
    elseif LCase(Caracter)<>UCase(Caracter) Then ' Es una letra  
 
      If UCase(Caracter) = "A" Then
        MsgBox "Es una vocal"
      ElseIf UCase(Caracter) = "E" Then
        MsgBox "Es una vocal"
      ElseIf UCase(Caracter) = "I" Then
        MsgBox "Es una vocal"
      ElseIf UCase(Caracter) = "O" Then
        MsgBox "Es una vocal"
      ElseIf UCase(Caracter) = "U" Then
        MsgBox "Es una vocal"
      Else
        MsgBox "Es una consonante"
      End If   
    
    elseIf Caracter = "." Then
      MsgBox "Es un signo de puntuacion"
    Elseif Caracter = ":" Then
      MsgBox "Es un signo de puntuacion"
    ElseIf Caracter = "," Then
      MsgBox "Es un signo de puntuacion"
    End If
 

Saludos

[donyoyo]

se puede simplificar aun mas ...


numeros="01234567890"
vocales="AEIOU"
consonantes="BCDFGHJKLMNPQRSTVWXYZ"
signos=",.:;"

Caracter=Ucase(Caracter)

if (Instr(numeros,Caracter) <> 0) then msgbox "numero"
if (Instr(vocales,Caracter) <> 0) then msgbox "vocal"
if (Instr(consonantes,Caracter) <> 0) then msgbox "consonante"
if (Instr(signos,Caracter) <> 0) then msgbox "signos"

pd: como le hacen para meter el codigo en esos frames con lineas y todo ?

[lokoman]

Usa el combo "HIGHLIGHT">"VBSCRIPT", escribe entre los tags que crea y listo!