Blog JAMcode

Ejercicios de Bucle FOR en Visual Basic.NET 1. Leer un rango de números enteros e imprimir x pantalla los pares encontrados         Dim vi, vf As Integer         Dim x As Integer         REM LEER         Console.Write("Ingrese Rango Inicial: ")         vi = Console.ReadLine         Console.Write("Ingrese Rango Final: ")         vf = Console.ReadLine         REM PROCESO         For x = vi To vf             If (x Mod 2) = 0 Then                 Console.WriteLine(x)             End If         Next         Console.ReadLine() 2. Leer un rango de números enteros e imprimir x pantalla los impares encontrados         Dim vi, vf As Integer         Dim x As Integer          REM LEER         Console.Write("Ingrese Rango Inicial: ")         vi = Console.ReadLine         Console.Write("Ingrese Rango Final: ")         vf = Console.ReadLine         REM PROCESO         For x = vi To vf             If (x Mod 2) <> 0 The

Ejercicios de Algoritmos Secuenciales Resueltos en Visual Basic 2010 Ejemplo1: Hallar el área de un trapecio        REM variable        Dim bma, bme, h, A As Double         REM leer         Console.Write("base mayor:")         bma = Console.ReadLine         Console.Write("base menor:")         bme = Console.ReadLine         Console.Write("altura:")         h = Console.ReadLine         REM proceso         A = ((bma + bme) / 2) * h         REM escribir         Console.WriteLine("area del trapecio:" & A)         Console.Read() Ejemplo2:  Un vendedor que tiene su sueldo base, recibe una comisión del 10% del total de las ventas del mes. Él quiere saber cuánto ganará en un mes.         REM variable         Dim sb, nv, ns As Double         REM leer         Console.Write("sueldo base:")         sb = Console.ReadLine         Console.Write("total de ventas:")         nv = Console.ReadLine         REM proces