Imports System

'programa para calcular porcentaje de calificaciones 

​

Public Module Module1

    Public Sub Main()

        Dim unidadno1, unidadno2, unidadno3, unidadno4 as integer

        dim porcentaje as double

    ' Solicitar calificaciones para cada unidad

        Console.WriteLine("Ingresa la calificación para la Unidad 1: ")

       unidadno1  = Console.ReadLine()

​

        Console.WriteLine("Ingresa la calificación para la Unidad 2: ")

       unidadno2  = Console.ReadLine()

​

        Console.WriteLine("Ingresa la calificación para la Unidad 3: ")

        unidadno3  = Console.ReadLine()

​

        Console.WriteLine("Ingresa la calificación para la Unidad 4: ")

       unidadno4 = Console.ReadLine()

​

        'Porcentaje de cada unidad

        porcentaje = unidadno1 * .10

        porcentaje = unidadno2 * .25

        porcentaje = unidadno3 * .30

        porcentaje = unidadno4 * .35

        ' Calcular el porcentaje de todas las unidades 

        porcentaje = (unidadno1 + unidadno2 + unidadno3 + unidadno4)/4

        'mostrar porcentaje obtenido 

        Console.WriteLine("su porcentaje de calificaciones es: " &porcentaje) 

        If porcentaje> = 70 then

            Console.WriteLine("si pasa el año con buena nota")

        end if 

        If porcentaje< = 70 then 

                Console.WriteLine("perdiste el año")

        End if 

    End Sub

End Module