Programación General > Visual Basic para principiantes

 Palindromo

(1/1)

zubrowska:
hola amigos quisira saber como puedo hacer para que un programa de diga si una palabra es un palindromo o no...Palindromo es aquellas palabras al derecho y al reves se leen igual...... ejemplo: 12321, gasag, casasac, etc

F_Tanori:
Hola esta es mi idea....

'//Un Form con un textbox(Text1) y un CommandButton (Command1)
//VB 6

Option Explicit

Private Sub Command1_Click()
Dim ls_Original As String, ls_Palabra As String, ls_Palabra_inv As String
Dim ls_Mensaje As String

    ls_Original = Trim(Me.Text1)
    ls_Palabra = LCase(Replace(ls_Original, " ", ""))
    ls_Palabra_inv = StrReverse(ls_Palabra)
    ls_Mensaje = IIf(ls_Palabra = ls_Palabra_inv, " SI ", " NO ")
    MsgBox "'" & UCase(ls_Original) & "' " & ls_Mensaje & " es Palindromo"

End Sub


Esa es una idea pero alguien puede tener una mejor espero te sea de ayuda
Cualquier correccion Bienvenida!


Saludos
Mexicali B.C.

zubrowska:
gracias me sido de ran ayuda el codigo

Navegación

[0] Índice de Mensajes