none
Cambiar el orden de los caracteres RRS feed

  • Pregunta

  • Existen unas palabras llamadas "palíndromas" estas son las que al escribirse del final al inicio lucen = a ser escritas del inicio al final. Por ejemplo "ojo". Necesito que mi programa indique si la palabra es palíndroma o no. Hasta ahora tengo esto, pero necesito voltear las letras del TextBox2 pero me han dicho que no puedo usar los comandos de reverse. ¿Alguien me puede ayudar?


    Public Class Form1
        Dim m As Integer
        Dim o As String

        Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Chr(13) Then
                m = Len(TextBox1.Text)
                o = Mid(TextBox1.Text, 1, m)
                TextBox2.Text = o
                If TextBox1.Text = TextBox2.Text Then
                    MsgBox("La palabra es palídroma")
                Else
                    MsgBox("La palabra no es palíndroma")
                End If
            End If
        End Sub
    End Class
    domingo, 2 de febrero de 2020 22:47

Todas las respuestas

  • Puedes usar una función que recorra la cadena en orden inverso para formar la cadena al revés:

    Public Function strReverse(Cadena As String) As String

    Dim n As Integer
    For n = Len(Cadena) To 1 Step -1
       strReverse = strReverse & Mid(Cadena, n, 1)
    Next n

    End Function


    Saludos, Javier J

    lunes, 3 de febrero de 2020 7:18