【加试题】下列VB程序的功能是：程序运行时，单击命令按钮Command1后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中．
数组a用于存储产生的10个随机整数，函数f（x）用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True,否则返回False.
（1）虚线框内程序段所采用的排序算法名称是 冒泡排序冒泡排序．（填：冒泡排序/选择排序）
（2）在程序①和②横线处填入适当的语句或表达式，把程序补充完整．
Dim a（1To 10）As Integer
Function f（x As Integer）As Boolean
'代码略
End Function
Private Sub Command1_Click（ ）
Dim n As Integer'n用于统计已经产生的随机整数个数
Dim i As integer,j As Integer
Dim x As Integer,k As Integer
Randomize'初始化Rnd函数
n=0
List1．Clear'清除列表框中内容
List2．Clear
Do While n＜10
x=lnt（Rnd*999）+1'产生[1，999]范围内的随机整数
If Not f（x） Then
n=n+1
a（n）=x
List1．AddItem Str（ ①a（n）①a（n））
End If
Loop
For i=1To 9'进行排序
For j=10To i+1 ②Step-1②Step-1
If a（j）＜a（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
End If
Next j
Next i
For i=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.
【考点】冒泡排序算法及其实现；编辑事件处理过程的代码．
【答案】冒泡排序；①a（n）；②Step-1
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/6/27 10:35:59组卷：17引用：2难度：0.3
相似题
-
1．有如下 Python 程序段：
运行后列表中的值可能是（ ）发布：2024/12/18 21:0:2组卷：5引用：3难度：0.3 -
2．用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a
是待排序的数据，数据从a（1）开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组．所以调用此函数实现排序非常方便：
比如有一个整数型数组a（1 to 10）需要降序排序，可以直接这样调用：
a=bubble_sort（False,a，10）
该函数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
请将代码补充完整：
①．
②．发布：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
