星期天，小杰来到动物园游玩，园内共有N个景点，每个景点都有一个标号，标号为1至N．现在只知道每个景点有一条路连接下一个景点。小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2，如下表所示。

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

则他可以从2号景点出发，最多可以游玩2号4号、5号三个景点，程序运行界面如图所示。
程序代码如下：
Private Sub Command1_Click （　　）
Dim a（1 To 100）As Integer,d（1 To 100）As Integer
'数组a存放下一景点号
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'枚举游览起点
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）若要实现显示“景点连接情况：”的Textl在程序运行时默认为空，则需要将Text1的

Text

Text

属性设置为空。
（2）若有7个景点，且每个景点的连接情况为6，3，7，2，7，5，4，则小杰最多可以游玩的景点数是

4

4

。
（3）程序代码中，“含义”处的“a（c）=s”语句代表的含义是

c号景点的下一个景点是s号景点

c号景点的下一个景点是s号景点

。
（4）程序代码中，“改错”处的语句有误，应改为

p=a（p）

p=a（p）

。
（5）程序代码中，将“填空”处的语句补充完整

k-d（p）+1

k-d（p）+1

。