下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表

Question

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中．数组a用于存储产生的10个随机整数，变量f用于标记随机整数x与已生成的整数是否有重复，如有则为True，没有则为False．
为实现上述功能，请在划线处填入合适的代码．
Dim a（1To 10）As Integer
Private Sub Command1_Click （　　）
Dim n As Integer'n用于统计已经产生的随机整数个数
Dim i As Integer，j As Integer
Dim x As Integer，k As Integer
Dim f As Boolean
Randomize
n=0
List1．Clear
List2．Clear
Do While n<10
x=___'产生[1，999]范围内的随机整数
f=False
For i=1To n
If___Then f=True
Next i
If f=False Then
n=n+1
a（n）=x
List1．AddItem Str（a（n））
End If
Loop
For i=1To 9
For j=10To i+1Step-1
If___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．

Answer 1

生成随机数的函数int（rnd*（n-m+1））+m，将[1，999]带入，结果为int（Rnd*999）+1；第二个空白处是对当前生成的随机数与之前生成的数进行比较，如果有重复则重新生成，否则将其赋值给数组a，语句为：x=a（i）；第三处空白是对数组中的数值进行比较排序，如果a（j）的数组小于a（j-1），则将其在数组中的位置进行替换，语句为：a（j）故答案为：
（1）Int（Rnd*999）+1
（2）x=a（i）
（3）a（j）<a（j-1）