小明编写了一个有关整数闭区间合并操作的VB程序：从数据库读取闭区间数据（左端点和右端点），存储在数组a中，按区间数据左端点升序排序，然后进行合并操作操作结果存储在数组b中。
例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：
（1）设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]，[30，60]；
（2）按区间左端点升序排序，得到区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]
（3）合并区间，得到[1，5]，[10，25]，[30，60]．说明：区间[1，5]和[2，3]合并为[1，5]，区间[0，14]和[15，25]合并为[′0，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。
程序功能如下：单击“读数据库”按钮 Commandl,程序从数据库读取数据，输出在文本框Tex1中；单击“开始处理”按钮 Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

实现上述功能的ⅴB程序如下，请回答下列问题：
（1）从数据库中读入的区间为“[1，10]，[15，20]，[6，18]，[25，30]，[31，200]”，则合并操作后的区间为

[1，20]，[25，200]

[1，20]，[25，200]

。
（2）请在横线处填入合适的代码。
Dima（1To100）As Integer'数组a存储合并前的区间
Dimb（1To100 ）As Integer'数组b存储合并后的区间
Dim n as integer'n表示区间个数
Private Sub Command1_ Click（　　）
Dim sl As String,i As Integer
'读取数据，并存储到数组a中，并输出在文本框Text1中，代码略
End Sub
Private Sub Command2_ Click（　　）
Dim s2 As String,i As Integer,j As Integer,k As Integer
Dim n As Integer,t as Integer,x As integer
For  i=1 To n-1
For  j=1 To 2*n-2*Step 2
If

①

①

Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
t=a（j+1）：a（j+1）=a（j+3）：a（j+3）=t
End If
Next j
Next i
k=2
b（1）=a（1）：b（2）=a（2）
i=2：j=3
Do while j＜=2*n
If b（i）＞=a（j）Then
If b（i）＜=a（j+1）Then

②

②

Elself b（i）+1=a（j） Then
b（k）=a（j+1）
Else
k=k+1：

③

③

k=k+1：b（k）=a（j+1）
End If
j=j+2
Loop
For x=1 To k-2 Step 2
s2=s2&“[“&b（x）&“，“&b（x+1）&““]&“]“，“
Next
s2=s2&“[“&b（x）&“，“&b（x+1）&““]&“]“，“
Text2．Text=s2
End Sub