Question

Desarrollar un programa en VBA, usando la estructura repetitiva FOR-NEXT, que capture 5 notas de un estudiante por medio de un input box y que luego calcule el promedio mostrando el resultado en pantalla por medio de un msgbox.

Answer 1

Respuesta:

Use Visual Basic 6.0

Explicación:

Private Sub Command1_Click()

Dim Suma As Double

Suma = 0

For i = 1 To 5 Step 1

   Nota = InputBox("Ingrese la Nota ", "Ejemplo")

   Suma = Suma + Val(Nota)

Next

Promedio = Suma / 5

MsgBox "La suma es: " + Str(Suma)

MsgBox "El promedio es: " + Str(Promedio)

End Sub

Private Sub Command2_Click()

Unload Me

End Sub