對(duì)數(shù)組a中的n個(gè)元素進(jìn)行排序，生成左右交替上升的數(shù)據(jù)序列，結(jié)果如表所示：
| a（1） | a（2） | a（3） | …… | a（n-2） | a（n-1） | a（n） |
| 27 | 35 | 39 | …… | 49 | 39 | 33 |
PrivateSubCommand1_Click （ ?。?br />Dima（1To10）AsInteger
Randomize
Constn=10
Fori=1Ton
a（i）=①
Text1.Text=Text1.Text+Str（a（i））
Nexti
Fori=1Ton\2
Forj=n-i+1Toi+1Step-1
Ifa（j）＜a（j-1）Then
t=a（j-1）
②
a（j）=t
EndIf
Nextj
Forj=i+1Ton-i
If
Thent=a（j）：a（j）=a（j+1）：a（j+1）=t
EndIf
Nextj
Nexti
Fori=1Ton
Text2.Text=Text2.Text+Str（a（i））
Nexti
EndSub
（1）代碼Command1_Click （ ?。┲械腃lick屬于
B
B
。（單選，填字母：A．對(duì)象名/B．事件名/C．方法名/D．事件處理過程名）。（2）①程序代碼中，劃線①處的代碼可能是
D
D
。（單選，填字母）A．Int（Rnd*88）+1
B．Int（Rnd*89）+11
C．Int（Rnd*44）*2+11
D．Int（Rnd*45）*2+11
②程序代碼中，在劃線②處填入合適的代碼。
（3）程序代碼中，加框處語句有錯(cuò)，請(qǐng)改正。
【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn)．
【答案】B；D
【解答】
【點(diǎn)評(píng)】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/12/11 23:30:1組卷：3引用：1難度：0.4
相似題
-
1．有如下 Python 程序段：
運(yùn)行后列表中的值可能是（ ）發(fā)布：2024/12/18 21:0:2組卷：5引用：3難度：0.3 -
2．用VB編寫的函數(shù)bubble_sort是一個(gè)用冒泡方法實(shí)現(xiàn)排序的函數(shù)，其調(diào)用時(shí)需要三個(gè)參數(shù)：布爾類型參數(shù)sx來確定是升序還是降序，sx為True時(shí)為升序，否則為降序；整數(shù)型數(shù)組a
是待排序的數(shù)據(jù)，數(shù)據(jù)從a（1）開始存放；整數(shù)型參數(shù)n表示傳入的數(shù)組長(zhǎng)度，該函數(shù)的返回值也是一個(gè)整數(shù)型數(shù)組．所以調(diào)用此函數(shù)實(shí)現(xiàn)排序非常方便：
比如有一個(gè)整數(shù)型數(shù)組a（1 to 10）需要降序排序，可以直接這樣調(diào)用：
a=bubble_sort（False,a，10）
該函數(shù)VB代碼如下：
Function bubble_sort（sx As Boolean,aAs Integer,n As Integer） As Integer
Dim i,j,t As Integer
For i=1 To n-1
For j=Step-1
IfThen
If a（j）＜a（j-1）Then t=a（j）：a（j）=a（j-1）：a（j-1）=t
Else
If a（j）＞a（j-1）Then t=a（j）：a（j）=a（j-1）：a（j-1）=t
End If
Next j
Next i
bubble_sort=a
End Function
請(qǐng)將代碼補(bǔ)充完整：
①．
②．發(fā)布：2024/12/20 20:30:1組卷：23引用：2難度：0.3 -
3．用選擇排序法對(duì)一組數(shù)據(jù)進(jìn)行升序排序，第一趟排序結(jié)束后的順序?yàn)?、6、9、3、7，則原始數(shù)據(jù)順序不可能的是（ ?。?/h2>
發(fā)布：2024/12/18 23:0:1組卷：10引用：1難度：0.5
相關(guān)試卷