16.【加試題】某校有100個學(xué)生的期末成績存儲在數(shù)據(jù)庫中,并已經(jīng)按學(xué)號升序排序,學(xué)號編號從1到100.現(xiàn)要求找出成績最高的學(xué)生的得分.如果有多個符合要求的學(xué)生,只輸出學(xué)號排在前面的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出最大成績.實現(xiàn)上述功能的VB代碼如下,請補全代碼. Dim a(1To 100)As Single'依次存儲100個學(xué)生成績 Const n=100 Private Sub Form_Load( ?。?br />'本過程從數(shù)據(jù)庫中讀取1到100號學(xué)生成績,并存儲在數(shù)組a中 '代碼略 End Sub Private Sub Command1_Click( ?。?br />Dim i As Integer,max As single max=①
For i=2To n if ②
Next i Text1.Text=“成績最高分是:“+Str(max) End Sub (1)程序中①橫線處應(yīng)填入
17.明明設(shè)計了某企業(yè)職工IC卡查詢系統(tǒng),輸入職工的卡號,可以查出該卡號對應(yīng)的余額.所有職工的IC卡號和相應(yīng)的余額已分別保存在zg數(shù)組(按從小到大排序)和ye數(shù)組中,第i個職工卡號保存在zg(i)中,對應(yīng)的卡號余額保存在ye(i)中. 程序界面如圖所示,左邊列表框List1中顯示的是部分職工的卡號和余額,在文本框Text1中輸入職工的IC卡號,單擊“查詢余額”按鈕(Command1)后,如果找到此卡號,則在標簽Lab3中顯示“此卡號余額為”和對應(yīng)的余額值,如果未找到則顯示“找不到此卡號,請重新輸入”. 解決此問題的部分程序段如下: Const n=500'設(shè)卡號總數(shù)為500 Dim zg(1To n) As Long Dim ye(1To n) As Single Private Sub Form1_Load ( ?。?br />'此過程用于對數(shù)組zg和數(shù)組ye進行初始賦值,代碼略 End Sub Private Sub Command1_Click ( ?。?br />Dim x As Long,i As Long,j As Long,m As Long,find As Boolean x=Val(Text1.Text) i=1:j=n:find=False Do While ① ② If x=zg(m) Then ③ ElseIf x<zg(m) Then j=m-1 Else i=m+1 End If Loop If find=true Then Lab3.Caption=″此卡號余額為″+Str(ye(m))+″元″ Else Lab3.Caption=″找不到此卡號,請重新輸入″ End If End Sub 在程序①、②、③橫線處填入適當?shù)恼Z句或表達式.將程序補充完整: (1)程序中①橫線處應(yīng)填入