某著名景點在七月份收到若干旅游公司的通告,通告中包括該公司旅游的起始時間和終止時間,如[6,10]表示該旅行團6號早上到,10號早上回。疫情期間為避免人員扎堆,公司在時間段[start,ending]進行限流操作,要求在該時間段內景點每天都接待游客,且接待的旅行團越少越好。若景點收到的旅行團的數據是[3,8]、[3,6]、[8,15]、[18,25]、[14,20]、[5,10],[10,18]、[13,18]限流時間是[4,19]。工作人員對旅行團的數據做了如下處理:
①將旅行團的旅行時間按照“到達時間”為主要關鍵字,“返回時間”為次要關鍵字升序排序。排好序的時間段是[3,6]、[3,8]、[5,10]、[8,15]、[10,18]、[13,18],[14,20]、[18,25].
②從前往后遍歷時間段,選擇“到達時間”不大于“限流開始時間”的時間段,若有多個時間段滿足條件,且時間段未超出限流時間,應選擇“返回時間”最大的時間段,選擇的時間段是[3,8]。
③縮小限流時間[8,19],重復步驟2,選擇滿足條件的時間段是[8,15],縮小限流時間[15,19],重復步驟2,選擇滿足條件的時間段是[14,20],結束時間已超過限流終止時間,結束。
④若在遍歷時間過程中出現“到達時間”大于“限流開始時間”,景點不能每天接待旅客,則沒有滿足條件的旅行社。
小王編寫VB程序,程序界面如下所示,單擊“排序”按鈕,將旅行團的時間按照“到達時間”為主要關鍵字,“返回時間”為次要關鍵字升序排序,在Text1和Text2中輸入限流的起始時間和終止時間,單擊“滿足條件的旅行團”按鈕,在列表框輸出滿足條件的旅行團的時間,若沒有滿足條件的旅行社,則在列表框輸出“沒有滿足條件的旅行團!”
回答下列問題:
(1)若景點接收到的旅行社的起始時間和終止時間分別為[5,17]、[7,18]、[4,12]、[3,8]、[2,10],限流時間是[3,15],篩選出的旅行團的時間是)[2,10],[5,17])[2,10],[5,17]
(2)請在橫線處填入合適的代碼
DimiAsInteger,jAsInteger,nAsInteger,tAsIntegerDima(100)AsInteger,b(100)AsInteger
PrivateSubCommand1_Click ( )
'將旅行團個數存入n,加載n個旅行團的起始時間、終止時間并分別放在數組a和數組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
'輸出排好序的時間段,代碼略
EndSub
PrivateSubCommand2_Click ( )
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“沒有滿足條件的旅行團!“
ExitFor
EndIf
List2.AddItemStr(a(t))&″---″&Str(b(t))
③start=leavetimestart=leavetime
i=i-1
EndIf
Nexti
EndSub
【考點】應用程序的試運行和保存.
【答案】)[2,10],[5,17];j<i;leavetime>=ending;start=leavetime
【解答】
【點評】
聲明:本試題解析著作權屬菁優網所有,未經書面同意,不得復制發布。
發布:2024/6/27 10:35:59組卷:0引用:1難度:0.6
相似題
-
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時,由系統向用戶 A 推薦用戶 B。
編寫 VB 程序,實現好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖:
(1)根據如圖所示數據,若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為:
(2)實現上述功能的 VB 程序如下,請在橫線處填入合適的代碼。發布:2025/1/2 10:30:2組卷:0引用:1難度:0.3 -
2.小明用python語言中對大小為100*100像素的圖像“上.jpg”(如圖所示)進行簡單處理,部分代碼如圖:
程序執行后的圖像效果是( )A. B. C. D. 發布:2024/12/20 9:30:2組卷:3引用:5難度:0.4 -
3.某學校開展了藝術節活動,數組a中存儲了n個節目的編號和得分數據,數組存儲結構如圖所示:
小明使用選擇排序思想對上述n個節目按得分進行降序排序(得分相同的按編號升序排列),并依據得分插入各個節目的排名信息,處理后數組a的存儲結構如圖所示:
程序運行時,單擊命令按鈕Command1后讀取數據到數組a中并顯示在列表框List1中,單擊命令按鈕Command2后將節目按照上述規則進行排序,并將排名結果顯示在列表框List2中。
實現上述功能的VB程序如下,請回答下列問題:
(1)已知窗體名稱為Forml,要使程序加載時,窗體標題自動顯示為“第15題程序”,則可在
(2)請在橫線處填入合適的代碼。
(3)加框處代碼有誤,請改正。發布:2025/1/2 10:30:2組卷:0引用:1難度:0.3