某著名景點(diǎn)在七月份收到若干旅游公司的通告,通告中包括該公司旅游的起始時(shí)間和終止時(shí)間,如[6,10]表示該旅行團(tuán)6號(hào)早上到,10號(hào)早上回。疫情期間為避免人員扎堆,公司在時(shí)間段[start,ending]進(jìn)行限流操作,要求在該時(shí)間段內(nèi)景點(diǎn)每天都接待游客,且接待的旅行團(tuán)越少越好。若景點(diǎn)收到的旅行團(tuán)的數(shù)據(jù)是[3,8]、[3,6]、[8,15]、[18,25]、[14,20]、[5,10],[10,18]、[13,18]限流時(shí)間是[4,19]。工作人員對(duì)旅行團(tuán)的數(shù)據(jù)做了如下處理:
①將旅行團(tuán)的旅行時(shí)間按照“到達(dá)時(shí)間”為主要關(guān)鍵字,“返回時(shí)間”為次要關(guān)鍵字升序排序。排好序的時(shí)間段是[3,6]、[3,8]、[5,10]、[8,15]、[10,18]、[13,18],[14,20]、[18,25].
②從前往后遍歷時(shí)間段,選擇“到達(dá)時(shí)間”不大于“限流開始時(shí)間”的時(shí)間段,若有多個(gè)時(shí)間段滿足條件,且時(shí)間段未超出限流時(shí)間,應(yīng)選擇“返回時(shí)間”最大的時(shí)間段,選擇的時(shí)間段是[3,8]。
③縮小限流時(shí)間[8,19],重復(fù)步驟2,選擇滿足條件的時(shí)間段是[8,15],縮小限流時(shí)間[15,19],重復(fù)步驟2,選擇滿足條件的時(shí)間段是[14,20],結(jié)束時(shí)間已超過限流終止時(shí)間,結(jié)束。
④若在遍歷時(shí)間過程中出現(xiàn)“到達(dá)時(shí)間”大于“限流開始時(shí)間”,景點(diǎn)不能每天接待旅客,則沒有滿足條件的旅行社。
小王編寫VB程序,程序界面如下所示,單擊“排序”按鈕,將旅行團(tuán)的時(shí)間按照“到達(dá)時(shí)間”為主要關(guān)鍵字,“返回時(shí)間”為次要關(guān)鍵字升序排序,在Text1和Text2中輸入限流的起始時(shí)間和終止時(shí)間,單擊“滿足條件的旅行團(tuán)”按鈕,在列表框輸出滿足條件的旅行團(tuán)的時(shí)間,若沒有滿足條件的旅行社,則在列表框輸出“沒有滿足條件的旅行團(tuán)!”
回答下列問題:
(1)若景點(diǎn)接收到的旅行社的起始時(shí)間和終止時(shí)間分別為[5,17]、[7,18]、[4,12]、[3,8]、[2,10],限流時(shí)間是[3,15],篩選出的旅行團(tuán)的時(shí)間是)[2,10],[5,17])[2,10],[5,17]
(2)請(qǐng)?jiān)跈M線處填入合適的代碼
DimiAsInteger,jAsInteger,nAsInteger,tAsIntegerDima(100)AsInteger,b(100)AsInteger
PrivateSubCommand1_Click ( )
'將旅行團(tuán)個(gè)數(shù)存入n,加載n個(gè)旅行團(tuán)的起始時(shí)間、終止時(shí)間并分別放在數(shù)組a和數(shù)組b中,代碼略
Fori=nto2step-1
j=1
Dowhile ①j<ij<i
Ifa(j)>a(j+1)Ora(j)=a(j+1)Andb(j)>b(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j)=b(j+1):b(j+1)=t
EndIf
j=j+1
Loop
Nexti
'輸出排好序的時(shí)間段,代碼略
EndSub
PrivateSubCommand2_Click ( ?。?br />DimarrivetimeAsInteger,leavetimeAsInteger
start=Val(Text1-Text):ending=Val(Text2.Text)
Fori=1Ton
arrivetime=start
Ifa(i)<=arrivetimeThen
Ifb(i)>leavetimeThenleavetime=b(i):t=i
If ②leavetime>=endingleavetime>=endingThen
List2.AddItemStr(a(t))&″---″&Str(b(t))ExitFor
EndIf
Else
Ifstart<arrivetimeori=1Then
List2.Clear
List2.AddItem“沒有滿足條件的旅行團(tuán)!“
ExitFor
EndIf
List2.AddItemStr(a(t))&″---″&Str(b(t))
③start=leavetimestart=leavetime
i=i-1
EndIf
Nexti
EndSub
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存.
【答案】)[2,10],[5,17];j<i;leavetime>=ending;start=leavetime
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.6
相似題
-
1.有如下VB程序段:
執(zhí)行該程序段后,變量c的值是( ?。?/h2>發(fā)布:2024/12/16 5:0:1組卷:1引用:2難度:0.3 -
2.由大寫字母組成的長度相同的兩個(gè)字符串s1和s2,檢測(cè)各字母的數(shù)量,如“ABDAC”與“AABCD”所含字母數(shù)量一樣,與“AABBC”所含字母數(shù)量不一樣。實(shí)現(xiàn)該功能的VB程序段如下:
填空處的代碼可以由以下部分組成:
①Text2.Text ②val(Text2.Text) ③b(a)=b(a)+1 ④b(a)=b(a)-1 ⑤b(i)<>0⑥b(i)=0
代碼順序正確的是( ?。?/h2>發(fā)布:2024/12/16 9:30:1組卷:3引用:3難度:0.4 -
3.小明用python語言中對(duì)大小為100*100像素的圖像“上.jpg”(如圖所示)進(jìn)行簡單處理,部分代碼如圖:
程序執(zhí)行后的圖像效果是( ?。?/h2>發(fā)布:2024/12/20 9:30:2組卷:3引用:5難度:0.4
把好題分享給你的好友吧~~