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

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

則他可以從2號(hào)景點(diǎn)出發(fā)，最多可以游玩2號(hào)4號(hào)、5號(hào)三個(gè)景點(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)號(hào)
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'改錯(cuò)
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)行時(shí)默認(rèn)為空，則需要將Text1的

Text

Text

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

4

4

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

c號(hào)景點(diǎn)的下一個(gè)景點(diǎn)是s號(hào)景點(diǎn)

c號(hào)景點(diǎn)的下一個(gè)景點(diǎn)是s號(hào)景點(diǎn)

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

p=a（p）

p=a（p）

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

k-d（p）+1

k-d（p）+1

。