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