16.【加試題】某校有100個學生的期末成績存儲在數(shù)據(jù)庫中,并已經(jīng)按學號升序排序,學號編號從1到100.現(xiàn)要求找出成績最高的學生的得分.如果有多個符合要求的學生,只輸出學號排在前面的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出最大成績.實現(xiàn)上述功能的VB代碼如下,請補全代碼. Dim a(1To 100)As Single'依次存儲100個學生成績 Const n=100 Private Sub Form_Load( ?。?br />'本過程從數(shù)據(jù)庫中讀取1到100號學生成績,并存儲在數(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)程序中①橫線處應填入
解決此問題的部分程序段如下: 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)程序中①橫線處應填入