学进去

小李编写“合并区间”VB程序功能如下：窗体加载时，获取并存储合并前的区间数据，并显示在列表框List1中。单击“合并”按钮后，以区间左端点数值对区间进行升序排序，然后相邻区间的相交进行合并，最后在列表框List2上显示合并后的区间。程序运行如图所示：
             
实现上述功能的VB程序如下，在划线处填入合适的代码。
Dim a (1 To 20) As Integer '存储区间的左端点数值
Dim b (l To 20) As Integer '存储区间的右端点数值
Private Sub Form_Load()
'将区间左端点存入a,区间右端点存入如数组b,并在列表框List1显示,代码略
End Sub
Private Sub Command1_Cick()
Dim i As Integer, j As Integer
Dim curl As Integer, curR As Integer
For i=1 To n-1
For j=1 To①______
If②______ then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(i+1):b(j+1)=t
End If

Next j

Next i
curL=a(1):curR=b(1)
For i=2 To n
If a(i)<=curR Then
If curR < b(i) Then③______
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