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

實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）PrivateSubCommand1_CIick （　　）中的Click（　?。?是

C

C

（單選，填字母：A對象名、B屬性名、C事件名、D事件處理過程名）
（2）從數(shù)據(jù)庫中讀入的區(qū)間為[1，10]，[15，20]，[6，18]，[25，30]，[31，200]，則合并操作后的區(qū)間為

[1，20]，[25，200]

[1，20]，[25，200]

。
（3）請在橫線處填入合適的代碼。
Dima（lTo100）AsInteger′數(shù)組a存儲合并前的區(qū)間
Dimb（lTo100）AsInteger′數(shù)組b存儲合并后的區(qū)間
DimnAsInteger′n表示區(qū)間個數(shù)
PrivateSubCommand1_Click （　　）
Dims1AsString,iAsInteger
'讀取數(shù)據(jù)，并存儲到數(shù)組a中，并輸出在文本框Text1中，代碼略
EndSub
PrivateSubCommand2_Click （　?。?br />Dims2AsString,iAsInteger,jAsInteger,kAsInteger
DimnAsInteger,tAsInteger,xAsInteger
Fori=1Ton-1
Forj=1To2*n-2*iStep2
If①

a（j）＞a（j+2）

a（j）＞a（j+2）

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
EndIf
Nextj
Nexti
k=2
b（1）=a（1）：b（2）=a（2）
i=2：j=3
DoWhilej＜=2*n
Ifb（i）＞=a（j）Then
Ifb（i）＜=a（j+1）Then?、?!--BA-->

b（k）=a（j+1）

b（k）=a（j+1）

ElseIfb（i）+1=a（j）Then
b（k）=a（j+l）
Else
k=k+1：③

b（k）=a（j）

b（k）=a（j）

k=k+1：b（k）=a（j+1）
i=i+2
EndIf
j=j+2
Loop
Forx=1Tok-2Step2
s2=s2&″[″&b（x）&″，″&b（x+1）&″]″&″，″
Nextx
s2=s2&″[″&b（x）&″，″&b（x+1）&″]″
Text2．text=s2
EndSub