PUNTUACION DE UN ESTUDIANTE

Cuatro notas entre 0 y 20 representan las calificaciones de un estudiante de un curso de programación. Elaborar una aplicación para obtener el promedio de esas calificaciones y visualizar su puntuación de acuerdo a lo siguiente:

Promedio
Puntuación
19-20 A
16-18 B
11-15 C
6-10 D
0-5 E

El diseño de la interfaz deberá ser similar a la figura mostrada:

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

7 etiquetas
7 cajas de texto
3 botones de comando
Luego, proceda a establecer las propiedades según se indica a continuación:

Form1

Nombre
FrmNotas

BorderStyle
3-Fixed Dialog

Caption
Puntuación de un estudiante

Label1

Nombre
LblAlumno

AutoSize
True

Caption
Alumno:

Label2

Nombre
LblN1

AutoSize
True

Caption
Nota 1:

Label3

Nombre
LblN2

AutoSize
True

Caption
Nota 2:

Label4

Nombre
LblN3

AutoSize
True

Caption
Nota 3:

Label5

Nombre
LblN4

AutoSize
True

Caption
Nota 4:


Label6

Nombre
LblPromedio

AutoSize
True

Caption
Promedio:

Label7

Nombre
LblPuntuacion

AutoSize
True

Caption
Puntuación:

Text1

Nombre
TxtAlumno

Text


Text2

Nombre
TxtN1

Text


Text3

Nombre
TxtN2

Text


Text4

Nombre
TxtN3

Text


Text5

Nombre
TxtN4

Text



Text6

Nombre
TxtPromedio

BackColor
&H80000004&

Locked
True

Text


Text7

Nombre
TxtPuntuacion

BackColor
&H80000004&

Locked
True

Text


Command1

Nombre
CmdAceptar

Caption
&Aceptar

Default
True

Command2

Nombre
CmdLimpiar

Caption
&Limpiar

Command3

Nombre
CmdSalir

Cancel
True

Caption
&Salir

Una vez establecidas las propiedades, proceda a ingresar el código que se indica:

Private Sub CmdAceptar_Click()
Dim N1 As Double, N2 As Double, N3 As Double, N4 As Double
Dim Promedio As Integer
N1 = Val(TxtN1) : N2 = Val(TxtN2)
N3 = Val(TxtN3) : N4 = Val(TxtN4)
Promedio = CInt((N1 + N2 + N3 + N4) / 4)
TxtPromedio = Str(Promedio)
If Promedio >= 19 And Promedio <= 20 Then
TxtPuntuacion = “A”
ElseIf Promedio >= 16 And Promedio <= 18 Then
TxtPuntuacion = “B”
ElseIf Promedio >= 11 And Promedio <= 15 Then
TxtPuntuacion = “C”
ElseIf Promedio >= 6 And Promedio <= 10 Then
TxtPuntuacion = “D”
ElseIf Promedio >= 0 And Promedio <= 5 Then
TxtPuntuacion = “B”
Else: MsgBox “Error de datos”, vbCritical, “Mensaje”
End If
End Sub