小王基于選擇排序算法編寫了一個VB程序，功能如下：讀取若干數(shù)據(jù)依次存儲在數(shù)組a中，并將數(shù)據(jù)分段排序，每段數(shù)據(jù)的元素個數(shù)及排序的次序要求依次存儲在數(shù)組b中。如圖，在文本框Text1中顯示數(shù)組a的原始數(shù)據(jù)，在文本框Text2中顯示每段數(shù)據(jù)的元素個數(shù)及排序次序要求（0表示升序、1表示降序）；單擊“排序”按鈕Command1，根據(jù)要求輸出對每段數(shù)據(jù)進(jìn)行排序的結(jié)果。實現(xiàn)上述功能的VB程序如下：

Dim n As Integer
Im a（1 To 100）As integer
Dim b（1 To 100）As Integer
Private Sub Form _Load（　　）
'讀取若干數(shù)據(jù)依次存儲到數(shù)組a中，并將數(shù)據(jù)元素的總個數(shù)仔儲到變量n中
'將每段數(shù)據(jù)的元素個數(shù)及排序的次序依次存儲到數(shù)組b中：
'b（1）、b（2）分別存儲第1段數(shù)據(jù)的元素個數(shù)，排序的次序，
'b（3）、b（4）分別存儲第2段數(shù)據(jù)的元素個數(shù)、排序的次序，…
'代碼略
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）觀察代碼，排序后的數(shù)據(jù)輸出在對象

text3

text3

中（填對象名）。
（2）程序中加框處代碼有錯，請改正。
（3）為了實現(xiàn)上述功能，請在橫線處填寫合適的代碼。
（4）若程序運(yùn)行時，讀取了100個整數(shù)存儲到數(shù)組a中，數(shù)組b各元素的值依次為“30，1，20，0，40，0，10，1”，則程序運(yùn)行到（4）處代碼時，endpos的值為

100

100

。