某校成績(jī)查詢系統(tǒng)界面如圖所示，學(xué)生輸入自己的身份證號(hào)碼，可以查詢自己的總分及排名。以下為此軟件的VB程序，請(qǐng)?jiān)跈M線處填上正確的代碼使程序完整。
（1）

s（j）＞s（j-1）

s（j）＞s（j-1）

；
（2）

next i

next i

；
（3）command1_click過(guò)程用于查詢學(xué)生的總分成績(jī)及排名，這一查找方法為：

順序查找

順序查找

（順序查找/對(duì)分查找）。

Dim a（1to 500）as string‘用于存放參加考試學(xué)生的身份證號(hào)碼
Dim s（1to 500）as single‘用于存入?yún)⒓涌荚噷W(xué)生的總分成績(jī)
‘form_load 過(guò)程用于進(jìn)行一些初如化準(zhǔn)備工作
Private Sub form_load （　　）
‘將參加此次考試學(xué)生的身份證號(hào)碼存放在數(shù)組a中
‘將參加此次考試學(xué)生的總分成績(jī)存放在數(shù)組s中
For i=1to 499‘利用排序法將學(xué)生成績(jī)進(jìn)行降序排序
For j=500to i+1step-1
If     ①  then
t=s（j）：s（j）=s（j-1）：s（j-1）=t
t=a（j）：a（j）=a（j-1）：a（j-1）=t
End If
Next j
    ②
End sub
‘command1_click過(guò)程用于查詢學(xué)生的總分成績(jī)及排名
Private sub command_click （　?。?br />Dim,bank as integer‘bank為排名
Dim index as Boolean‘index為查詢憑證
Dim hm as string’hm為身份證號(hào)碼
hm=text1．text
index=false
For i=1to 500
If hm=a（i） then index=true：bank=i：exit for‘代碼exit for的作用為退出for循環(huán)
Next i
If index=true then
Text2．text=str（s（bank））
Text3．text=str（bank）
Else
Msgbox （“無(wú)此身份號(hào)碼”）
End if。