Lo Nuevo de Visual Studio

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.

multiplos-de-un-numero-multiplos-de-tres

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

multiplos-de-numero-3-visual-basic

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

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

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

ejemplo-multiplos-de-un-numero


SALIDA EN CONSOLA

ejemplo-multiplos-de-un-numero-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

ejemplo-multiplos-de-un-numero-con-visual-basic


SALIDA EN CONSOLA

ejemplo-multiplos-de-un-numero-con-visual-basic-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

ejemplo-multiplos-de-un-numero-con-visual-basic-consola2

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