某地為各個村之間建立灌溉管道，現(xiàn)需實現(xiàn)用最短的管道距離使得所有村莊可以連通。如圖a所示，[V1，V2，V3，V4，V5]每個節(jié)點表示村莊，兩個節(jié)點之間的數(shù)值表示兩個村莊之間的邊距離。

算法思路如下：
①首先按邊距離升序排序；
②找到邊距離最小值1，以及相應(yīng)的兩個節(jié)點V1和V3；
③以V1或V3作為起點，搜尋連接新節(jié)點且距離最小的邊，發(fā)現(xiàn)（V1，V4）邊最小為4；
④以V1、V3、V4作為起點，搜尋連接新節(jié)點且距離最小的邊，發(fā)現(xiàn)（V4，V5）邊最小為2；
⑤以V1、V3、V4、V5作為起點，搜尋連接新節(jié)點且距離最小的邊，發(fā)現(xiàn)（V2，V5）邊最小為3；因此可知，連通5個村莊的最短管道距離是1+4+2+3=10，效果如圖b所示。
現(xiàn)設(shè)計了如下VB程序，界面如圖c所示，請回答下列問題：
（1）V2到V5的邊距離若為6，則連通5個村莊的最短管道距離是

12

12

。
（2）請在橫線處填入合適的代碼。
Constn=5'村莊數(shù)
Constm=8'管道線路數(shù)
DimpointAB（1To2*m）AsInteger'存儲連接的兩個村莊節(jié)點
Dimlength（1Tom）AsInteger'存儲兩個村莊之間的距離
Dimres（1To100）AsInteger'存儲管道規(guī)劃結(jié)果
PrivateSubForm_Load （　?。?br />'村莊節(jié)點數(shù)據(jù)存儲在pointAB數(shù)組，兩個村莊的距離數(shù)據(jù)存儲在length數(shù)組。
'如圖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節(jié)點是否已在規(guī)劃中
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
'開始規(guī)劃管道
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
'輸出連通結(jié)果res以及管道總長度sum,代碼略。
EndSub