編寫一個(gè) VB 程序，實(shí)現(xiàn)程序功能如下：打開程序時(shí)，隨機(jī)產(chǎn)生 10個(gè)兩位正整數(shù)存入數(shù)組a中，并在列表框 List1 中顯示。單擊“排序”按鈕Command1 后，在列表框 List2中顯示左右交替上升序列，程序運(yùn)行界面如下圖所示。排序方法：使用選擇排序算法將數(shù)組改造成左右交替上升序列，即將最小值放在最左端，第2小值放在最右端；再將第3小值放到左端，第4小值放到右端。以此類推，直到形成左右交替上升序列。例如將數(shù)組a=（4，8，2，9，3，6，1，7，5，10），排序成a=（1，3，5，7，9，10，8，6，4，2）。
（1）該程序界面中有幾類對(duì)象：

4

4

（填數(shù)字）
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填上合適的代碼。
（3）加框處代碼有誤，請(qǐng)改正。
Const n=10
Dim a（1 To n）As Integer
Private Sub Form_Load

（　　）

（　?。?/div>
For i=1 To n
a（i）=①

Int（Rnd*90）+10

Int（Rnd*90）+10

’產(chǎn)生兩位隨機(jī)正整數(shù)
List1.AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click

（　　）

（　?。?/div>
Dim p As Integer,q As Integer,pos1 As Integer,pos2 As Integer,t As Integer
p=1：q=n
Do While ②

p＜q

p＜q

If a（p）＜=a（p+1）Then
pos1=p：pos2=p+1
Else
pos1=p+1：pos2=p
End If
For i=
If a（i）＜a（pos1）Then
pos2=pos1
pos1=i
ElseIf a（i）＜a（pos2）Then
pos2=i
End If
Next i
If pos1＜＞p Then t=a（pos1）：a（pos1）=a（p）：a（p）=t
If pos2=p Then ③

pos2=pos1

pos2=pos1

If pos2＜＞q Then t=a（pos2）：a（pos2）=a（q）：a（q）=t
p=p+1：q=q-1
Loop
For i=1 To n
List2.AddItem Str（a（i））
Next i
End Sub