小王基于选择排序算法编写了一个VB程序，功能如下：读取若干数据依次存储在数组a中，并将数据分段排序，每段数据的元素个数及排序的次序要求依次存储在数组b中。如图，在文本框Text1中显示数组a的原始数据，在文本框Text2中显示每段数据的元素个数及排序次序要求（0表示升序、1表示降序）；单击“排序”按钮Command1，根据要求输出对每段数据进行排序的结果。实现上述功能的VB程序如下：

Dim n As Integer
Im 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 Commandl    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
①

endpos=endpos+b（pb）

endpos=endpos+b（pb）

End If
k=i
For j=i+1 To endpos
If Thenk=j
Next j
Ifk＜＞i Then
②

t=a（k）：a（k）=a（i）：a（i）=t或a（k）=a（k）+a（i）：a（i）=a（k）-a（i）：a（k）=a（k）-a（i）或其他等价语句

t=a（k）：a（k）=a（i）：a（i）=t或a（k）=a（k）+a（i）：a（i）=a（k）-a（i）：a（k）=a（k）-a（i）或其他等价语句

End  If
Next i
Text3 Text=″″
Fori=1 To n
Text3 Text-Text3 Text Str（a（i））
End Sub
（1）观察代码，排序后的数据输出在对象

text3

text3

中（填对象名）。
（2）程序中加框处代码有错，请改正。
（3）为了实现上述功能，请在横线处填写合适的代码。
（4）若程序运行时，读取了100个整数存储到数组a中，数组b各元素的值依次为“30，1，20，0，40，0，10，1”，则程序运行到（4）处代码时，endpos的值为

100

100

。