学进去

星期天，小杰来到动物园游玩，园内共有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=_________   '填空
If y>ans Then ans=y
k=0
End If

Next i

Text2.Text=Str(ans)

End Sub
（1）若要实现显示“景点连接情况：”的Textl在程序运行时默认为空，则需要将Text1的____属性设置为空。
（2）若有7个景点，且每个景点的连接情况为6，3，7，2，7，5，4，则小杰最多可以游玩的景点数是_____________。
（3）程序代码中，“含义”处的“a(c)=s”语句代表的含义是__________________。
（4）程序代码中，“改错”处的语句有误，应改为________________。
（5）程序代码中，将“填空”处的语句补充完整_________________。