2020-2021學(xué)年浙江省名校新高考研究聯(lián)盟（Z20聯(lián)盟）高三（上）第二次聯(lián)考信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題給出的四個選項(xiàng)中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．下列有關(guān)信息與信息處理的說法錯誤的是（ ?。?/h2>
組卷：3引用：2難度：0.6 -
2．關(guān)于瀏覽器和網(wǎng)頁的說法，下列選項(xiàng)中正確的是（ ）
組卷：0引用：2難度：0.5 -
3．某Access數(shù)據(jù)表編輯界面如圖所示。當(dāng)前狀態(tài)下，下列說法正確的是（ ?。?br />
組卷：0引用：2難度：0.6 -
4．在Excel中用26個英文大寫字母對單元格列標(biāo)進(jìn)行編碼，“A”是第1列，“B”是第2列，……，“Z”是第26列，“AA”是第27列，則列標(biāo)編碼“BD”對應(yīng)的是第（ ?。┝?/h2>
組卷：3引用：2難度：0.8 -
5．使用Photoshop軟件制作“垃圾分類”作品，部分界面如圖所示，下列操作可行的是（ ?。?br />
組卷：1引用：2難度：0.7
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．如圖所示，凹槽內(nèi)放置了n（3≤n≤15）個高度不等的立方柱，立方柱由多個單位為1的立方塊疊加而成，立方柱之間如果有間隔則可以用來注水。
編寫VB程序計(jì)算立方柱之間的最大注水體積。程序運(yùn)行時(shí)隨機(jī)生成的數(shù)據(jù)從左到右依次為“3，0，2，5，0，2，0，4”，分別代表各位置點(diǎn)立方柱的高度（0表示無立方柱）。列表框Listl中輸出各立方柱高度以及所求的最大注水體積。請回答下列問題：
（1）結(jié)合程序代碼，圖中按鈕對象的名稱是。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
①
②
（3）程序中加框處代碼有錯，請改正。
ConstMaxn=15
Dimh（1ToMaxn）AsInteger'h（i）存儲第i個立方柱的高度
Dimb（1ToMaxn）AsInteger'b（i）存儲第i個立方柱的編號
PrivateSubCmdl_Click （ ?。?br />DimnAsInteger,iAsInteger,jAsInteger,kAsInteger,tAsInteger
Dimleft1AsInteger,rightlAsInteger,ansAsInteger
n=①
'隨機(jī)生成各立方柱的高度保存到h（1）到h（n）中，并在Listl中顯示，代碼略.
Fori=1Ton
b（i）=i
Nexti
Fori=1Ton-1'根據(jù)立方柱的高度進(jìn)行排序
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．隨機(jī)生成n個大于等于1且小于等于n的不重復(fù)正整數(shù)，采用“數(shù)據(jù)塊交換”方式升序排序。數(shù)據(jù)塊交換方式如下：
在待處理的數(shù)據(jù)區(qū)間中，對相鄰且數(shù)據(jù)個數(shù)相等的數(shù)據(jù)塊進(jìn)行處理。若數(shù)字i恰好在第i位置，則不做交換，否則按下列兩種情況處理。
情況A.待處理區(qū)間中，若數(shù)字i之前的數(shù)據(jù)個數(shù)小于等于其余數(shù)據(jù)個數(shù)，做一次交換可將數(shù)字i換到第i位置，如數(shù)字i=2時(shí)：
情況B.待處理區(qū)間中，若數(shù)字i之前的數(shù)據(jù)個數(shù)大于其余數(shù)據(jù)個數(shù)，操作如下：
◆奇數(shù)個數(shù)據(jù)：先將待處理區(qū)間中第1個數(shù)據(jù)排除，對其余數(shù)據(jù)整體做數(shù)據(jù)塊交換，再按情況A處理，如數(shù)字i=3時(shí)：
◆偶數(shù)個數(shù)據(jù)：先將待處理區(qū)間整體做數(shù)據(jù)塊交換，再按情況A處理，如數(shù)字i=4時(shí)：
（1）若數(shù)組a中數(shù)據(jù)為“4，5，1，2，3”，則第1次數(shù)據(jù)塊交換后數(shù)組a中數(shù)據(jù)依次為：
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函數(shù)功能：數(shù)據(jù)塊[st1..edl]與后面數(shù)據(jù)塊交換（兩數(shù)據(jù)塊相鄰且個數(shù)相等）
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
'將處理結(jié)果返回，代碼略.
EndFunction
PrivateSubCmdl_Click （ ?。?br />DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'隨機(jī)生成n個不重復(fù)正整數(shù)保存到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'數(shù)字i交換到第i位置的處理尚未完成
EndIf
EndIf
Nexti
EndSub組卷：0引用：1難度：0.5