Programación VB.NET Preguntas sobre números palíndromos.
Agregue un botón y un cuadro de texto al formulario del proyecto WinForm y luego pegue el siguiente código.
Función pública lsH(ByVal n As String) Como cadena
Dim s1 As String = ""
Dim s2 As String = ""
Dim i As Integer = 0
Dim j As Integer
Si n.Length = 1 Entonces
Retorno ("Es un número palíndromo" )
De lo contrario
Si Tell_JiOu(n.Longitud) = 1 Entonces
j = (n.Longitud + 1) / 2
s1 = Medio(n, 1, j)
Si no
j = n.Longitud / 2 + 1
s1 = Medio(n, 1, j - 1)
Fin si
Para i = n.Longitud hasta j Paso -1
s2 = s2 + Mid(n, i, 1)
Siguiente
Si s1 = s2 Entonces
Devuelve "Es un número palíndromo"
De lo contrario
Return " No es un número palíndromo"
End If
End If
End Function
'Determinar la paridad de un número entero p>
Función pública Tell_JiOu(ByVal k As Integer) As Integer
Si k Mod 2 = 0 Entonces
Devuelve 2
De lo contrario
Retorno 1
Finalizar si
Función final
Subbotón privado1_Click(ByVal remitente como System.Object, ByVal y como System.Windows.RoutedEventArgs ) Maneja el Botón1 .Haga clic
Botón.Texto = lsH(TextBox1.Text)
Fin Sub