以下程序的功能是隨機(jī)生成20個1到100之間的正整數(shù),用選擇排序法將其按從大到小的順序排列后輸出.請將下列程序補(bǔ)充完整.
Private Sub Command1_Click ( ?。?/div>( ?。?/div>
Dim a(20)As Integer,i As Integer
Dim j As Integer,temp As Integer
Prin“排序前:”
For i=1 To 20
a(i)=Int(Rnd*100)+1
Print a(i);
Next i
Print
For i=1 To 19
For j=i+1j=i+1 To 20
If (j)>a(i)(j)>a(i)Then
t=a(i)
a(i)=a(j)
a(j)=ta(j)=t
End If
Next j
Next i
Print“排序后:”
For i=1To 20
Print a(i);
Next i
End Sub
(1)程序中橫線處①應(yīng)填入 j=i+1j=i+1.
(2)程序中橫線處②應(yīng)填入 (j)>a(i)(j)>a(i).
(3)程序中橫線處③應(yīng)填入 a(j)=ta(j)=t.【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn).【答案】( ?。籮=i+1;(j)>a(i);a(j)=t;j=i+1;(j)>a(i);a(j)=t【解答】【點(diǎn)評】聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。發(fā)布:2024/11/5 5:0:1組卷:21引用:1難度:0.1
相似題
-
1.有如下 Python 程序段:

運(yùn)行后列表中的值可能是( ?。?/h2>
發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3
-
2.用VB編寫的函數(shù)bubble_sort是一個用冒泡方法實(shí)現(xiàn)排序的函數(shù),其調(diào)用時需要三個參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時為升序,否則為降序;整數(shù)型數(shù)組a 是待排序的數(shù)據(jù),數(shù)據(jù)從a(1)開始存放;整數(shù)型參數(shù)n表示傳入的數(shù)組長度,該函數(shù)的返回值也是一個整數(shù)型數(shù)組.所以調(diào)用此函數(shù)實(shí)現(xiàn)排序非常方便:
比如有一個整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
a =bubble_sort(False,a ,10)
該函數(shù)VB代碼如下:
Function bubble_sort(sx As Boolean,a As Integer,n As Integer) As Integer
Dim i,j,t As Integer
For i=1 To n-1
For j= Step-1
If Then
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
請將代碼補(bǔ)充完整:
① .
② .
發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3
-
3.用選擇排序法對一組數(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
( ?。?/div>
Dim a(20)As Integer,i As Integer
Dim j As Integer,temp As Integer
Prin“排序前:”
For i=1 To 20
a(i)=Int(Rnd*100)+1
Print a(i);
Next i
Print
For i=1 To 19
For
If
t=a(i)
a(i)=a(j)
End If
Next j
Next i
Print“排序后:”
For i=1To 20
Print a(i);
Next i
End Sub
(1)程序中橫線處①應(yīng)填入
(2)程序中橫線處②應(yīng)填入
(3)程序中橫線處③應(yīng)填入
Dim a(20)As Integer,i As Integer
Dim j As Integer,temp As Integer
Prin“排序前:”
For i=1 To 20
a(i)=Int(Rnd*100)+1
Print a(i);
Next i
For i=1 To 19
For
j=i+1
j=i+1
To 20If
(j)>a(i)
(j)>a(i)
Thent=a(i)
a(i)=a(j)
a(j)=t
a(j)=t
End If
Next j
Next i
Print“排序后:”
For i=1To 20
Print a(i);
Next i
End Sub
(1)程序中橫線處①應(yīng)填入
j=i+1
j=i+1
.(2)程序中橫線處②應(yīng)填入
(j)>a(i)
(j)>a(i)
.(3)程序中橫線處③應(yīng)填入
a(j)=t
a(j)=t
.【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn).
【答案】( ?。籮=i+1;(j)>a(i);a(j)=t;j=i+1;(j)>a(i);a(j)=t
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/11/5 5:0:1組卷:21引用:1難度:0.1
相似題
-
1.有如下 Python 程序段:
運(yùn)行后列表中的值可能是( ?。?/h2>發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3 -
2.用VB編寫的函數(shù)bubble_sort是一個用冒泡方法實(shí)現(xiàn)排序的函數(shù),其調(diào)用時需要三個參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時為升序,否則為降序;整數(shù)型數(shù)組a
比如有一個整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
a
該函數(shù)VB代碼如下:
Function bubble_sort(sx As Boolean,a
Dim i,j,t As Integer
For i=1 To n-1
For j=
If
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
請將代碼補(bǔ)充完整:
①
②發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3 -
3.用選擇排序法對一組數(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)試卷
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正