2020年浙江省杭州市西湖区学军中学高考信息技术模拟试卷(4月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息技术的说法,不正确的是( )
组卷:5引用:1难度:0.6 -
2.小龙用IE浏览一个图文并茂的网页,地址栏信息为“http://www.baidu.com/index.jye.ai”.下列描述不正确的是( )
组卷:5引用:1难度:0.6 -
3.Access中的一张数据表设计视图如图所示,下列说法正确的是( )
组卷:5引用:1难度:0.5 -
4.下列有关多媒体技术的描述,正确的是( )
组卷:24引用:3难度:0.5 -
5.十进制正整数n转换为二进制数,该二进制数末位是“1”。下列说法正确的是( )
组卷:2引用:1难度:0.5
二、非选择题(本大题共4小题,其中第13小题5分,第14小题8分,第15小题6分,第16小题7分,共26分)
-
15.星期天,小龙来到动物园游玩,园内共有N个景点(可在10个以上),每个景点都有一个标号,标号为1至N.现在只知道每个景点有一条路连接下一个景点。小龙想知道,根据这些道路信息,从其中一个景点出发,最后再回到出发景点,最多能游玩多少个景点。
例如,共有N=5个景点,每个景点连接的下一个景点分别是2,4,5,5,2。景点号 1 2 3 4 5 下一景点号 2 4 5 5 2
程序代码如下:
PrivateSubCommand1_Click ( )
Dima(1To100)AsInteger,d(1To100)AsInteger
DimjdAsString,mAsString,cAsInteger,iAsInteger
DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
jd=Text1.Text+″,″
s=0:c=0
Fori=1ToLen(jd)
m=Mid(jd,i,1)
Ifm<>″,″Then
①
Else
c=c+1:a(c)=s:s=0
EndIf
Nexti
ans=0:k=0
Fori=1Toc
Fork=1Toc
d(k)=0
Nextk
Ifd(i)=0Then
p=i
DoWhilep<=c
Ifd(p)=0Then
k=k+1:d(p)=k
Else
②
Ify>ansThenans=y
k=0
ExitDo
EndIf
Loop
EndIf
Nexti
Text2.Text=Str(ans)
EndSub
(1)要使程序运行时,Form1的BackColor属性值为黑色,以下代码正确的是A.PrivateSubForm_Load ( )
Form1.BackColor=RGB(255,255,255)
EndSubB.PrivateSubForm_Load ( )
Form1.BackColor=RGB(0,0,0)
EndSubC.PrivateSubForm1_Load ( )
orm1.BackColor=RGB(255,255,255)
EndSubD.PrivateSubForm1_Load ( )
Form1.BackColor=RGB(0,0,0)
EndSub
(3)请把横线处的代码补充完整:
①
②
(4)程序加框处代码有错,请改正:组卷:2引用:2难度:0.2 -
16.对n项(n<=100)数据序列的前x项求和,可设计如下算法:将数据序列存储在数组a中,并按一定规则转换成数组c,再借助数组c实现求和。
将数组a转换成数组c的方法描述如下:
①将数组a中的元素依次存储到数组c中,把当前数组c看作第一层;
②把第一层中的各元素进行如下处理:奇数项值不变,偶数项的值更新为自己与自己前一项的和,将更新后的数组元素看作第二层;
③把第二层中的各元素,按上述方法进行同样操作,更新后的数组元素看作第三层;
④以此类推,直到当前层中仅有一项为止。
例如x=11时,转换过程如图所示:
借助数组c,可快速计算出数组a中前x项的和。例如,数组a中前11项的和,可由表达式c(11)+c(10)+c(8)得到。表达式具体分析过程如下:
②表达式第一项为c(11);
②将下标11转换成二进制数1011,计算该二进制数最右边的“1”所对应的权值,再用11减去此权值得到10,即表达式第二项为c(10);
③按上述方法继续操作,直到计算结果等于0为止。
小龙依据上述方法设计了如下vb程序。请回答下列问题:
(1)计算数组a中前22项和的表达式为
(2)请在横线处填入合适的代码。
DimnAsInteger
Dima(1To1000)AsLong,c(1To1000)AsLong
PrivateSubForm_Load
'读取n个数据,并存储到数组a中(代码略)
EndSub
PrivateSubCommand1_Click ( )
DimiAsInteger,jAsInteger,kAsInteger,spaceAsInteger
Fori=1Ton
c(i)=a(i)
Nexti
k=2'当前层第一个偶数项的位置
space=1'当前层偶数项与前一项的间距
DoWhilek<=n
Fori=kTonStepk
c(i)=c(i)+c(i-space)
Nexti
k=k*2
①
Loop
EndSub
PrivateSubCommand2_Click ( )
DimxAsInteger,sumAsLong
x=Val(Text1.Text):sum=0
DoWhilex<>0
sum=sum+c(x)
②
Loop
Text2.Text=Str(sum)
EndSub
Functionlowbit(xAsInteger)AsInteger
DimtempAsInteger
temp=x:lowbit=1
DoWhile③
lowbit=lowbit*2
temp=temp\2
Loop
EndFunction组卷:2引用:1难度:0.2