星期天，小龍來到動(dòng)物園游玩，園內(nèi)共有N個(gè)景點(diǎn)（可在10個(gè)以上），每個(gè)景點(diǎn)都有一個(gè)標(biāo)號，標(biāo)號為1至N．現(xiàn)在只知道每個(gè)景點(diǎn)有一條路連接下一個(gè)景點(diǎn)。小龍想知道，根據(jù)這些道路信息，從其中一個(gè)景點(diǎn)出發(fā)，最后再回到出發(fā)景點(diǎn)，最多能游玩多少個(gè)景點(diǎn)。
例如，共有N=5個(gè)景點(diǎn)，每個(gè)景點(diǎn)連接的下一個(gè)景點(diǎn)分別是2，4，5，5，2。

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

則他可以從2號景點(diǎn)出發(fā)，最多可以游玩2號、4號、5號三個(gè)景點(diǎn)。
程序代碼如下：
PrivateSubCommand1_Click （　?。?br />Dima（1To100）AsInteger,d（1To100）AsInteger
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
①
Else
c=c+1：a（c）=s：s=0
EndIf
Nexti
ans=0：k=0
Fori=1Toc
Fork=1Toc
d（k）=0
Nextk
Ifd（i）=0Then
p=i
DoWhilep＜=c
Ifd（p）=0Then
k=k+1：d（p）=k
Else
②
Ify＞ansThenans=y
k=0
ExitDo
EndIf

Loop
EndIf
Nexti
Text2．Text=Str（ans）
EndSub
（1）要使程序運(yùn)行時(shí)，F(xiàn)orm1的BackColor屬性值為黑色，以下代碼正確的是

B

B

。（單選，填字母）

A．PrivateSubForm_Load （　　） Form1．BackColor=RGB（255，255，255） EndSub	B．PrivateSubForm_Load （　?。?br />Form1．BackColor=RGB（0，0，0） EndSub
C．PrivateSubForm1_Load （　　） orm1．BackColor=RGB（255，255，255） EndSub	D．PrivateSubForm1_Load （　?。?br />Form1．BackColor=RGB（0，0，0） EndSub

（2）若有7個(gè)景點(diǎn)，且每個(gè)景點(diǎn)的連接情況為：6，3，7，2，7，5，4，那么小龍最多可以游玩的景點(diǎn)數(shù)是

4

4

。
（3）請把橫線處的代碼補(bǔ)充完整：
①

s=s*10+Val（m）

s=s*10+Val（m）

②

y=k-d（p）+1

y=k-d（p）+1

（4）程序加框處代碼有錯(cuò)，請改正：

p=a（p）

p=a（p）