Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB.NET Preguntas sobre números palíndromos.

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

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