當前位置： 2017年浙江省普通高校招生信息技術仿真試卷（選考）（一）> 試題詳情

【加試題】在冒泡排序時，當某一遍加工過程中沒有數據交換，說明數據已經有序，無需進一步加工．為此小明對冒泡排序進行了優(yōu)化，編寫了一個VB程序，功能如下，運行程序時，在列表框List1中顯示隨機產生的n個整數，單擊“排序”的按鈕Command1，在列表框List2中顯示降序排序后的結果，運行的效果如圖所示．

實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．

【考點】冒泡排序算法及其實現．

【答案】見試題解答內容

【解答】

【點評】

聲明：本試題解析著作權屬菁優(yōu)網所有，未經書面同意，不得復制發(fā)布。

當前模式為游客模式，立即登錄查看試卷全部內容及下載

發(fā)布：2024/11/2 10:0:2組卷：14引用：2難度：0.3

相似題

1．有如下VB程序段：

執(zhí)行上述程序段后，下列選項中，a（1）到a（6）各元素值不可能的是（　?。?/h2>
A．74，83，41，1，70，10 B．79，46，4，64，53，71
C．16，75，35，60，54，91 D．49，56，19，25，82，32
發(fā)布：2024/11/2 16:30:7組卷：2引用：2難度：0.5
解析
2．【加試題】有如下程序段：
For i=1To 6
f=False
For j=7To i+1Step-1
If d（j）＜d（j-1）Then
t=d（j）：d（j）=d（j-1）：d（j-1）=t
f=True
End If
Next j
If f=False Then Exit For
Next i
如果數組元素d（1）到d（7）的值依次為“18，22，9，32，16，12，40”，則執(zhí)行此程序段后，變量i的值為（　?。?/h2>
A．4 B．6 C．7 D．3
發(fā)布：2024/11/3 11:30:1組卷：10引用：1難度：0.7
解析
3．為了找出QQ在線時間最長的5名學生，李風設計了一個排序程序．程序運行界面如圖所示：

左邊列表框List1中顯示排序前數據，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時間從高到低排名前5名的數據．程序中數組a和數組b分別存儲學生的QQ昵稱和對應的QQ在線時間．
程序代碼如下：
Const n As Integer=14'n為學生數
Dim a（1To n） As String'數組a用于存儲學生的QQ昵稱
Dim b（1To n） As Integer'數組b用于存儲學生的QQ在線時間
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As String,p As Integer
For i=1To n-1
For j=n To i+1Step-1
If ①Then
t=a（j-1）：a（j-1）=a（j）：a（j）=t
p=b（j-1）：b（j-1）=b（j）：b（j）=p
End If
Next j
Next i
For i=1To 5
List2．AddItem SpaceEx（a（i））+Str（b（i））+“分鐘“
Next i
End Sub
'以下函數用于在字符串后補插空格
Function SpaceEx（s As String） As String
Dim t As String,d As Integer,i As Integer
t=s：d=Len（s）
For i=1To 5-d
t=t+““
Next i
SpaceEx=②
End Function
Private Sub Form_Load （　?。?br />'此過程用于對數組a和數組b進行賦值，并顯示在List1中，代碼略
End Sub
（1）解決此問題采用的算法是

．（填：選擇排序/冒泡排序）
（2）在程序①和②填入適當的語句或表達式，將程序補充完整：
程序中①應填入

．程序中②處應填入

．
發(fā)布：2024/11/5 1:30:1組卷：21引用：2難度：0.1
解析

把好題分享給你的好友吧~~

A．74，83，41，1，70，10	B．79，46，4，64，53，71
C．16，75，35，60，54，91	D．49，56，19，25，82，32

1．有如下VB程序段：執(zhí)行上述程序段后，下列選項中，a（1）到a（6）各元素值不可能的是（ ?。?/h2>

1．有如下VB程序段：

執(zhí)行上述程序段后，下列選項中，a（1）到a（6）各元素值不可能的是（　?。?/h2>