2.
(2020高二下·金华月考)
n个数从小到大选择排序需要经过n-1遍加工,每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后,编写了一个VB程序,功能如下:运行程序时首先在列表框List 1中显示10个大于10且小于等于99的随机自然数,单击“排序”按钮Command 1后,在列表框List 2中显示这些数据按从小到大排序后的结果,运行结果如图所示。请在划线处填入合适代码。
Const n= 10
Dima(1 To n) As Integer ‘定义数组a
Private SubForm_Load()
Randomize
For i=1 To n '产生n个随机自然数,并依次存放在数组a中
________
List 1.Add ItemS tr(a(i))
Next i
End Sub
Function Find Min(x As Integer) '寻找当前需要交换的数组元素下标
Dim k As Integer, j As Integer
k=x
For j=x+1Ton
________
Next j
Find Min=k
End Function
Private Sub Command 1_Click()
Dim i As Integer, k As Integer, t As Integer
For i= 1 To 9
________
If k<>i Then
t=a(i):a(i)=a(k):a(k)=t
End If
Next i
For i=1 To n
List 2.Add Item Str(a(i))
Next i
End Sub