小王到某城市，時間只有一天了，但小王很想到該城市的著名大景區游玩，該城市的著名大景區內共有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）