2015 - Programación en Microsoft Visual Studio .Net

Wednesday, July 1, 2015

Ejemplo de Tabla de Multiplicar Usando Visual Basic

July 01, 2015 0
Ejemplo de Tabla de Multiplicar Usando Visual Basic
Partiendo del siguiente Ejemplo en Consola para Mostrar los Múltiplos de un Número, que muestra los Múltiplos de un Número, vamos a realizar pequeños cambios de manera que el programa permita mostrar la Tabla de Multiplicar para cualquier número ingresado por el usuario.

Primero se debe solicitar al usuario el Numero, después se aplica el ciclo repetitivo que puede ser un While o un For, en el ejemplo he utilizado el For. Al momento de imprimir mostramos el número, el contador y el resultado.

Ejemplo de Tabla de Multiplicar en Visual Basic

Tabla de Multiplicar Usando Visual Basic


Como practica complementaria podrán notar que el código puede modificarse para mostrar la tabla de multiplicar de un numero hasta donde queramos, con un simple cambio que concistiría en cambiar el tope del contador, Tambien puede agregarse otro ciclo repetitivo para mostrar las tablas de varios números.


CODIGO EDITABLE

Module Module4
    Sub Main()

        'declaracion de variables
        Dim n As Integer 'el numero
        Dim i As Integer 'el contador
        Dim multiplo As Integer 'para los multiplos

        'Ingresar valores para las variables estaticas
        Console.Write("Ingrese un numero para mostrar tabla: ")
        n = Console.ReadLine

'Con esta línea se envía a consola un mensaje      
Console.WriteLine("Tabla de Multiplicar del numero {0}", n)

        'Realizar los procesos
        For i = 1 To 10 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
        'Pueden probar sin ponerlo y solo se ve unos segundos
        Console.ReadKey()

    End Sub
End Module


CAPTURA DE PANTALLA DEL CÓDIGO Y SALIDA EN CONSOLA

Ejemplo de Tabla de Multiplicar en Visual Basic

Ejemplo en Consola Multiplos de un Numero en Visual Basic

July 01, 2015 2
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.