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
IfThenk=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=③
EndIf
i=i-1'数字i交换到第i位置的处理尚未完成
EndIf
EndIf
Nexti
EndSub组卷:0引用:1难度:0.5