20.小王設計了一個程序來列舉仁川亞運會的獎牌前三的國家.下列VB程序實現如下功能:單擊命令按鈕Command1后,在列表框List1中按獎牌數由多到少顯示國家名稱,如圖. 請根據算法將下列程序補充完整. Dim a(1To 45)As String Dim b(1To 45)As Integer Private Sub Form_Load ( ) a(1)=“中國“ b(1)=308 ‘45個代表團名稱及獎牌數分別放在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)+“獎牌數“+Str(b(i)) Next i End Sub.
21.王五為學生們設計了學校食堂學生校園卡查詢系統,在終端機上輸入學生的校園卡卡號,可以查出該卡對應的學生姓名及相應的余額. 校園卡信息存儲在一個綜合的數據庫“school.jye.ai”,其中的“Yue”數據表用來存儲學生的校園卡基本信息,包括學號(num)、姓名(name)、余額(money),括號內的為對應字段名.下列VB程序用來實現根據學號查詢并顯示學生姓名及余額,運行界面如圖所示: 數據庫文件與應用程序在同一文件夾中,在文本框Text1中輸入學生的學號,單擊“查詢”按鈕,在標簽Label4、Label5中分別顯示學生姓名和余額. Private Sub Command1_Click ( ) 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”你輸入的學號不存在!” Else Label4.caption=adors.Fields(“name”).value ③_____=adors.Fields(“money”).value Endif Adors.close Adocn.close End Sub 為了實現上述目標,在橫線處填入合適的語句或表達式: ①