Tema: decir si un carácter es vocal, consonante, número o signo de puntuación
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 26/05/2010, 11:21
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 6 meses
Puntos: 29
Respuesta: decir si un carácter es vocal, consonante, número o signo de puntuación
Se puede mejorar...

Código vb: 
Ver original
  1. Dim Caracter
  2.     
  3.     Caracter = InputBox("Entre caracter: ")
  4.     
  5.     If IsNumeric(Caracter) = True Then
  6.       MsgBox "Es un numero"
  7.     
  8.     elseif LCase(Caracter)<>UCase(Caracter) Then ' Es una letra  
  9.  
  10.       If UCase(Caracter) = "A" Then
  11.         MsgBox "Es una vocal"
  12.       ElseIf UCase(Caracter) = "E" Then
  13.         MsgBox "Es una vocal"
  14.       ElseIf UCase(Caracter) = "I" Then
  15.         MsgBox "Es una vocal"
  16.       ElseIf UCase(Caracter) = "O" Then
  17.         MsgBox "Es una vocal"
  18.       ElseIf UCase(Caracter) = "U" Then
  19.         MsgBox "Es una vocal"
  20.       Else
  21.         MsgBox "Es una consonante"
  22.       End If   
  23.     
  24.     elseIf Caracter = "." Then
  25.       MsgBox "Es un signo de puntuacion"
  26.     Elseif Caracter = ":" Then
  27.       MsgBox "Es un signo de puntuacion"
  28.     ElseIf Caracter = "," Then
  29.       MsgBox "Es un signo de puntuacion"
  30.     End If



Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
Última edición por pkj; 26/05/2010 a las 11:31