[不知道]

For i = 0 To w-1
For j = i To w
If c(i) < c(j) Then
a = n(i)
b = c(i)
h = e(i)
n(i) = n(j)
c(i) = c(j)
e(i) = e(j)
n(j) = a
c(j) = b
e(j) = h
End If
Next j
Next i

試試看,不過您c(n)到底是平均還是國文成績啊???

<參考>