20.小王設(shè)計了一個程序來列舉仁川亞運會的獎牌前三的國家.下列VB程序?qū)崿F(xiàn)如下功能:單擊命令按鈕Command1后,在列表框List1中按獎牌數(shù)由多到少顯示國家名稱,如圖. 請根據(jù)算法將下列程序補充完整. Dim a(1To 45)As String Dim b(1To 45)As Integer Private Sub Form_Load ( ?。?br />a(1)=“中國“ b(1)=308 ‘45個代表團(tuán)名稱及獎牌數(shù)分別放在a(1)到a(45)及b(1)到b(45)中 End Sub Private Sub Command1_Click Dim i As Integer,j As Integer Dim t As Integer,f As Integer List1.Clear For i=1 To 3 For j=①
To 2 Step-1 If ②
Then f=a(j):a(j)=a(j-1):a(j-1)=f t=b(j):b(j)=b(j-1):b(j-1)=t End If Next j Next i For i=1 To 3 List1.AddItem“第“+Str(i)+“名“+a(i)+“獎牌數(shù)“+Str(b(i)) Next i End Sub.
21.王五為學(xué)生們設(shè)計了學(xué)校食堂學(xué)生校園卡查詢系統(tǒng),在終端機上輸入學(xué)生的校園卡卡號,可以查出該卡對應(yīng)的學(xué)生姓名及相應(yīng)的余額. 校園卡信息存儲在一個綜合的數(shù)據(jù)庫“school.jye.ai”,其中的“Yue”數(shù)據(jù)表用來存儲學(xué)生的校園卡基本信息,包括學(xué)號(num)、姓名(name)、余額(money),括號內(nèi)的為對應(yīng)字段名.下列VB程序用來實現(xiàn)根據(jù)學(xué)號查詢并顯示學(xué)生姓名及余額,運行界面如圖所示: 數(shù)據(jù)庫文件與應(yīng)用程序在同一文件夾中,在文本框Text1中輸入學(xué)生的學(xué)號,單擊“查詢”按鈕,在標(biāo)簽Label4、Label5中分別顯示學(xué)生姓名和余額. Private Sub Command1_Click ( ?。?br />Dim adocn As new connection Dim adors As new recordeset Dim str1As string,str2as string Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.jye.ai&”\①
.mdb” Adon.jye.ai str1 Str2=”select*from Yue where②____=’”+text1.text+”’” Adors.jye.ai str2,adocn,adOpenDynamc,adLockOptimistic If adors.jye.ai then Msgbox”你輸入的學(xué)號不存在!” Else Label4.caption=adors.Fields(“name”).value ③_____=adors.Fields(“money”).value Endif Adors.close Adocn.close End Sub 為了實現(xiàn)上述目標(biāo),在橫線處填入合適的語句或表達(dá)式: ①