July 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
    Publicado por En No comments:
    Labels: , , , ,

    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:
    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

    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.
    Publicado por En 2 comments:
    Labels: , , , , , , ,