在數(shù)據庫的兩張數(shù)據表中有各有一批學生的考試成績，小吳要將兩張表中的數(shù)據讀取并按成績從高到低排列輸出．成績相同時，第一批學生優(yōu)先輸出．小吳編寫了一個VB程序，程序運行時，將相關信息分別讀入數(shù)組cj和xm的前后兩段，單擊按鈕 Command1 后，在列表框List1中輸出運行結果．實現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯，請改正：
Dim  xm（1to 1000）as string'存儲學生姓名
Dim  cj（1to 1000）as integer'存儲學生成績
Dim  rs1  as  integer'第一批學生人數(shù)
Dim  rs2  as  integer'第二批學生人數(shù)
Private Sub Form_Load'該處具體代碼省略
'第1步：從數(shù)據庫讀取第1批學生的人數(shù)rs1，按成績從高到低的順序將成績存入cj（1）、'cj（2）…cj（rs1）中，姓名存入xm（1）、xm（2）…xm（rs1）中
'第2步：從數(shù)據庫讀取第2批學生的人數(shù)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.