小王到某城市，时间只有一天了，但小王很想到该城市的著名大景区游玩，该城市的著名大景区内共有N（超过10）个景点，标号为1至N，假设每个景点都有一个进出口。现在只知道每个景点有一条路连接下一个景点。小王想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点离开，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，2，3，1。

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

则他可以从2号景点出发，最多可以游玩2号、3号、4号三个景点。程序代码如下：
PrivateSubCommand1_Click

（　　）

（　　）

Dima（1To100）AsInteger,d（1To100）AsInteger'数组a存放下一景点号
DimjdAsString,mAsString,cAsInteger,iAsInteger
DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
jd=Text1.Text+“，“
s=0：c=0
Fori=1ToLen（jd）
m=Mid（jd,i,1）
Ifm＜＞“，“Then
①

s=s*10+val（m）

s=s*10+val（m）

Else
c=c+1：a（c）=s：s=0
EndIf
Nexti
Fork=1To100d（k）=0
Nextkans=0：k=0
Fori=1Toc'枚举起点
Ifd（i）=0Thenp=i
DoWhilep＜=c
Ifd（p）=0Then
k=k+1：d（p）=k
Else
②

y=k-c-1

y=k-c-1

Ify＞ansThenans=yk=0
ExitDo
EndIf
'改错
Loop
EndIf
NextiText2.Text=Str（ans）
EndSub
（1）若有7个景点，且每个景点的连接情况为：6，3，5，2，7，5，4，那么小王最多可以游玩的景点数是

5

5

。
（2）程序代码中，程序①②填空
①

s=s*10+val（m）

s=s*10+val（m）

②

y=k-c-1

y=k-c-1

（3）程序代码中，加框处代码有错，请改正。
改正

p=a（p）

p=a（p）