Determinar si un alumno aprobó el semestre Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que  dado una entrada 5 calificaciones de un alumno, se pide determinar:
a) Si el alumno aprobó o no el semestre de acuerdo al promedio final.
b) El número de materias aprobadas.
c) El número de materias reprobadas.

Solución

• Entrada: 10 15 12 15 12

• Salida: Aprobó el semestre con 1 curso desaprobado y 4 cursos aprobados

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nota() As Integer = {0, 0, 0, 0, 0}
        Dim sum As Integer = 0
        Dim cont1 As Integer = 0
        Dim cont2 As Integer = 0
        Nota(0) = TextBox1.Text
        Nota(1) = TextBox2.Text
        Nota(2) = TextBox3.Text
        Nota(3) = TextBox4.Text
        Nota(4) = TextBox5.Text
        For i As Integer = 0 To 4
            sum = sum + Nota(i)
            If (Nota(i) >= 11) Then
                cont1 = cont1 + 1
            Else
                cont2 = cont2 + 1
            End If
        Next i
        If ((sum / 5) >= 11) Then
            TextBox6.Text = "Aprobo el semestre con " +
                Trim(cont1) + " cursos aprobados " + Trim(cont2) +
                " cursos desaprobados"
        Else
            TextBox6.Text = "Reprobo el semestre con " +
            Trim(cont1) + " cursos aprobados " + Trim(cont2) +
            " cursos desaprobados"
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic