在数据库的两张数据表中有各有一批学生的考试成绩，小吴要将两张表中的数据读取并按成绩从高到低排列输出．成绩相同时，第一批学生优先输出．小吴编写了一个VB程序，程序运行时，将相关信息分别读入数组cj和xm的前后两段，单击按钮 Command1 后，在列表框List1中输出运行结果．实现上述功能的 VB 代码如下，但加框处代码有错，请改正：
Dim  xm（1to 1000）as string'存储学生姓名
Dim  cj（1to 1000）as integer'存储学生成绩
Dim  rs1  as  integer'第一批学生人数
Dim  rs2  as  integer'第二批学生人数
Private Sub Form_Load'该处具体代码省略
'第1步：从数据库读取第1批学生的人数rs1，按成绩从高到低的顺序将成绩存入cj（1）、'cj（2）…cj（rs1）中，姓名存入xm（1）、xm（2）…xm（rs1）中
'第2步：从数据库读取第2批学生的人数rs2，按成绩从高到低的顺序将成绩存入'cj（rs1+1）、cj（rs1+2）…cj（rs1+rs2）中，姓名存入xm（rs1+1）、xm（rs1+2）…xm（rs1+rs2）中
End Sub
Private Sub Command1_Click
i=1'i表示第一批中，尚未输出的学生中成绩最高学生的序号
j=rs1+1'j表示第二批中，尚未输出的学生中成绩最高学生的序号
‘以下程序开始按成绩高低逐个输出，每次输出前后两段中，尚未处理的学生中成绩最高的

n=1

n=0

n=0

‘（1）
Do While   i＜=rs1And j＜=rs1+rs2‘两段都有未输出的情况，输出两段中最大值
n=n+1
If  cj（i）＞=cj（j）  Then
k=i：i=i+1
Else
k=j：j=j+1
End If
List1．AddItem （“第“+Str（n）+“名“+xm（k）+“成绩：“+Str（cj（k）））
Loop
Do While i＜=rs1‘剩下第一段还有未输出的，逐个输出
n=n+1
List1．AddItem （“第“+Str（n）+“名“+xm（i）+“成绩：“+Str（cj（i）））
i=i+1
Loop
Do While

j＜=rs2

j＜=rs1+rs2

j＜=rs1+rs2

‘（2）若第二段还有未输出的，逐个输出
n=n+1
List1．AddItem （“第“+Str（n）+“名“+xm（j）+“成绩：“+Str（cj（j）））
j=j+1
Loop
End Sub.