浙江省2020届高三下学期技术4月联考试卷
试卷更新日期:2020-05-22 类型:月考试卷
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求,不选、多选、错选均不得分)
-
1. 下列有关信息和信息安全的说法,错误的是( )A、日常生活中随便填写传单资料存在信息被泄露的风险 B、网络上的信息不能随意转发 C、高考试卷设置为绝密等级的目的是防止信息在共享过程中产生损耗 D、信息不可以脱离载体而单独存在2. 下列应用中,体现人工智能技术的有( )
①使用某软件识别拍摄植物照片并返回该植物相关信息
②使用Word软件的查找替换功能把某文档中所有的“博客”替换为“Blog”
③使用某软件过程中用语音方式设置闹钟
④使用微信的视频聊天功能和朋友进行交流
⑤人与人在围棋APP平台上对弈
A、①②③ B、①③⑤ C、①③ D、①⑤3. 使用Access软件打开数据表,部分界面如图所示。下列说法正确的是( )
A、“卡号”字段属于“文本”类型,故“卡号”的字段值可以相同 B、“卡状态”字段的有效输入值可以为“已挂失” C、数据表中每一行称为一条记录,该数据表有6条记录 D、当前状态下不可以对“校园卡信息”数据表重命名4. 使用UltraEdit软件观察字符内码,部分界面如图所示。下列说法正确的是( )
A、字符“!”的内码占两个字节 B、字符“你”的交换码是“C4E3” C、字符“2”在计算机内部是以十六进制“32”存储的 D、图中共有6个ASCII码字符5. 小明进行音频文件创作时遇到以下问题:①选中区域的音量和其它部分不一致,如图a;
②选中区域的部分为不需要的信号,需要去除,如图b。
解决以上问题选择命令较合理的是( )
A、①淡入 ②剪裁 B、①更改音量 ②删除 C、①淡出 ②静音 D、①更改音量 ②剪裁6. 新建某声音文件如图所示,直接保存为wave格式,文件大小约为10M,则该声音文件的量化位数是( )A、8 B、16 C、24 D、327. a,b都是正整数,若a*b Mod 2=0为真,则下列说法错误的是 ( )A、(a+b)\2-(a+b) \2Mod 2可能是奇数 B、a与b至少有一个是偶数 C、(a+b)\2-((a+b)\2+1) Mod 2一定是奇数 D、Int(Rnd*a) +b可能是偶数8. 某算法部分流程图如图所示。执行这部分流程,则输出c的值是( )A、6 B、7 C、8 D、99. 有如下VB程序段:s=Text 1.Text
ans=0
Text 2.ext=Str(ans)
若Text 1中输入的内容为“10”则Text 2中输出的内容为“2”,加框处代码,不正确的是( )
A、 B、 C、 D、10. 有如下VB程序段:For i= 1 To 18
a(i) =True
Next i
For i= 2 To 18
For j= 1 To 18\i
a(i*j) =Not a(i*j)
Next j
Next i
For i= 1 To 18
If a(i) Then c=c+1
Next i
Text 1.Text=Str(c)
该程序段运行后,文本框Text 1中显示的内容是 ( )
A、2 B、3 C、4 D、511. 有如下VB程序段:Dim a( 1 To 4) As Integer,m As Integer,n As Integer
m=100:n=4
Randomize
For i=1 To n-1
x=Int(Rnd *n) + 2
a(i)=m\x
m=m-a(i)
Next i
a(i)=m
该程序段运行后,数组a中各元素的值不可能的是( )
A、20,16,12,52 B、25,18,14,43 C、33,22,9,36 D、50,25,4,2112. 有如下VB程序段:i=1:j=10
Key=Val(Text 1.Text)
If Key Mod 2=1 Then t=1 Else t=-1
Do While i<=j
m=(i+j)\2
c=c+1
If t= 1 And a(m) Mod 2= 0 Then
j=m-1
ElseIf t=- 1 And a(m) Mod 2= 1 Then
i=m+1
ElseIf Key*t<a(m) *t Then
j=m-1
Else
i=m+1
End If
Loop
若数组a(1)到a(10)的值依次为1,3,5,7,9,18,18,16,4,0,若Text 1中输入2,执行该程序段后,下列说法正确的是( )
A、c=4 B、m的值依次为5,8,9 C、i=2 D、m的值依次为5,2,1二、非选择题(本大题共4小题,4+8+7+7,共26分)
-
13. 小范同学对2018年浙江省各地市的户籍人口年龄构成进行调查,并用Excel软件对调查数据进行处理,如图a所示。(1)、将C4单元格中的公式复制至I15单元格,再向上自动填充至区域I4:I15,则单元格I4中的公式为。(2)、60岁以上人口的占比越高说明该地区人口老龄化越严重,若要将图中数据按照人口老龄化程度排序,则排序区域应设置为(单选,A .A4:J15/B .A2:J15/C .B3:I15/D .A5:J15)。(3)、根据图a中的数据直接建立了如图b所示的柱形图,则创建该柱形图的数据区域为。(4)、若选中区域B3:I15,分别对C列和E列设置筛选,筛选条件如图c和图d所示,则筛选结果有项。14. 小林使用Flash软件制作了“毕业”题材的多媒体作品,他先用Photoshop软件制作相关素材,然后使用Flash制作动画。请回答以下问题:(1)、关于多媒体作品设计,下列说法正确的是 (单选,填字母)。A、确定作品主题思想属于应用需求分析 B、文字脚本是多媒体作品制作的直接依据 C、作品的功能模块设计描述了整个作品的组成部分、工作流程、主要界面 D、多媒体作品设计的一般过程:需求分析→规划设计→脚本编写(2)、如图a所示,在当前状态下,以下说法正确的是(多选,填字母:A .存储为BMP格式的图片后,图中每个像素点需要8位二进制存储/B .使用“橡皮擦”工具可以将“背景”图层修改为白色/C .设置“背景”图层不可见,可以存储为透明背景的PNG格式图片/D .不能改变“背景”图层和“图层4”之间的顺序/E .直接将“背景”图层设置为完全锁定,则“背景”图层将不能删除)。(3)、如图b所示,“纸飞机3”图层中实现了“纸飞机”从右下角飞向左上角并逐渐变小的动画,则该动画的动画类型为。(4)、测试影片时发现“load”场景中的按钮在动画过程中一直出现,若要使按钮只出现在“load”场景动画的最后,按钮出现的同时动画停止并等待按钮响应,在不改变其他动画的效果的前提下,可进行的操作是。(5)、测试影片时,单击“load”场景的按钮,音乐停止并跳转至“main”场景的第1帧继续播放,已知“load”场景“声音”图层中音频的同步方式为“事件”,则该按钮的动作脚本为。15. 小周尝试一种新的数据排序方法,先将数据按照增量分成若干组,再分别对这几组数据进行排序并通过缩小增量直到增量为1的方法实现最终排序。如若要将数据“71,54,58,29,31,78,2”升序排序,增量的初值为3,则数据分为3组,为“71,29,2”“54,31”“58,78”,分别对各组数据排序后变为“2,31,58,29,54,78,71”,更新增量为1,最终通过后续处理实现排序。
待排序数据存储在数组a中(a(1)…a(n)),共有n个数据,要求升序排序
Dim a(0 To 100) As Integer
Dim n As Integer
Private Sub Command 1_Click()
Dim i As Integer,m As Integer
m=n\2
Do While '改错
For i=1To m
Call jpsort(i,m) '调用过程jpsort()
Next
m=m\2
Loop
'显示输出结果
End Sub
Private Sub jpsort(start As Integer,w As Integer)
For i=start To n Step w
For j= ② To i+w Step-w '填空
If a(j-w) >a(j) Then
t=a(j-w): ③ :a(j)=t '填空
End If
Next
Next
End Sub
请回答以下问题:
(1)、若要修改窗体上显示的内容为“跳跃排序”,应修改的属性名是(单选,填字母:A .Text/B .Caption/C .Load) 。(2)、划线部分的代码应填①;②;③。(3)、若将虚线框中的程序段删除并要求使排序的结果不变,则应将Do While语句加框处的代码修改为。16. 图a是一个“挖地雷”游戏的界面,9×9个格子里都有一个数字,红旗代表地雷可以用“-1”表示,图中共有10个地雷,“0”表示空白,所有数字的含义是以该数字格子为中心的3×3区域中地雷的个数。小陈根据上述的描述设计了以下的程序,界面如图b所示,单击“初始化”按钮Command 1,按要求生成相关数据存储在数组a中并在列表框List 1中显示,该程序中最外圈不能有地雷,单击“计算”按钮Command 2,对数组a中的数据进行计算并在列表框List 2中输出,输出数据元素的宽度为固定值。
请回答问题:
(1)、单击“初始化”按钮Command 1后,数据a中的数据在List 1中显示,效果如图c所示,单击“计算”按钮Command 2后数组a中数值为3的元素个数有个。(2)、请在划线处填入合适的代码。Const n=9:Const m= 10 'n存储地雷区域大小,m存储地雷数目
Dim a(1 To n*n) As Integer
Private Sub Command 1_Click()
'按要求生成数组a中的数据并在List 1中显示,代码略
End Sub
Private Sub Command 2_Click()
Dim i As Integer, j As Integer, row As Integer
Dim col As Integer, start As Integer, temp As String
For i=1 To n *n
IfThen
row=(i-1)\n+ 1
col=(i-1)Mod n+ 1
For j= 1 To 3
If a(start+col-1) >-1Then a(start+col-1) =a(start+col-1)+1
If a(start+col) >-1Then a(start+col) =a(start+col)+1
If a(start+col+1)>-1Then a(start+col+1) =a(start+col+1)+1
Next j
End If
Next i
List 2.Clear
For i=1To n
temp=“”
For j=1To n
temp=temp+adj(a((i-1) *n+j),3)
Next j
List 2.Add Item temp
Next i
End Sub
Function adj(x As Integer, y As Integer) As String
Dim s As String
s=Str(x)
For i= 1 To
s=“”+s
Next i
adj=s
End Function