ASP.NET Ejercicio 01

•  Un curso se evalúa en base a cuatro notas de practicas de las cuales se elimina la nota menor y se promedia las tres notas mas altas.Diseña un programa que determine la nota eliminada y el promedio final de un alumno.

Protected Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
        Dim NUM1, NUM2, NUM3, NUM4, PROMEDIO, MIN As Double
        NUM1 = txtNOTA1.Text
        NUM2 = TXTNOTA2.Text
        NUM3 = TXTNOTA3.Text
        NUM4 = TXTNOTA4.Text

        MIN = NUM1
        If MIN > NUM2 Then MIN = NUM2
        If MIN > NUM3 Then MIN = NUM3
        If MIN > NUM4 Then MIN = NUM4

        PROMEDIO = (NUM1 + NUM2 + NUM3 + NUM4 - MIN) \ 3
        txtFINAL.Text = PROMEDIO

        txtELIMINADA.Text = MIN

    End Sub
End Class