Programación VB: calcula el puntaje promedio de una clase y cuenta la cantidad de personas con puntajes superiores al promedio. El usuario ingresa el número de estudiantes en la clase y cada puntaje.

Private Sub Form_Click() Dim a(50) n = CInt(InputBox("Número de personas=")) Para i = 1 a n

a(i) = CInt (InputBox ("th" & i & "resultados de la persona:"))

s = s + a(i) Siguiente i s = s / n Para i = 1 To n

Si a(i) > s Entonces k = k + 1 Siguiente i MsgBox ("¿La puntuación promedio es " & s & "? El número de personas con puntuaciones más altas que la puntuación promedio es " & k)

Fin Sub