Buscando código de clasificación de puntuación de programación VB

Dim i, j As Integer

Dim num(5), score(5) As Integer 'El número de matriz se usa para registrar el número de estudiante y se usa la puntuación de la matriz para registrar la puntuación

Para i = 1 a 5

nx = "Ingrese el número de estudiante del estudiante " Str(i) ""

sx = "Ingrese el " Str(i) número de estudiante" (i) "puntuaciones de los estudiantes"

num(i) = InputBox(nx, "cuadro de entrada de datos", predeterminado)

score(i) = InputBox(sx, "Cuadro de entrada de datos", predeterminado)

Siguiente i

Para i = 1 a 4

Para j = 1 a 5 - i

Si puntuación(j) lt; puntuación(j 1) Entonces

temp = puntuación(j)

puntuación(j) = puntuación(j 1)

puntuación(j 1) = temp

temp = num(j)

num(j) = num(j 1)

num(j 1) = temp

Fin si

Siguiente j

Siguiente i

Para i = 1 a 5

Imprimir "ID del estudiante:"; num(i) "Puntuación:";

Imprimir

Siguiente yo