学进去

小王编写“合并区间”VB。程序，功能如下：窗体加载时，获取并存储合并前的区间数据，显示在列表框List1中。单击“合并”按钮后，以区间左端点数值对区间进行升序排序，然后相邻区间的相交进行合并，如[1，5][3，8]和[8，10]三个区间可合并成[1，10]一个区间，最后在列表框List2中显示合并后的区间。程序运行如图所示：
                   
实现以上功能的 VB 程序如下，请在横线处填入合适的代码。
Dim a(1 To 20) As Integer'存储区间的左端点数值
Dim b(1 To 20) As Integer'存储区间的右端点数值
Private Sub Form_Load()
'将区间左端点存入数组a，区间右端点存人数组b，并在列表框List1中显示，代码略
End Sub
Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim curL As Integer,curR As Integer

For i=1 To n-1

For j=1 To n-i
If（1）______Then
t=a(j):a(j)= a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
End If
Next j

Next i

curL=a(1):curR=b(1)

For i=2 To n

If（2）__________Then
If curR<b(i) Then（3）__________
Else
List2.AddItem"["+Str(curL)+Str(curR)+"]"
curL=a(i):curR=b(i)
End If

Next i

List2. AddItem"["+Str(curL)+Str(curR)+"]"

End Sub