4.使用 Access 軟件打開數據庫,數據表視圖如圖 a 所示,設計視圖如圖 b 所示,下列說法正確的是( ?。?img alt src="http://img.jyeoo.net/quiz/images/201804/2/bd7f059b.png" style="vertical-align:middle" />
16.某排序算法思想如下:每一趟將一個待排序的記錄,按其關鍵字的大小插入到已經排好序的一組記錄的適當位置上,直到所有待排序記錄全部插入為止。例如(9,3,1,4)升序排序;第一步 3 插入到有序記錄(9),得到(3,9);第二步 1 插入到有序記錄(3,9),得到(1,3,9);第三步 4 插入到有序記錄(1,3,9),得到最終有序記錄為“1,3,4,9”。 為此,編寫了一個 VB 程序,功能如下:運行程序,窗體加載時隨機產生 10 個隨機整數,并在列表框 List1 中依次顯示排序前數據,單擊“排序”按鈕 Command1,在列表框 List2 中 顯示經過上述排序算法后的數據,運行結果如圖 b 所示。實現上述功能的 VB 代碼如下,但加框處代碼有錯,請改正。 Const n=10 Dim a(1To n) As Integer'生成 n 個隨機數,存儲在 a 數組,代碼略 Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,t As Integer For i=2To n t=a(i):j=i-1 Do While t<a(j) a(j+1)=a(j) j=j-1 If Then Exit Do Loop Next i For i=1To n List2.AddItem Str(a(i)) Next i End Sub
。 (2)請在橫線處填入合適的代碼。 Dim xm(1To 600)As String'存儲學生姓名 Dim xx(1To 600)As Integer'存儲信息成績 Dim ty(1To 600)As Integer'存儲通用成績 Dim n As Integer'存儲記錄總數 Private Sub Form_Load ( ?。?br />'本過程從數據庫中讀取學生數據,存儲在相應的變量中,并在 List1 中顯示'代碼略 End sub Private Sub Command1_Click ( ) Dim key As Integer,mid As Integer Dim i As Integer,L As Integer,R As Integer,k As Integer Dim tmp1As String,tmp2As Integer '以“信息”為主要關鍵字、“通用”為次要關鍵字排序 For i=1To n-1 k=i For j=i+1To n If xx(k)<xx(j) or①
Then k=j End If Next j If k<>i Then tmp1=xm(k):xm(k)=xm(i):xm(i)=tmp1 tmp2=xx(k):xx(k)=xx(i):xx(i)=tmp2 tmp2=ty(k):ty(k)=ty(i):ty(i)=tmp2 End If Next i'查詢記錄 key=Val(Text1.Text) L=1:R=n Do While L<=R mid=(L+R)\2 If②
Then L=mid+1 Else R=mid-1 End If Loop List2.Clear 'vbTab 相當于是鍵盤上制表符 TAB 按鍵的功能 List2.AddItem“姓名“& vbTab &“信息“& vbTab &“通用“ For i=1to③
List2.AddItem xm(i) & vbTab & xx(i) & vbTab & ty(i) Next i End sub