16.某學(xué)校開設(shè)多樣化選修課程,學(xué)生可以根據(jù)個人興趣和特長選擇選修課.假設(shè)每門選修課的選課人數(shù)不超過40,學(xué)生選課的相關(guān)信息存放在數(shù)據(jù)庫文件“student.jye.ai”的data表中,選課查詢程序運行時界面如圖所示. 程序功能:在文本框Text1中輸入課程號,單擊“查詢”按鈕Command1,在列表框List1中顯示選修本課程的各學(xué)生信息.如果沒有找到,在列表框中顯示“該課程當(dāng)前無人報名”.按此要求將程序補充完整. Private Sub Command1_Click ( ?。?br />Dim xh(1to 40),xm(1to 40)As String'學(xué)號和姓名的數(shù)組 Dim i,num as integer Dim conn As New ADODB.Connection,rs As New ADODB. Recordset Dim strSQL As String conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=”+App.Path+“\student.jye.ai”'打開到數(shù)據(jù)庫的鏈接 conn.Open strSQL=“select xh,xm from data where課程=‘&(Text1.Text)&’”'設(shè)置查詢的SQL語句 Set rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性,指定與其關(guān)聯(lián)的數(shù)據(jù)庫鏈接 rs.OpenstrSQL'打開記錄集,將從表data中讀取的結(jié)果集保存到記錄集rs中 List1.Clear num=0 DO while not rs.EOF
xh(num)=rs.Fields(“xh”) xm(hum)=rs.Fields(“xm”) rs.MoveNext loop rs.Close conn.close set rs=nothing set conn=nothing For i=1to num
Next i if num=0then List1.a(chǎn)dditem(“該課程當(dāng)前無人報名”) End Sub (1)程序中①橫線處應(yīng)填入
程序運行時,在文本框Text1中輸入選票信息,單擊“計算”按鈕Command1后,被選為班長的編號顯示在文本框Text2中.程序運行效果如圖所示. 實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼. Private Sub Command1_Click ( ) Dima(1To 5)As Integer '數(shù)組元素a(1)~a(5)依次存放編號為1~5的五位候選人的得票數(shù) Dim st As String,i As Integer,j As Integer,n As Integer Dim ans As Integer'變量ans存放被選為班長的人的編號 Dim max As Integer'變量max存放最多的得票數(shù) st=Text1.Text
For i=1To 5 a(i)=0 Next i For i=1To 5 For j=1To n If
Then a(i)=a(i)+1 Next j Next i max=0 For i=1To 5 If a(i)>max Then max=a(i):ans=i Next i