試卷征集
加入會員
操作視頻

某校成績查詢系統(tǒng)界面如圖所示,學(xué)生輸入自己的身份證號碼,可以查詢自己的總分及排名。以下為此軟件的VB程序,請在橫線處填上正確的代碼使程序完整。
(1)
s(j)>s(j-1)
s(j)>s(j-1)

(2)
next i
next i
;
(3)command1_click過程用于查詢學(xué)生的總分成績及排名,這一查找方法為:
順序查找
順序查找
(順序查找/對分查找)。
菁優(yōu)網(wǎng)
Dim a(1to 500)as string‘用于存放參加考試學(xué)生的身份證號碼
Dim s(1to 500)as single‘用于存入?yún)⒓涌荚噷W(xué)生的總分成績
‘form_load 過程用于進(jìn)行一些初如化準(zhǔn)備工作
Private Sub form_load ( ?。?br />‘將參加此次考試學(xué)生的身份證號碼存放在數(shù)組a中
‘將參加此次考試學(xué)生的總分成績存放在數(shù)組s中
For i=1to 499‘利用排序法將學(xué)生成績進(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過程用于查詢學(xué)生的總分成績及排名
Private sub command_click ( ?。?br />Dim,bank as integer‘bank為排名
Dim index as Boolean‘index為查詢憑證
Dim hm as string’hm為身份證號碼
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 (“無此身份號碼”)
End if。

【答案】s(j)>s(j-1);next i;順序查找
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/5/23 20:38:36組卷:12引用:2難度:0.5
相似題
  • 1.某對分查找算法的VB程序段如下:
    菁優(yōu)網(wǎng)
    數(shù)組元素a(1)到a(10)的值依次為“12,15,18,20,25,39,47,88,90,99”,經(jīng)過上述代碼查找后,下列表達(dá)式正確的是(  )

    發(fā)布:2024/12/20 16:0:2組卷:5引用:2難度:0.5
  • 2.某數(shù)組d中的數(shù)據(jù)依次是[8,12,15,28,28,32,36,39],要查找某個元素是否在數(shù)組中,下列說法正確的是( ?。?/h2>

    發(fā)布:2024/12/20 0:0:1組卷:3引用:1難度:0.7
  • 3.有如下對分查找VB程序段:
    菁優(yōu)網(wǎng)
    若數(shù)組元素a(1)~a(10)的值依次為“5,9,13,18,22,27,31,39,40,44”,運行程序后,文本
    框Text2中顯示的內(nèi)容為3,則輸入的key值不可能為( ?。?/h2>

    發(fā)布:2024/12/20 20:0:2組卷:3引用:2難度:0.4
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正