Ejemplos Visual Basic.net

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 proceso
        ns = sb + (nv * 0.1)


        Console.WriteLine("nuevo sueldo:" & ns)
        Console.Read()


Ejemplo3: Hallar el área de un rectángulo
        REM variable
        Dim B, h, A As Single
        REM leer
        Console.Write("base:")
        B = Console.ReadLine
        Console.Write("altura:")
        h = Console.ReadLine
        REM proceso
        A = (B * h)
        REM escribir
        Console.WriteLine("area del rectandulo:" & A)
        Console.Read()


Ejemplo4: Un alumno desea saber cuál será su calificación final en el curso de Programación I. Dicha calificación se compone de los siguientes porcentajes:

-         55% del promedio de sus tres calificaciones parciales.

-          30% de la calificación del examen final.

-          15% de la calificación de un trabajo final.

        REM VARIABLE
        Dim p1, p2, p3, exf, trf, NF As Double
        REM leer
        Console.Write("1ra nota parcial:")
        p1 = Console.ReadLine
        Console.Write("2da nota parcial:")
        p2 = Console.ReadLine
        Console.Write("3ra nota parcial:")
        p3 = Console.ReadLine
        Console.Write("examen final:")
        exf = Console.ReadLine
        Console.Write("trabajo final:")
        trf = Console.ReadLine
        REM proceso
        NF = (0.55 * ((p1 + p2 + p3) / 3)) + (0.3 * exf) + (0.15 * trf)
        REM leer
        Console.WriteLine("Nota Final:" & NF)
        Console.Read()


Ejemplo5: Tres personas deciden invertir su dinero para formar una empresa. Cada una de ellas invierte una cantidad distinta. Hacer un programa que imprima el porcentaje que cada quien invierte con respecto al total de la inversión
        REM variable
        Dim p1, p2, p3, a1, a2, a3 As Double
        REM LEER
        Console.Write("1er aporte:")
        p1 = Console.ReadLine
        Console.Write("2do aporte:")
        p2 = Console.ReadLine
        Console.Write("3er aporte:")
        p3 = Console.ReadLine
        REM procesos
        a1 = (p1 / (p1 + p2 + p3)) * 100
        a2 = (p2 / (p1 + p2 + p3)) * 100
        a3 = (p3 / (p1 + p2 + p3)) * 100
        REM escribir
        Console.WriteLine("porcentaje del 1er inversionista:" & a1 & "%")
        Console.WriteLine("porcentaje del 2do inversionista:" & a2 & "%")
        Console.WriteLine("porcentaje del 3er inversionista:" & a3 & "%")
        Console.Read()


Ejemplo6: Un individuo desea invertir su capital en un banco y desea saber cuánto dinero ganara después de un año, si el banco paga a razón de 2.3% mensual.
        REM variable
        Dim c, G As Double
        REM LEER
        Console.Write("capital:")
        c = Console.ReadLine
        REM proceso
        G = 12 * c * 0.023
        REM escribir
        Console.WriteLine("ganancia:" & G)
        Console.Read()