15．星期天，小龍來到動物園游玩，園內(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屬性值為黑色，以下代碼正確的是
。（單選，填字母）
A．PrivateSubForm_Load （ ?。?br />Form1．BackColor=RGB（255，255，255）
EndSub |
B．PrivateSubForm_Load （ ?。?br />Form1．BackColor=RGB（0，0，0）
EndSub |
C．PrivateSubForm1_Load （ ?。?br />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ù)是
。
（3）請把橫線處的代碼補(bǔ)充完整：
①
②
（4）程序加框處代碼有錯，請改正：
