数组排序。点击“产生随机数”按钮,让计算机随机产生10个整数,并对这10个整数进行标号,再点击“排序”按钮,对这10个整数进行从大到小排序。如图所示。

程序代码如下:
Dim a(1 To 10) As Integer
Dim i, j, k, kt As Integer
Private Sub Command1_Click()
List1.Clear '清除列表框数据
For i = 1 To 10
Randomize '随机数初始化
a(i) = Int(Rnd() * 1000)
List1.AddItem Str(i) + ”=” + Str(a(i))
Next i
Command2.Enabled = True '激活排序按钮
End Sub
Private Sub Command2_Click()
For i = 1 To 9
k = i
For j =_________To 10
If a(j) > a(k) Then k = j
Next j
If i <> k Then
_______
End If
Next i
List2.Clear
For i = 1 To 10
List2.AddItem Str(i) + ” =” + Str(a(i))
Next i
End Sub
请在①、②划线处填入合适的语句或表达式,把程序补充完整:
程序中①划线处应填入__________________;
程序中②划线处应填入__________________。