Make your own free website on Tripod.com

 

EL Promedio

 

 

 

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 al siguiente cuadro:

 

 

Promedio

Puntuación

 

19-20

A

 

16-18

B

 

11-15

C

 

6-10

D

 

0-5

F

 

            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 = “F”

    Else: MsgBox “Error de datos”, vbCritical, “Mensaje”

    End If

End Sub

 

Programa el promedio modificando la curva o el arreglo como sigue:

 

 

Promedio

Puntuación

 

90-100

A

 

80-89

B

 

70-79

C

 

60-69

D

 

0-59

F

 

 

Home | VB |