用VB编写一个模拟在900个观众中产生10个中奖号码的程序，每位观众用三位数字进行编号，要求产生的10个号码不能重复，并且升序排列输出．
①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码．
②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标．如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中．下表以产生第5个号码为例，如果产生的号码是150，第一个比他大的数是a（2），下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中．

数组元素	a（1）	a（2）	a（3）	a（4）
数组元素的值	120	188	211	278

③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动．以②中产生150为例，从a（4）开始，让a（5）的值等于a（4），a（4）的值等于a（3），依此类推，直到新号码应存放的数组元素a（2）为止．
④将新产生的号码放在相应的数组元素中．
程序运行的界面如图所示，实现上述功能的VB程序代码如下：
Dim a（10）As Single
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer
第17题图
Dim temp As Single,k As Integer‘temp产生随机数，k随机数存放数组元素的下标
Randomize
a（1）=Int（Rnd（　　）*900+100）
For i=2To 10
temp=Int（Rnd（　　）*900+100）
If  seach（temp,i-1）=True  Then
i=i-1
Else

For j=i-1To k Step-1
a（j+1）=a（j）
Next j

a（k）=temp

a（k）=temp

End If
Next i
List1．Clear
For i=1To 10
List1．AddItem Str（a（i））
Next i
End Sub
‘函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无pp的数值
Function seach（pp As Single,t As Integer） As Boolean
Dim i As Integer
seach=False
For i=1To t
If

a（i）=pp

a（i）=pp

  Then seach=True：Exit For
Next i
End Function
（1）程序中横线处①应填入

a（k）=temp

a（k）=temp

程序中横线处②应填入

a（i）=pp

a（i）=pp

（2）加框处的程序段实现的功能是

找到第一个比temp大的数组元素，将其下标存储于k

找到第一个比temp大的数组元素，将其下标存储于k

．