星期天，小杰來到動物園游玩，園內(nèi)共有N個景點(diǎn)，每個景點(diǎn)都有一個標(biāo)號，標(biāo)號為1至N．現(xiàn)在只知道每個景點(diǎn)有一條路連接下一個景點(diǎn)。小杰想知道，根據(jù)這些道路信息，從其中一個景點(diǎn)出發(fā)，最后再回到出發(fā)景點(diǎn)，最多能游玩多少個景點(diǎn)。例如，共有N=5個景點(diǎn)，每個景點(diǎn)連接的下一個景點(diǎn)分別是2，4，5，5，2，如下表所示。

景點(diǎn)號	1	2	3	4	5
下一景點(diǎn)號	2	4	5	5	2

則他可以從2號景點(diǎn)出發(fā)，最多可以游玩2號4號、5號三個景點(diǎn)，程序運(yùn)行界面如圖所示。
程序代碼如下：
Private Sub Command1_Click （　?。?br />Dim a（1 To 100）As Integer,d（1 To 100）As Integer
'數(shù)組a存放下一景點(diǎn)號
Dim jd As String,m As String,c As Integer,i As Integer
Dim s As Integer,p As Integer,k As Integer,ans As Integer
jd=Text1．Text+″，″
s=0：c=0
For i=1 To Len（jd）
m=Mid（jd,i,1）
If m＜＞″，″Then
s=s*10+Val（m）
Else
c=c+1：a（c）=s：s=0'含義
End If
Next i
For i=1 To c
d（i）=0
Next
ans=0：k=0
For i=1 Toc'枚舉游覽起點(diǎn)
If d（i）=0 Then
p=i
Do While d（p）=0
k=k+1：d（p）=k：p=p+1'改錯
Loop
y=

k-d（p）+1

k-d（p）+1

'填空
If y＞ans Then ans=y
k=0
End If
Next i
Text2．Text=Str（ans）
End Sub
（1）若要實(shí)現(xiàn)顯示“景點(diǎn)連接情況：”的Textl在程序運(yùn)行時默認(rèn)為空，則需要將Text1的

Text

Text

屬性設(shè)置為空。
（2）若有7個景點(diǎn)，且每個景點(diǎn)的連接情況為6，3，7，2，7，5，4，則小杰最多可以游玩的景點(diǎn)數(shù)是

4

4

。
（3）程序代碼中，“含義”處的“a（c）=s”語句代表的含義是

c號景點(diǎn)的下一個景點(diǎn)是s號景點(diǎn)

c號景點(diǎn)的下一個景點(diǎn)是s號景點(diǎn)

。
（4）程序代碼中，“改錯”處的語句有誤，應(yīng)改為

p=a（p）

p=a（p）

。
（5）程序代碼中，將“填空”處的語句補(bǔ)充完整

k-d（p）+1

k-d（p）+1

。