以下程序的功能是随机生成20个1到100之间的正整数,用选择排序法将其按从大到小的顺序排列后输出.请将下列程序补充完整.
Private Sub Command1_Click ( )( )
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)程序中横线处①应填入 j=i+1j=i+1.
(2)程序中横线处②应填入 (j)>a(i)(j)>a(i).
(3)程序中横线处③应填入 a(j)=ta(j)=t.
【考点】冒泡排序算法及其实现.
【答案】( );j=i+1;(j)>a(i);a(j)=t;j=i+1;(j)>a(i);a(j)=t
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/11/5 5:0:1组卷:21引用:1难度:0.1
相似题
-
1.有如下 Python 程序段:
运行后列表中的值可能是( )发布:2024/12/18 21:0:2组卷:5引用:3难度:0.3 -
2.用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数,其调用时需要三个参数:布尔类型参数sx来确定是升序还是降序,sx为True时为升序,否则为降序;整数型数组a
比如有一个整数型数组a(1 to 10)需要降序排序,可以直接这样调用:
a
该函数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
请将代码补充完整:
①
②发布:2024/12/20 20:30:1组卷:23引用:2难度:0.3 -
3.用选择排序法对一组数据进行升序排序,第一趟排序结束后的顺序为2、6、9、3、7,则原始数据顺序不可能的是( )
发布:2024/12/18 23:0:1组卷:10引用:1难度:0.5