AGPELE92 - Promedio

7.- Calcular el Promedio de un Alumno.

Realizar una aplicación en la cual pida el nombre del alumno, tres calificaciones, calcule el promedio y además que tenga opciones para que se le pueda cambiar de color ya sea rojo o negro, y que se le pueda cambiar a negrita o cursiva.

En el formulario se va a utilizar cinco etiquetas de texto, cinco cajas de texto, dos botones, dos marcos, y cuatro botones de opción.

Por otra parte, el código con el que este programa responde a los eventos es el contenido enlos siguientes procedimientos:

Botón Calcular:

Private Sub Cmdcalcular_Click()

Text5 = (Val(text2) + Val(Text3) + Val(Text4)) / 3

If Text5 > 9 Then

MsgBox "FELICIDADES TIENES BECA"

Else

MsgBox "LO SIENTO NO TIENES BECA"

End If

End Sub

Boton de opción Rojo:

Private Sub OptionButton3_Click()

Text5.ForeColor = &HFF&

End Sub

Boton de opción Verde:

Private Sub OptionButton4_Click()

Text5.ForeColor = &HFF00&

End Sub

Botón Salir:

Private Sub Cmdsalir_Click()

End

End Sub