小王基于選擇排序算法編寫了一個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

。