16.某學校開設多樣化選修課程,學生可以根據個人興趣和特長選擇選修課.假設每門選修課的選課人數不超過40,學生選課的相關信息存放在數據庫文件“student.jye.ai”的data表中,選課查詢程序運行時界面如圖所示. 程序功能:在文本框Text1中輸入課程號,單擊“查詢”按鈕Command1,在列表框List1中顯示選修本課程的各學生信息.如果沒有找到,在列表框中顯示“該課程當前無人報名”.按此要求將程序補充完整. Private Sub Command1_Click ( ) Dim xh(1to 40),xm(1to 40)As String'學號和姓名的數組 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”'打開到數據庫的鏈接 conn.Open strSQL=“select xh,xm from data where課程=‘&(Text1.Text)&’”'設置查詢的SQL語句 Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性,指定與其關聯的數據庫鏈接 rs.OpenstrSQL'打開記錄集,將從表data中讀取的結果集保存到記錄集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.additem(“該課程當前無人報名”) End Sub (1)程序中①橫線處應填入
程序運行時,在文本框Text1中輸入選票信息,單擊“計算”按鈕Command1后,被選為班長的編號顯示在文本框Text2中.程序運行效果如圖所示. 實現上述功能的VB程序如下,請在橫線處填入合適的代碼. Private Sub Command1_Click ( ) Dima(1To 5)As Integer '數組元素a(1)~a(5)依次存放編號為1~5的五位候選人的得票數 Dim st As String,i As Integer,j As Integer,n As Integer Dim ans As Integer'變量ans存放被選為班長的人的編號 Dim max As Integer'變量max存放最多的得票數 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