某地为各个村之间建立灌溉管道，现需实现用最短的管道距离使得所有村庄可以连通。如图a所示，[V1，V2，V3，V4，V5]每个节点表示村庄，两个节点之间的数值表示两个村庄之间的边距离。

算法思路如下：
①首先按边距离升序排序；
②找到边距离最小值1，以及相应的两个节点V1和V3；
③以V1或V3作为起点，搜寻连接新节点且距离最小的边，发现（V1，V4）边最小为4；
④以V1、V3、V4作为起点，搜寻连接新节点且距离最小的边，发现（V4，V5）边最小为2；
⑤以V1、V3、V4、V5作为起点，搜寻连接新节点且距离最小的边，发现（V2，V5）边最小为3；因此可知，连通5个村庄的最短管道距离是1+4+2+3=10，效果如图b所示。
现设计了如下VB程序，界面如图c所示，请回答下列问题：
（1）V2到V5的边距离若为6，则连通5个村庄的最短管道距离是

12

12

。
（2）请在横线处填入合适的代码。
Constn=5'村庄数
Constm=8'管道线路数
DimpointAB（1To2*m）AsInteger'存储连接的两个村庄节点
Dimlength（1Tom）AsInteger'存储两个村庄之间的距离
Dimres（1To100）AsInteger'存储管道规划结果
PrivateSubForm_Load （　　）
'村庄节点数据存储在pointAB数组，两个村庄的距离数据存储在length数组。
'如图c所示，（V1，V3）边距离为1，则pointAB（1）=1，pointAB（2）=3，length（1）=1；（V1，V2）边距离为6，则pointAB（3）=1，pointAB（4）=2，length（2）=6；其他依此类推，代码略。
EndSub
Functioncheck（xAsInteger）AsInteger'判断x节点是否已在规划中
check=0
Fori=1To100
Ifx=res（i）Thencheck=1：ExitFunction
Nexti
EndFunction
PrivateSubCommand1_Click （　　）
DimiAsInteger,jAsInteger,tmpAsInteger
DimtotalAsInteger,sumAsInteger
Fori=1Tom-1
Forj=mToi+1Step-1
If ①

length（j）＜length（j-1）

length（j）＜length（j-1）

Then
tmp=pointAB（2*j-1）：pointAB（2*j-1）=pointAB（2*j-3）：pointAB（2*j-3）=tmp
tmp=pointAB（2*j）：pointAB（2*j）=pointAB（2*j-2）：pointAB（2*j-2）=tmp
tmp=length（j）：length（j）=length（j-1）：length（j-1）=tmp
EndIf
Nextj
Nexti
'开始规划管道
total=1
res（1）=pointAB（1）：res（2）=pointAB（2）
sum=length（1）
DoWhiletotal＜②

n-1

n-1

Fori=2Tom
If ③

check（pointAB（2*i-1））+check（pointAB（2*i））=1

check（pointAB（2*i-1））+check（pointAB（2*i））=1

Then
total=total+1
res（2*total-1）=pointAB（2*i-1）
res（2*total）=pointAB（2*i）
sum=sum+length（i）
ExitFor
EndIf
Nexti
Loop
'输出连通结果res以及管道总长度sum,代码略。
EndSub