星期天，小龍來到動物園游玩，園內(nèi)共有N個景點(diǎn)（可在10個以上），每個景點(diǎn)都有一個標(biāo)號，標(biāo)號為1至N．現(xiàn)在只知道每個景點(diǎn)有一條路連接下一個景點(diǎn)。小龍想知道，根據(jù)這些道路信息，從其中一個景點(diǎn)出發(fā)，最后再回到出發(fā)景點(diǎn)，最多能游玩多少個景點(diǎn)。
例如，共有N=5個景點(diǎn)，每個景點(diǎn)連接的下一個景點(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號三個景點(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)行時，F(xiàn)orm1的BackColor屬性值為黑色，以下代碼正確的是

B

B

。（單選，填字母）

A．PrivateSubForm_Load （　?。?br />Form1．BackColor=RGB（255，255，255） EndSub	B．PrivateSubForm_Load （　　） 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個景點(diǎn)，且每個景點(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）程序加框處代碼有錯，請改正：

p=a（p）

p=a（p）