promedio

Public Class frmEj3

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblC5.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, r As Double
        a = txtC1.Text
        b = txtC2.Text
        c = txtC3.Text
        d = txtC4.Text
        r = a + b + c + d
        r = r / 4
        txtProm.Text = r
        If r >= 8 Then
            txtRip.Text = "Exento"
        ElseIf r >= 6 Then
            txtRip.Text = "Aprobado"
        Else
            txtRip.Text = "Reprobado"


        End If

    End Sub
End Class