Ejemplo en Consola Multiplos de un Numero en Visual Basic

Múltiplos de un Número con Visual Basic

En blog de Ingeniería en Sistemas recientemente un visitante me pidió que le ayudara con el siguiente ejercicio.

"Realizar una salida en consola mostrando los Múltiplos Del Numero 3 comprendidos entre los números 1 y 20".

Como ven es un ejercicio sencillo y claro que tenía el código así que se lo compartí. Para que le realizara las mejoras necesarias.

Los múltiplos de un numero se encuentran multiplicándolo por los números naturales 1, 2, 3, ... n.

Multiplos del 3 son: 3, 6, 9, 12 .....n

En este blog describen los múltiplos de un número:

https://luisamariaarias.wordpress.com/2011/11/12/1-multiplos/

El ejercicio es sencillo y para la primera forma solo vamos a utilizar tres variables:

        Dim n As Integer 'el numero

        Dim i As Integer 'el contador

        Dim multiplo As Integer 'para los multiplos

Supongamos que solo queremos los Múltiplos del Numero 3, n sería un valor fijo en el código.

Múltiplos del número 3 desde el numero 1 al 20

CODIGO EDITABLE

Module Module1

    Sub Main()

        'declaracion de variables

        Dim n As Integer 'el numero

        Dim i As Integer 'el contador

        Dim multiplo As Integer 'para los multiplos

        'los multiplos de un numero se encuentran multiplicandolo por los

        'numeros naturales 1, 2, 3, .... n

        'Ingresar valores para las variables estaticas

        n = 3

        'Pones un mensaje antes del ciclo, ojo dentro del ciclo no por

        'que se repetiría

        Console.WriteLine("Multiplos del 3 desde el 1 al 20 \n")

        'Realizar los procesos

        For i = 1 To 20 Step 1

            multiplo = n * i

            'Mostrar resultados en consola

            Console.WriteLine("{0} x {1} = {2}", n, i, multiplo)

        Next

        'Con este comando se congela pantalla, hasta tocar una tecla

        'Puedes probar sin ponerlo y veras que solo se ve unos segundos

        Console.ReadKey()

       

    End Sub

End Module

CÓDIGO CAPTURA DE PANTALLA

SALIDA EN CONSOLA

Pero veamos la variante si queremos que el programa sea dinámico y sirva para cualquier número entero ingresado. En este caso n debe ser ingresado por el usuario. Se mantiene mostrar resultados desde 1 a 20.

La solución es cencilla, solo cambiamos lo siguiente:

        'Ingresar valores para las variables estaticas

        n = 3

Lo cambiamos por:

        'Ingresar valores para las variables estaticas

        Console.Write("Ingrese un numero: ")

        n = Console.ReadLine

Esto permite que en lugar de dejar el valor de n estático en el código el número sea solicitado al usuario.

CODIGO EDITABLE

Module Module1

    Sub Main()

        'declaracion de variables

        Dim n As Integer 'el numero

        Dim i As Integer 'el contador

        Dim multiplo As Integer 'para los multiplos

        'los multiplos de un numero se encuentran multiplicandolo por los

        'numeros naturales 1, 2, 3, .... n

        'Ingresar valores para las variables estaticas

        Console.Write("Ingrese un numero: ")

        n = Console.ReadLine

        'Pones un mensaje antes del ciclo, ojo dentro del ciclo no por

        'que se repetiría

        Console.WriteLine("Multiplos del 3 desde el 1 al 20 \n")

        'Realizar los procesos

        For i = 1 To 20 Step 1

            multiplo = n * i

            'Mostrar resultados en consola

            Console.WriteLine("{0} x {1} = {2}", n, i, multiplo)

        Next

        'Con este comando se congela pantalla, hasta tocar una tecla

        'Puedes probar sin ponerlo y veras que solo se ve unos segundos

        Console.ReadKey()

       

    End Sub

End Module

CÓDIGO CAPTURA DE PANTALLA

SALIDA EN CONSOLA

Pero la pregunta original dice que el programa debe mostrar solo los Múltiplos del 3 que estén entre 1 y 20. Para eso vamos a utilizar una condicional IF de modo que el ciclo termine sí la variable múltiplo es mayor que 20.

Agregamos las siguientes líneas antes de imprimir resultados.

            If multiplo > 20 Then

                Exit For

            End If

CODIGO EDITABLE

Module Module1

    Sub Main()

        'declaracion de variables

        Dim n As Integer 'el numero

        Dim i As Integer 'el contador

        Dim multiplo As Integer 'para los multiplos

        'los multiplos de un numero se encuentran multiplicandolo por los

        'numeros naturales 1, 2, 3, .... n

        'Ingresar valores para las variables estaticas

        Console.Write("Ingrese un numero: ")

        n = Console.ReadLine

        'Pones un mensaje antes del ciclo, ojo dentro del ciclo no por

        'que se repetiría

        Console.WriteLine("Multiplos del 3 desde el 1 al 20 \n")

        'Realizar los procesos

        For i = 1 To 20 Step 1

            multiplo = n * i

          'Condicional para salir del ciclo cuando múltiplo supera 20

            If multiplo > 20 Then

                Exit For

            End If

            'Mostrar resultados en consola

            Console.WriteLine("{0} x {1} = {2}", n, i, multiplo)

        Next

        'Con este comando se congela pantalla, hasta tocar una tecla

        'Puedes probar sin ponerlo y veras que solo se ve unos segundos

        Console.ReadKey()

       

    End Sub

End Module

SALIDA EN CONSOLA

Si te gustó, si te sirvió deja comentarios y comparte en redes sociales.