在平面直角坐標(biāo)系中，給定一個(gè)矩形左下和右上2個(gè)坐標(biāo)點(diǎn)即可確定該矩形，例如左下（1，1）、右上（5，4），則矩形如圖a所示。

現(xiàn)給定若干個(gè)小矩形的坐標(biāo)點(diǎn)，要求判斷能否構(gòu)建出一個(gè)新的大矩形，在大矩形中，各構(gòu)成的小矩形無重疊，無空白。
例1：給定的5個(gè)小矩形能夠精確構(gòu)建一個(gè)坐標(biāo)為（1，1）、（5，4）的大矩形。
小矩形左下，右上坐標(biāo)如下：5個(gè)小矩形精確構(gòu)建一個(gè)大矩形（圖b）：
例2：給定的3個(gè)小矩形，有相交區(qū)域，有空白區(qū)域，不能精確構(gòu)建成一個(gè)大矩形（圖c）。
在任何兩個(gè)小矩形坐標(biāo)不完全相同的情況下，判定能否精確構(gòu)建大矩形的算法如下：
構(gòu)成的大矩形面積等于每個(gè)小矩形的面積之和；
獲取每個(gè)小矩形的所有坐標(biāo)點(diǎn)，有且僅有四個(gè)點(diǎn)只出現(xiàn)一次，其他坐標(biāo)點(diǎn)成對(duì)出現(xiàn)。
（1）給定3個(gè)矩形左下和右上坐標(biāo)依次為[2，4]，[5，5]，[3，2]，[4，4]，[4，2]，[5，4]，請(qǐng)你再添加一個(gè)矩形坐標(biāo)，使4個(gè)矩形精準(zhǔn)構(gòu)建一個(gè)大矩形，則添加矩形左下和右上坐標(biāo)依次為

[2，2]，[3，4]

[2，2]，[3，4]

。
（2）根據(jù)上述算法描述，用VB程序?qū)崿F(xiàn)代碼如下，請(qǐng)?jiān)诋嬀€處填入合適的代碼。
Const n=5'常量n存儲(chǔ)小矩形個(gè)數(shù)
Dim a（1 To 2*n）As Integer'存儲(chǔ)每個(gè)小矩形給定X軸坐標(biāo)
Dim b（1 To 2*n）As Integer'存儲(chǔ)每個(gè)小矩形給定Y軸坐標(biāo)
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
'本過程讀取每個(gè)小矩形X軸坐標(biāo)存儲(chǔ)在數(shù)組a中、每個(gè)小矩形Y軸坐標(biāo)存儲(chǔ)在數(shù)組b中，并在List1中顯示代碼略
End Sub
Private Sub Command1_Click

（　　）

（　?。?/div>
Dim c（1 To 4*n）As Integer'存儲(chǔ)每個(gè)小矩形所有X軸坐標(biāo)，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim d（1 To 4*n）As Integer'存儲(chǔ)每個(gè)小矩形所有Y軸坐標(biāo)，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim mc（1 To 4*n）As Integer'記錄所有坐標(biāo)是否成對(duì)重復(fù)，不重復(fù)為1，重復(fù)為0
Dim temp As Integer
Dim i As Integer,j As Integer,f As Integer
Dim sum As Integer,sumt As Integer,count As Integer
For i=1 To 2*n Step 2
sum=sum+（a（i+1）-a（i））*（b（i+1）-b（i））
Next i
f=1
For i=1 To 2*n
c（i）=a（i）
c（n*2+i）=a（i）
d（i）=b（i）
d（n*2+i）=b（i+f）
 ①

f=-f

f=-f

Next i
For i=1 To 4*n-1
For j=1 To 4*n-i
If c（j）＞c（j+1）Or c（j）=c（j+1）And d（j）＞d（j+1）Then
temp=c（j）：c（j）=c（j+1）：c（j+1）=temp
temp=d（j）：d（j）=d（j+1）：d（j+1）=temp
End If
Next j
Next i
sumt=②

Abs（c（4*n）-c（1））*Abs（d（4*n）-b（1））

Abs（c（4*n）-c（1））*Abs（d（4*n）-b（1））

If sum＜＞sumt Then
Label1.Caption=“不能精確構(gòu)建”
Exit Sub'結(jié)束當(dāng)前過程，不再執(zhí)行后續(xù)程序
Else
For i=1 To 4*n
mc（i）=1
Next i
i=1
Do While i＜4*n
If c（i）=c（i+1）And d（i）=d（i+1）Then
mc（i）=0：mc（i+1）=0
i=i+2
Else
i=i+1
End If
Loop
count=0
For i=1 To 4*n
 ③

count=count+mc（i）

count=count+mc（i）

Next i
If count=4 Then Label1.Caption=“能精確構(gòu)建“Else Label1.Caption=“不能精確構(gòu)建”
End If
End Sub