親戚尋找。小李總是因為認(rèn)不清親戚而苦惱，于是他設(shè)計了如下程序來模擬親戚尋找的過程。已知：如果1和2是親戚，1和3是親戚，則2和3也是親戚。代碼思維如下：
（1）將每個人看成是一個鉤碼，能掛在另一個掛鉤底下，自己底下也能掛其他掛鉤。
（2）如果兩個鉤碼在同一條鉤碼串上，則為親戚（如2、3都能找到1）。
（3）如果兩個是親戚但不在一串鉤碼上，則可將其中一串的最上面的鉤碼掛在另一串的下方。
例如從圖a加框處的前三行數(shù)據(jù)可得到圖b所示的鉤碼串1和鉤碼串2，從第四行數(shù)據(jù)可知9、5也為親戚，則可將兩串鉤碼合并，合并后3為2的頂端，5為3的頂端，其余數(shù)據(jù)以此類推。
根據(jù)算法思想，編寫VB程序功能如下：程序初始化時給出6條親戚關(guān)系顯示在List1中，單擊“理關(guān)系”按鈕，在List2中顯示每個人所在鉤碼的頂端編號。在Text1和Text2中分別輸入兩人的編號，單擊“詢問”按鈕，輸出兩個人是否為親戚關(guān)系。程序運(yùn)行界面如圖a所示。

（1）根據(jù)圖a數(shù)據(jù)，若輸入兩人的編號為4和5，則兩人的關(guān)系是否為親戚

是

是

（填：是/否）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Const n=9'總?cè)藬?shù)
Const m=6'已知的親戚關(guān)系數(shù)
Dim a（1 To n） As String,b（1 To n） As String
Dim f（1 To n） As String'記錄不同的親戚鉤碼串成員，每條親戚鉤碼串內(nèi)互為親戚
Dim k As Integer'親戚鉤碼串的數(shù)目
Private Sub Form_Load （　?。?br />'初始化List1和List2，生成m條親戚關(guān)系，每條親戚關(guān)系的編號對應(yīng)存儲在數(shù)組a（i）和b（i）'中，在List1中輸出a（i）和b（i），代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,x As Integer,y As Integer
f（1）=a（1）+b（1）'利用a（1）、b（1）生成第一條鉤碼串存儲在f（1）中
k=1'k為鉤碼串編號
For i=2 To m
x=root（a（i），0）：y=root（b（i），0）'x為調(diào)用函數(shù)獲取a（i）所在的鉤碼串編號
If x=0 And y=0 Then k=k+1：①

f（k）=a（i）+b（i）

f（k）=a（i）+b（i）

'根據(jù)x與y分類討論
If x＜＞0 And y=0 Then f（x）=f（x）+b（i）
If x=0 And y＜＞0 Then f（y）=f（y）+a（i）
If x＜＞y And x＜＞0 And y＜＞0 Then'x、y在不同鉤碼串則將兩條鉤碼串合并
f（x）=f（x）+f（y）：f（y）=f（k）：k=k-1
End If
Next i
For i=1 To n'輸出每個人所在鉤碼的頂端編號
x=root（CStr（i），0）：y=root（CStr（i），1）'Cstr

（　?。?/div>

（　?。?/div>函數(shù)用于去除字符前導(dǎo)空格
If x＜＞0 Then
If y=Len（f（x）） ThenList2.AddItem Str（i）+““+CStr（i）
If y＜＞Len（f（x）） Then List2.AddItem Str（i）+““+②

Mid（f（x），y+1，1）

Mid（f（x），y+1，1）

End If
Next i
End Sub
'按鈕Command2的功能為判斷輸入的兩個人是否為親戚關(guān)系，代碼略
Function root（a As String,b As Integer） As Integer'參數(shù)a表示待查找目標(biāo)，參數(shù)b
'表示返回值類型，0表示返回目標(biāo)所在鉤碼串編號，1表示返回目標(biāo)在該鉤碼串中的位置
Dim m As Integer,n As Integer,i As Integer,j As Integer
m=0：n=0：i=k：j=0
Do While i＞0
If a=Mid（f（i），Len（f（i））-j,1）Thenm=i：n=Len（f（i））-j：Exit Do
j=j+1
If j=Len（f（i）） Then i=i-1：j=0
Loop
If ③

b=0

b=0

 Then root=m Else root=n
End Function