2020-2021學年浙江省精誠聯盟高三（上）月考信息技術試卷（12月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個是符合題目要求）
-
1．下列有關信息技術和信息處理的說法，正確的是（ ）
組卷：1引用：1難度：0.6 -
2．下列有關網頁和協議的說法中，正確的是（ ）
組卷：2引用：1難度：0.6 -
3．下列應用中，體現了人工智能技術的有（ ）
①通過識別名片自動添加手機聯系人
②疫情期間使用“釘釘”直播授課
③全自動無人駕駛的汽車
④手機掃描二維碼自動跳轉到付款頁面
⑤使用在線翻譯將中文轉換為英文組卷：8引用：1難度：0.5 -
4．使用Access軟件打開數據庫，部分界面如圖所示。下列說法正確的是（ ）
組卷：2引用：1難度：0.7 -
5．用Photoshop軟件制作“中國夢”作品，在“中國夢”圖層中已選擇“中國”區域，如圖所示。下列說法正確的是（ ）
組卷：3引用：2難度：0.7
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．根據對分查找的思想來查找兩個遞增序列中最小值所在的位置，其中第一個遞增序列中的數據全部大于第二個遞增序列中的數據，且兩個序列中沒有重復數據，如組合序列3、4、5、6、1、2是由兩個遞增序列“3、4、5、6”和“1、2”組成的，組合序列的最小值是1，在組合序列中的位置是第5位。
為實現上述功能，小王編寫如下VB程序，首先在Text1中輸入兩個滿足條件的序列，數字之間用“，”隔開且以“，”結尾，單擊按鈕“Cod1”，在Text2中輸出最小值所在序列中的位置，程序運行界面如圖所示。
（1）在界面中，具有Caption屬性的對象有個。
（2）在橫線處填入合適的代碼。
①。
②。
③。
（3）加框處的表達式有誤，請改正。
改正：
PrivateSubCod1_Click （ ）
DimsAsString,chAsString
DimiAsInteger,jAsInteger,nAsInteger,cAsInteger
Dima（100）AsInteger
s=Text1.Text：c=0：n=0
Fori=1ToLen（s）
ch=Mid（s’i,1）
Ifch＞=“0“Andch＜=“9“Then
①
Else
n=n+1
②
c=0
EndIf
Nexti
i=1：j=n
DoWhile
m=（i+j）\2
Ifa（m）＞a（i）Then
i=m
Else
j=m
EndIf
Loop
③
EndSub組卷：0引用：1難度：0.3 -
16．某著名景點在七月份收到若干旅游公司的通告，通告中包括該公司旅游的起始時間和終止時間，如[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）請在橫線處填入合適的代碼
DimiAsInteger,jAsInteger,nAsInteger,tAsIntegerDima（100）AsInteger,b（100）AsInteger
PrivateSubCommand1_Click （ ）
'將旅行團個數存入n,加載n個旅行團的起始時間、終止時間并分別放在數組a和數組b中，代碼略
Fori=nto2step-1
j=1
Dowhile ①
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 ②Then
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））
③
i=i-1
EndIf
Nexti
EndSub組卷：0引用：1難度：0.6