Imports System

Public Module Module1

    Public Sub Main()

        ' Definir los porcentajes para cada unidad

        Dim unidadno1, unidadno2, unidadno3, unidadno4 

        dim promedio as double

        Dim porcentajeUnidad1 As Double = 10

        Dim porcentajeUnidad2 As Double = 25

        Dim porcentajeUnidad3 As Double = 30

        Dim porcentajeUnidad4 As Double = 35

​

        ' Definir el puntaje deseado para pasar la materia

        Dim puntajeDeseado As Double = 70

​

        ' Calcular el porcentaje acumulado de las tres primeras unidades

        Dim porcentajeAcumulado As Double = porcentajeUnidad1 + porcentajeUnidad2 + porcentajeUnidad3

​

        ' Calcular los puntos necesarios en la Cuarta Unidad para alcanzar el puntaje deseado

        Dim puntosNecesarios As Double = (puntajeDeseado - (porcentajeAcumulado / 100 * puntajeDeseado)) / (porcentajeUnidad4 / 100)

​

        ' Mostrar los puntos necesarios en la Cuarta Unidad

        Console.WriteLine("Para pasar la materia con " & puntajeDeseado & " puntos, necesitas obtener al menos " & puntosNecesarios & " puntos en la Cuarta Unidad.")

 ' Calcular el promedio ponderado utilizando la regla de tres

        Dim unidad1, unidad2, unidad3, unidad4

        promedio = unidad1 * 10% / 100

        promedio = unidad2 * 25% / 100

        promedio = unidad3 * 30% / 100

        promedio = unidad4 * 35% / 100

        ' Calcular el promedio de todas las unidades 

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

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

        If promedio > 70 then

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

        end if 

            If promedio < 70 then 

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

    End Sub

End Module