3.某對分查找算法的VB程序段如下: i=1:j=6:k=0 key=Val( Textl.Text) Do While i<=j k=k+1 m=Int((i+j)/2+0.5) If key=a(m)Then Exit Do If key<a(m)Then j=m-1 Else i=m+1 Loop 文本框Text1中輸入27,執行該程序段后,k的值為2,則a(1)到a(6)各元素可能的值是( )
27.對一個n×n 的矩陣以“行”為單位進行升序排序,如圖所示是一個4×4 的矩陣以行為單位進行升序排序。 李華編寫了實現上述功能的程序,程序功能如下:程序運行時,在文本框Text1 中輸入n(1<=n<=10)單擊“產生”按鈕Command1 產生n×n 個隨機數,隨機數的范圍為[0,9],隨機存儲在數組a 中,并以矩陣的形式在列表框List1 上顯示。單擊“排序”按鈕Command2,對矩陣以“行”為單位進行升序排序,并在列表框List2 輸出排序后的矩陣。在程序運行界面如下圖所示。 實現上述功能的VB 程序如下,請在橫線處填入合適的代碼。 Dim n As Integer Dim a(1 To 100)As Integer Private Sub Command1_Click( ) Dim i As Integer,s As String s=““
For i=1 To n*n
s=s+Str(a(i)) If i Mod n=0 Then List1.AddItem s s=““ End If Next i End Sub Private Sub Command2_Click( ) Dim i As Integer,j As Integer,t As Integer Dim s As String s=““ For i=1 To n*n k=i For j=i+1 To
If a(j)<a(k) Then k=j Next j If k<>i Then t=a(k):a(k)=a(i):a(i)=t
If i Mod n=0 Then List2.AddItem s s=““ End If Next i End Sub