在數(shù)據(jù)庫的兩張數(shù)據(jù)表中有各有一批學(xué)生的考試成績(jī)，小吳要將兩張表中的數(shù)據(jù)讀取并按成績(jī)從高到低排列輸出．成績(jī)相同時(shí)，第一批學(xué)生優(yōu)先輸出．小吳編寫了一個(gè)VB程序，程序運(yùn)行時(shí)，將相關(guān)信息分別讀入數(shù)組cj和xm的前后兩段，單擊按鈕 Command1 后，在列表框List1中輸出運(yùn)行結(jié)果．實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正：
Dim  xm（1to 1000）as string'存儲(chǔ)學(xué)生姓名
Dim  cj（1to 1000）as integer'存儲(chǔ)學(xué)生成績(jī)
Dim  rs1  as  integer'第一批學(xué)生人數(shù)
Dim  rs2  as  integer'第二批學(xué)生人數(shù)
Private Sub Form_Load'該處具體代碼省略
'第1步：從數(shù)據(jù)庫讀取第1批學(xué)生的人數(shù)rs1，按成績(jī)從高到低的順序?qū)⒊煽?jī)存入cj（1）、'cj（2）…cj（rs1）中，姓名存入xm（1）、xm（2）…xm（rs1）中
'第2步：從數(shù)據(jù)庫讀取第2批學(xué)生的人數(shù)rs2，按成績(jī)從高到低的順序?qū)⒊煽?jī)存入'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表示第一批中，尚未輸出的學(xué)生中成績(jī)最高學(xué)生的序號(hào)
j=rs1+1'j表示第二批中，尚未輸出的學(xué)生中成績(jī)最高學(xué)生的序號(hào)
‘以下程序開始按成績(jī)高低逐個(gè)輸出，每次輸出前后兩段中，尚未處理的學(xué)生中成績(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）+“成績(jī)：“+Str（cj（k）））
Loop
Do While i＜=rs1‘剩下第一段還有未輸出的，逐個(gè)輸出
n=n+1
List1．AddItem （“第“+Str（n）+“名“+xm（i）+“成績(jī)：“+Str（cj（i）））
i=i+1
Loop
Do While

j＜=rs2

j＜=rs1+rs2

j＜=rs1+rs2

‘（2）若第二段還有未輸出的，逐個(gè)輸出
n=n+1
List1．AddItem （“第“+Str（n）+“名“+xm（j）+“成績(jī)：“+Str（cj（j）））
j=j+1
Loop
End Sub.