小王基于选择排序算法编写了一个VB程序，功能如下：读取若干数据依次存储在数组a中，并将数据分段排序，每段数据的元素个数及排序的次序要求依次存储在数组b中。如图，在文本框Text1中显示数组a的原始数据，在文本框Text2中显示每段数据的元素个数及排序次序要求(0表示升序、1表示降序)；单击“排序”按钮Command1，根据要求输出对每段数据进行排序的结果。实现上述功能的VB程序如下：
Dim n As Integer
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Form Load()
‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。
‘将每段数据的元素个数及排序的次序依次存储到数组b中；
‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，
‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....
“代码略。
End Sub
Private Sub Command1_Click())
Dim i As Integer, j As Integer, k As Integer, t As Integer
Dim pb As Integer, endpos As Integer
pb=1: endpos =b(1)
For i=1 To n-1
If i=endpos Then
pb=pb+2:i=endpos+1
①
End If
k=i
For j =i+1 To endpos
If 
Then k=j ‘⑵
Next j
If k<>i Then
②
End If
Next i
Text3.Text ="" ‘⑷
For i=1 To n
Text3.Text=Text3.Text + Str(a(i))
Next i
End Sub
‘⑴
‘⑵