小王到某城市，時(shí)間只有一天了，但小王很想到該城市的著名大景區(qū)游玩，該城市的著名大景區(qū)內(nèi)共有N（超過(guò)10）個(gè)景點(diǎn)，標(biāo)號(hào)為1至N，假設(shè)每個(gè)景點(diǎn)都有一個(gè)進(jìn)出口?，F(xiàn)在只知道每個(gè)景點(diǎn)有一條路連接下一個(gè)景點(diǎn)。小王想知道，根據(jù)這些道路信息，從其中一個(gè)景點(diǎn)出發(fā)，最后再回到出發(fā)景點(diǎn)離開(kāi)，最多能游玩多少個(gè)景點(diǎn)。
例如，共有N=5個(gè)景點(diǎn)，每個(gè)景點(diǎn)連接的下一個(gè)景點(diǎn)分別是2，4，2，3，1。

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

則他可以從2號(hào)景點(diǎn)出發(fā)，最多可以游玩2號(hào)、3號(hào)、4號(hào)三個(gè)景點(diǎn)。程序代碼如下：
PrivateSubCommand1_Click

（　?。?/div>

（　　）

Dima（1To100）AsInteger,d（1To100）AsInteger'數(shù)組a存放下一景點(diǎn)號(hào)
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'枚舉起點(diǎn)
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
'改錯(cuò)
Loop
EndIf
NextiText2.Text=Str（ans）
EndSub
（1）若有7個(gè)景點(diǎn)，且每個(gè)景點(diǎn)的連接情況為：6，3，5，2，7，5，4，那么小王最多可以游玩的景點(diǎn)數(shù)是

5

5

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

s=s*10+val（m）

s=s*10+val（m）

②

y=k-c-1

y=k-c-1

（3）程序代碼中，加框處代碼有錯(cuò)，請(qǐng)改正。
改正

p=a（p）

p=a（p）