31．星期天，小龍來(lái)到動(dòng)物園游玩，園內(nèi)共有N個(gè)景點(diǎn)（可在10個(gè)以上），每個(gè)景點(diǎn)都有一個(gè)標(biāo)號(hào)，標(biāo)號(hà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)號(hào) |
1 |
2 |
3 |
4 |
5 |
| 下一景點(diǎn)號(hào) |
2 |
4 |
5 |
5 |
2 |
則他可以從2號(hào)景點(diǎn)出發(fā)，最多可以游玩2號(hào)、4號(hào)、5號(hào)三個(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屬性值為黑色，以下代碼正確的是
。（單選，填字母）
A．PrivateSubForm_Load （ ）
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個(gè)景點(diǎn)，且每個(gè)景點(diǎn)的連接情況為：6，3，7，2，7，5，4，那么小龍最多可以游玩的景點(diǎn)數(shù)是
。
（3）請(qǐng)把橫線處的代碼補(bǔ)充完整：
①
②
（4）程序加框處代碼有錯(cuò)，請(qǐng)改正：
