解决“排名次”问题

喻远霖 2001年 30期??近来，我在学生考试完毕排定学习成绩的时候大伤了一番脑筋。后来，我试着用VB编写了一个“排名次”的程序：将已经统计好总分的一张成绩汇总表，按总分排出每个学生的名次。下面我就给大家简单介绍一下，希望能够对大家有所帮助。　　??首先，定义两个数组。一个数组CJ（N），用于存储每个学生的总分成绩（N为学生数），一个数组MC（N），用于存储相应的每个学生的名次。MC数组初始化为：　　??MC（1）=1，MC（2）=2，……，MC（N）=N　　??然后按照各人的总分，重新确定MC（N）的值：从第一个学生开始，将总分依次与其后的学生总分比较，根据比较的结果改变名次的值，方法如下：　　??先比较CJ（I）和CJ（J）：　　??若CJ（I）＜CJ（J），则MC（I）=MC（I）+1，MC（J）=MC（J）-1；　　??若CJ（I）=CJ（J），则MC（I）=MC（I）+1；　　??若CJ（I）＞CJ（J），则MC（I）、MC（J）的值都不改变。　　??按此算法，可得到各人的名次（分数相等，名次相同）。可将此算法编写为一个过程，代码如下：　　??Sub pmc（）??　　??For I=1 to n　　??Mc（i）=I　　??Next I　　??For I=1 to n-1　　??For j=I+1 to n　　??If cj（i）＜cj（j）then　　??Mc（i）=mc（i）+1　　??Mc（j）=mc（j）-1　　??Else if cj（i）=cj（j） then　　??Mc（i）=mc（i）+1　　??End if　　??End if　　??Next j　　??Next I　　??End sub　　??具体的程序这里就不赘述了。若你有更好的算法，敬请奉献给大家共享。