小明編寫了一個有關整數閉區(qū)間合并操作的VB程序：從數據庫讀取閉區(qū)間數據（左端點和右端點），存儲在數組a中，按區(qū)間數據左端點升序排序，然后進行合并操作操作結果存儲在數組b中。
例如，讀取的數據為2、3、15、25、10、14、1、5、30、60、15、25，過程是：
（1）設置區(qū)間信息為[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]，[30，60]；
（2）按區(qū)間左端點升序排序，得到區(qū)間信息為[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]
（3）合并區(qū)間，得到[1，5]，[10，25]，[30，60]．說明：區(qū)間[1，5]和[2，3]合并為[1，5]，區(qū)間[0，14]和[15，25]合并為[′0，25]，區(qū)間[10，25]和[15，25]合并為[10，25]，因此合并后的結果為：[1，5]，[10，25]，[30，60]三個區(qū)間。
程序功能如下：單擊“讀數據庫”按鈕 Commandl,程序從數據庫讀取數據，輸出在文本框Tex1中；單擊“開始處理”按鈕 Command2，程序進行區(qū)間排序，并進行區(qū)間合并操作，操作后的結果輸出在文本框Text2中。程序運行結果如圖所示。

實現上述功能的ⅴB程序如下，請回答下列問題：
（1）從數據庫中讀入的區(qū)間為“[1，10]，[15，20]，[6，18]，[25，30]，[31，200]”，則合并操作后的區(qū)間為

[1，20]，[25，200]

[1，20]，[25，200]

。
（2）請在橫線處填入合適的代碼。
Dima（1To100）As Integer'數組a存儲合并前的區(qū)間
Dimb（1To100 ）As Integer'數組b存儲合并后的區(qū)間
Dim n as integer'n表示區(qū)間個數
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