2020-2021學年浙江省名校新高考研究聯盟（Z20聯盟）高三（上）第二次聯考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．下列有關信息與信息處理的說法錯誤的是（ ）
組卷：3引用：2難度：0.6 -
2．關于瀏覽器和網頁的說法，下列選項中正確的是（ ）
組卷：0引用：2難度：0.5 -
3．某Access數據表編輯界面如圖所示。當前狀態下，下列說法正確的是（ ）
組卷：0引用：2難度：0.6 -
4．在Excel中用26個英文大寫字母對單元格列標進行編碼，“A”是第1列，“B”是第2列，……，“Z”是第26列，“AA”是第27列，則列標編碼“BD”對應的是第（ ）列
組卷：3引用：2難度：0.8 -
5．使用Photoshop軟件制作“垃圾分類”作品，部分界面如圖所示，下列操作可行的是（ ）
組卷：1引用：2難度：0.7
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．如圖所示，凹槽內放置了n（3≤n≤15）個高度不等的立方柱，立方柱由多個單位為1的立方塊疊加而成，立方柱之間如果有間隔則可以用來注水。
編寫VB程序計算立方柱之間的最大注水體積。程序運行時隨機生成的數據從左到右依次為“3，0，2，5，0，2，0，4”，分別代表各位置點立方柱的高度（0表示無立方柱）。列表框Listl中輸出各立方柱高度以及所求的最大注水體積。請回答下列問題：
（1）結合程序代碼，圖中按鈕對象的名稱是。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
①
②
（3）程序中加框處代碼有錯，請改正。
ConstMaxn=15
Dimh（1ToMaxn）AsInteger'h（i）存儲第i個立方柱的高度
Dimb（1ToMaxn）AsInteger'b（i）存儲第i個立方柱的編號
PrivateSubCmdl_Click （ ）
DimnAsInteger,iAsInteger,jAsInteger,kAsInteger,tAsInteger
Dimleft1AsInteger,rightlAsInteger,ansAsInteger
n=①
'隨機生成各立方柱的高度保存到h（1）到h（n）中，并在Listl中顯示，代碼略.
Fori=1Ton
b（i）=i
Nexti
Fori=1Ton-1'根據立方柱的高度進行排序
k=i
Forj=i+1Ton
If
Thenk=j
Nextj
Ifk＜＞iThen
t=h（i）：h（i）=h（k）：h（k）=t
t=b（i）：b（i）=b（k）：b（k）=t
EndIf
Nexti
1eft1=b（1）：right1=b（1）：ans=0
Fori=2Ton
Ifh（i）=0ThenExitFor
Ifb（i）＜left1Then
ans=ans+h（i）*（left1-b（i）-1）
left1=b（i）
ElseIfb（i）＞right1Then
ans=②
right1=b（i）
Else
ans=ans-h（i）
EndIf
Nexti
List1.AddItem“最大注水體積是：“&Str（ans）
EndSub組卷：0引用：1難度：0.3 -
16．隨機生成n個大于等于1且小于等于n的不重復正整數，采用“數據塊交換”方式升序排序。數據塊交換方式如下：
在待處理的數據區間中，對相鄰且數據個數相等的數據塊進行處理。若數字i恰好在第i位置，則不做交換，否則按下列兩種情況處理。
情況A.待處理區間中，若數字i之前的數據個數小于等于其余數據個數，做一次交換可將數字i換到第i位置，如數字i=2時：
情況B.待處理區間中，若數字i之前的數據個數大于其余數據個數，操作如下：
◆奇數個數據：先將待處理區間中第1個數據排除，對其余數據整體做數據塊交換，再按情況A處理，如數字i=3時：
◆偶數個數據：先將待處理區間整體做數據塊交換，再按情況A處理，如數字i=4時：
（1）若數組a中數據為“4，5，1，2，3”，則第1次數據塊交換后數組a中數據依次為：
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函數功能：數據塊[st1..edl]與后面數據塊交換（兩數據塊相鄰且個數相等）
FunctionkSwap（st1AsInteger,ed1AsInteger）AsString
DimiAsInteger,tAsInteger,n1AsInteger
nl=ed1-st1+1
Fori=①
t=a（i）：a（i）=a（i+n1）：a（i+nl）=t
t=wz（a（i））：wz（a（i））=wz（a（i+n1））：wz（a（i+nl））=t
Nexti
'將處理結果返回，代碼略.
EndFunction
PrivateSubCmdl_Click （ ）
DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'隨機生成n個不重復正整數保存到a（1）到a（n）中，并在List1中顯示，代碼略.
Fori=1Ton
wz（a（i））=i
Nexti
Fori=1Ton-1
Ifi＜＞wz（i）Then
num=②
Ifwz（i）-i＜=num-（wz（i）-i）Then'按情況A處理
s=kSwap（i,wz（i）-1）：List1.AddItems
E1se
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltens
Else
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltems
Else
s=③：Listl.Addltems
EndIf
i=i-1'數字i交換到第i位置的處理尚未完成
EndIf
EndIf
Nexti
EndSub組卷：0引用：1難度：0.5