VB: Encuentre el puntaje más alto, el puntaje más bajo y el número de estudiantes con puntajes superiores al promedio en un curso entre n estudiantes

Primero use un bucle para cargar los puntajes de N estudiantes en la matriz a(n), luego use un bucle for para encontrar el puntaje más alto y el puntaje más bajo, y al mismo tiempo encuentre el puntaje promedio de este curso, y finalmente use un bucle for para encontrar la cantidad de personas con puntajes superiores al promedio

Parte del código:

Aquí lo leo del archivo (. d:\student .txt) depende de la situación específica

abra "d:\student.txt" para ingresar como #1

haga mientras no sea eof(1)

Entrada #1, str

a(n)=val(str)

n=n+1

bucle

para x=0 a n-1 'Encuentra la puntuación promedio, la puntuación más alta, la puntuación más baja

sum=sum+a(x) 'Encuentra la puntuación total

if top (El valor inicial es a(0) o a(n))

top=a(x)

end if

si lowe (el valor inicial es a(0) o a(n))>a(x) entonces

lowe=a(x)

finaliza si

siguiente

avg=sum/n 'Puntuación promedio

para x=0 a n-1 y luego 'Encuentra el número de personas con una puntuación superior a la puntuación promedio

if a(x)>avg then

y=y+1 'Se utiliza para almacenar el número de personas con puntuaciones superiores a la media

end if

siguiente

........................

..... ........

jeje