則他可以從2號景點(diǎn)出發(fā),最多可以游玩2號4號、5號三個(gè)景點(diǎn),程序運(yùn)行界面如圖所示。 程序代碼如下: Private Sub Command1_Click ( ?。?br />Dim a(1 To 100)As Integer,d(1 To 100)As Integer '數(shù)組a存放下一景點(diǎn)號 Dim jd As String,m As String,c As Integer,i As Integer Dim s As Integer,p As Integer,k As Integer,ans As Integer jd=Text1.Text+″,″ s=0:c=0 For i=1 To Len(jd) m=Mid(jd,i,1) If m<>″,″Then s=s*10+Val(m) Else c=c+1:a(c)=s:s=0'含義 End If Next i For i=1 To c d(i)=0 Next ans=0:k=0 For i=1 Toc'枚舉游覽起點(diǎn) If d(i)=0 Then p=i Do While d(p)=0 k=k+1:d(p)=k:p=p+1'改錯(cuò) Loop y=
'填空 If y>ans Then ans=y k=0 End If Next i Text2.Text=Str(ans) End Sub (1)若要實(shí)現(xiàn)顯示“景點(diǎn)連接情況:”的Textl在程序運(yùn)行時(shí)默認(rèn)為空,則需要將Text1的
小明依據(jù)上面的方法設(shè)計(jì)了 VB 程序如下: Dim a(1 To 100),i As Integer,j As Integer,tmp As Integer,p As Integer Dim start1 As Integer,end1 As Integer,start2 As Integer,end2 As Integer'將序列保存到數(shù)組 a中,序列長度保存到 n 中,移動(dòng)數(shù)字的個(gè)數(shù)保存在 p 中 Private Sub Command2_Click ( ?。?用方法一實(shí)現(xiàn) For i=p+1 To n tmp=a(i) For j=i To ①Step-1 a(j)=a(j-1) Next j ②=tmp Next i End Sub Private Sub Command3_Click ( )'用方法二實(shí)現(xiàn) start1=1:end1=p'第 1 個(gè)區(qū)間的起始狀態(tài) start2=p+1:end2=n'第 2 個(gè)區(qū)間的起始狀態(tài) i=start1:j=start2 Do While ③ i=start1:j=start2 Do While i<=end1 And j<=end2 tmp=a(i):a(i)=a(j):a(j)=tmp i=i+1:j=j+1 Loop If i<=end1 Then'第 2 個(gè)區(qū)間結(jié)束且第 1 個(gè) 區(qū)間還有元素 start1=i ElseIf j<=end2 Then'第 1 個(gè)區(qū)間結(jié)束且第 2 個(gè)區(qū)間還有元素 start1=i:④ start2=j End If Loop End Sub 請回答下列問題: (1)若序列為:9,8,13,22,7,6,5,37,6,p=4 時(shí),使用方法一,則 a(3)的值依次是 13,