星期天,小龍來到動物園游玩,園內(nèi)共有N個景點(可在10個以上),每個景點都有一個標(biāo)號,標(biāo)號為1至N.現(xiàn)在只知道每個景點有一條路連接下一個景點。小龍想知道,根據(jù)這些道路信息,從其中一個景點出發(fā),最后再回到出發(fā)景點,最多能游玩多少個景點。
例如,共有N=5個景點,每個景點連接的下一個景點分別是2,4,5,5,2。
景點號 |
1 |
2 |
3 |
4 |
5 |
下一景點號 |
2 |
4 |
5 |
5 |
2 |
則他可以從2號景點出發(fā),最多可以游玩2號、4號、5號三個景點。
程序代碼如下:
PrivateSubCommand1_Click ( )
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 ( ?。?br />Form1.BackColor=RGB(0,0,0) EndSub |
C.PrivateSubForm1_Load ( ?。?br />orm1.BackColor=RGB(255,255,255) EndSub |
D.PrivateSubForm1_Load ( ) Form1.BackColor=RGB(0,0,0) EndSub |
(2)若有7個景點,且每個景點的連接情況為:6,3,7,2,7,5,4,那么小龍最多可以游玩的景點數(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)