Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010

        Dim num, uni, aux, dec, cen As Integer
        Dim rpta As String
        Console.Write("Ingrese Numero de 3 Cifras:")
        num = Console.ReadLine
        If num >= 100 And num <= 999 Then
            cen = num \ 100
            aux = num Mod 100
            dec = aux \ 10
            uni = aux Mod 10
            If cen = uni Then
                rpta = "Numero es Capicua"
            Else
                rpta = "Numero no es Capicua"
            End If
        Else
            rpta = "Numero fuera de intervalo"
        End If      
        Console.WriteLine(rpta)
        Console.ReadKey()

'Prof. jhonatan abal mejia

Comentarios

Anónimo ha dicho que…
muy buena GRACIAS ME AYUDO UN MONTON sigue asi!

Entradas populares

Ejercicios Consola Visual Basic.NET

Procedimientos Almacenados ORACLE