Problema de programación VB, rápido. tomar un examen

Dim?a()?

Dim?i es un número entero, n es un número entero, m es un número entero, la suma es doble y pjf es doble

n=Val(inputbox("Ingrese el número de estudiantes:"))

sum=0

For?i?=?1 ?to?n

redim?a(i)

a(i)=val(Inputbox("Ingrese el número de estudiantes:"? &?i?&?" calificación del estudiante:" ))

sum=?sum+a(i)

Siguiente?i

pjf=sum/n

Para?i ?=?1?to?n

si?a(i)>pjf?entonces?m=m+1

Siguiente?i

Imprimir? p>Imprimir?"Puntuación promedio para este curso:"? &?pjf

Imprimir?"El número de personas que obtuvieron puntuaciones superiores a la media es:"? &?m

¿Fin?