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.




Si te ha gustado el contenido colabora Compartiendo en Redes Sociales , y recomienda el blog a otras personas que trabajen en programación o enseñando Visual Basic y Visual C#.

Te Gusta! Apoyanos y Copartelo

  • Share to Facebook
  • Share to Twitter
  • Share to Google+
  • Share to Stumble Upon
  • Share to Evernote
  • Share to Blogger
  • Share to Email
  • Share to Yahoo Messenger
  • More...

1 comentario :

Deja un comentario

Gracias por tu comentario

Redes Sociales

Etiquetas/Labels

ADO .Net Anders Hejlsberg ASCII BCL Bibliografía Biblioteca de Clases Bjarne Stroustrup Blog de Programación C# C# Programa usando operadores Característica de C# Carateres ASCII CHTML Clases CLR CLS Códigos ASCII Comandos en Consola Componentes de C# Conceptos de Visual Basic Conceptos de Visual Studio Condicional Swicth Console.ReadLine Console.WriteLine Constantes contenido temático Creacion De Diagramas De Clases En Visual C# Creación de herencia en C# Creador de Lenguaje C# Creadores de Lenguajes CTS Cuadros de Dialogo DataSet Definiciones de Visual Basic Definiciones de Visual Studio Dennis Ritchie Diagrama de Clases en C# Diseñador de Clases C# Ejemplo C# Usando Operadores Ejemplo de Tabla de Multiplicar Ejemplo en C# Ejemplo Multiplos de 3 Ejemplos con Salida en Consola Ejemplos Visual Basic Ejercicios Programacion Encapsulacion Encapsulación de Campos en C# English-languaje versión installation Enlace de Datos Estructura básica de un programa en C# Estructura de Programa en C# Estructuras If FirstWeekYear Framework Función Date Función Time Funciones de Fecha Funciones de Fecha en Visual Basic Fundamentos de C# Glosario de Términos Glosario de Visual Basic Glosario Visual Studio .Net If Else Introducción a C# Lenguaje C Sharp Lenguajes de Programacion MessageBox MessageBoxButtons MessageBoxIcon Método Módulo MsgBox() MSIL Multiplos de 3 Multiplos de 3 con Visual Basic Multiplos de un Numero Namespace C# Nuevo Proyecto C# Operadores Aritméticos Operadores C# Operadores en Visual C# Operadores Lógicos Polimorfismo POO Primer Programa en C# Primer Programa en Visual Basic Primer Proyecto en C# Problemas de Instalación Programación en Consola Proyecto C# Que es una variable Read ReadLine Significado C# SQL Server SQL Server 2014 Tabla ASCII Tabla ASCII Completa Tabla de ascii Tabla de Caracteres ascii Tabla de Codigos ASCII Tabla de Codigos ASCII Completa Tabla de Multiplicar Tipos de Datos en C# Tipos de Lenguajes Todos los Códigos ASCII Un programa en C# Vaperadores y Operadores Variables Variables y Operadores visual basic Visual Basic .NET Visual Basic 2010 Visual C# Visual Studio Visual Studio .Net Visual Studio 2005 Visual Studio 2010 While Write WriteLine

Ultimos Temas Publicados

Google+ Seguidores

Este sitio esta alojado en namecheap.com, recomendamos por ser el mejor proveedor de hosting

Twitter Cuenta Oficial Visual Studio .Net

Libros de programación que recomendamos de las categorías Visual Studio, C#, Visual Basic

Red de Blogs de Ingenieria en Sistemas

Scroll to top