用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（　?。?br />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

．