在平面直角坐标系中，给定一个矩形左下和右上2个坐标点即可确定该矩形，例如左下（1，1）、右上（5，4），则矩形如图a所示。

现给定若干个小矩形的坐标点，要求判断能否构建出一个新的大矩形，在大矩形中，各构成的小矩形无重叠，无空白。
例1：给定的5个小矩形能够精确构建一个坐标为（1，1）、（5，4）的大矩形。
小矩形左下，右上坐标如下：5个小矩形精确构建一个大矩形（图b）：
例2：给定的3个小矩形，有相交区域，有空白区域，不能精确构建成一个大矩形（图c）。
在任何两个小矩形坐标不完全相同的情况下，判定能否精确构建大矩形的算法如下：
构成的大矩形面积等于每个小矩形的面积之和；
获取每个小矩形的所有坐标点，有且仅有四个点只出现一次，其他坐标点成对出现。
（1）给定3个矩形左下和右上坐标依次为[2，4]，[5，5]，[3，2]，[4，4]，[4，2]，[5，4]，请你再添加一个矩形坐标，使4个矩形精准构建一个大矩形，则添加矩形左下和右上坐标依次为

[2，2]，[3，4]

[2，2]，[3，4]

。
（2）根据上述算法描述，用VB程序实现代码如下，请在画线处填入合适的代码。
Const n=5'常量n存储小矩形个数
Dim a（1 To 2*n）As Integer'存储每个小矩形给定X轴坐标
Dim b（1 To 2*n）As Integer'存储每个小矩形给定Y轴坐标
Private Sub Form_Load

（　　）

（　　）

'本过程读取每个小矩形X轴坐标存储在数组a中、每个小矩形Y轴坐标存储在数组b中，并在List1中显示代码略
End Sub
Private Sub Command1_Click

（　　）

（　　）

Dim c（1 To 4*n）As Integer'存储每个小矩形所有X轴坐标，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim d（1 To 4*n）As Integer'存储每个小矩形所有Y轴坐标，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim mc（1 To 4*n）As Integer'记录所有坐标是否成对重复，不重复为1，重复为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=“不能精确构建”
Exit Sub'结束当前过程，不再执行后续程序
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=“能精确构建“Else Label1.Caption=“不能精确构建”
End If
End Sub