2017年浙江省高考信息技术模拟试卷（三）
试卷日期：2017-10-30 考试类型：高考模拟
一、选择题
-
1. 湖南卫视播出了很多真人秀节目，比如目前新上的《向往的生活》明星们一天24小时都生活在摄像头底下，在蘑菇屋里屋外有很多摄像头，还有跟拍的、无人机航拍的等等。装这么多摄像头是为了更好的（ ）A、采集信息 B、传递信息 C、存储信息 D、加工信息2. 小李正在学习网页制作，在上网浏览网页时看到一个非常中意的网页，想把它保存到本地计算机上以方便学习。则最好选择保存的文件类型是（ ）A、仅HTML文档 B、网页，全部 C、文本文件 D、Web档案（.mht）3. 大年三十，支付宝推出扫福集福参加抽奖活动，用户只要用手机扫一下任何一个福字，会随机得到一张福卡，集齐五种福就能参加抽奖。如果你扫的不是福字，系统不会生成福卡。这种扫一下就能判断是否为福主要使用了（ ）技术。
A、数码成像 B、扫描 C、OCR D、全息投影4. 观察下图，下列描述符合图意的是（ ）
A、本数据表至少有7个字段，11条记录。 B、图书编号应该为自动编号，单价为数字型，是否优惠为是否型。 C、作者字段名后有个
表示按作者姓名降序排列。
D、当前是第12条记录。
5. 如果要判断输入的年份是否为润年(不能被100整除但能被4整除，或者能被400整除），下面流程图还缺少（ ）
A、
B、
C、
D、
6. 按下图某JPG格式照片的详细信息，文件大小为725KB。这个文件的压缩比是：（ ）
A、11:1 B、13:1 C、28:1 D、112:17. 某大学有21003 个学生，如果只对这些学生进行二进制编码，至少要用的二进制位位数是（ ）。A、16位 B、15位 C、14位 D、13位8. 小张刚刚开始学习photoshop软件，在新建photoshop文件时的界面如下图：在这个文件操作过程中经常出现卡机，基本上任何一个操作都会卡，他向其它同学救助，以下原因最有可能的是（ ）
A、小张设置的颜色模式不对，应该选择RGB，16位 B、小张设置的尺寸应该改为宽度300，高度200 C、小张的电脑不行，应该到其它电脑上试试 D、小张设置的单位不对，应该是宽度800像素，高度600像素9. 在FLASH中有个实例的属性如图：
现将X改为100，Y改为200，下列说法正确的是（ ）
A、实例会移至原来位置的左上方 B、实例会移至原来位置的右上方 C、实例会移至原来位置的左下方 D、实例会移至原来位置的右下方10. 【加试题】下图是“中国诗词大会”的内码，可根据该图计算出“中”字在（ ）
A、54区48位 B、36区30位 C、56区50位 D、B6区B0位11. 【加试题】有下列代码段，循环5次后的label3中显示：（ ）Private Sub Command1_Click()
For i = 150 To 300
a = i \ 100
b = I mod 100 \ 10
c = i – a*100 – b*10
If i = a * a * a + b * b * b + c * c * c Then
Label1.Caption = Str(i)
End If
Next i
End Sub
A、153 B、155 C、空白 D、程序运行不会执行第5次12. 【加试题】用二分法查找数组A(1 to 100) ，如果输入要查找的数不在A这个数组中，则要查找（ ）。
A、6次 B、7次 C、8次 D、9次二、非选择题
-
13. 2017年湖南卫视的《歌手》节目是小丽最感兴趣的，她记下了第一轮结束后各歌手的得票率，她想知道各歌手的得票数，可网上没有公布，所以她自己算了一下。请根据下图完成下列各题。（假设现场每个人都投满3票，共500个人）
(1)、从E3单元格直接拖动后自动填充到F3单元格，则公式为：。(2)、计算的票数出现小数点的原因是：。(3)、根据上图所示，这个歌手排列顺序的关键字是。(4)、生成了如下图表，则这个图表的数据区域是：。
14. 小张老师给同学们写了一个小程序来让同学们体验模糊查找。在List1中已经有了某班学生的姓名。从text1中输入要查找的关键字，点击command1查找按钮，从List2中能列出带有要查关键字的所有姓名。
程序代码如下：
Private Sub Command1_Click()
Dim Sname As String, Skey As String ‘Sname 保存姓名，Skey保存关键字
Dim i As Integer, j As Integer, n As Integer ‘n关键字的长度
Skey = Text1.Text
n = Len(Skey)
List2.Clear
For i = 1 To List1.ListCount ‘ListCount是列表框中项目的个数
Sname = List1.List(i - 1) ‘将List1中的第i-1项赋值给Sname
For j = 1 To ①
If Skey = ② Then
List2.AddItem Sname
Exit For
End If
Next j
Next i
If ③ = 0 Then List2.AddItem "没有找到带<" & Skey & ">的名字。"
End Sub
(1)、程序运行时弹出“要求对像”的错误提示，应该是界面中少了名为 的框(2)、①处应填；②处应填；③处应填15. 小王利用goldwave编辑了一段音频如图1，并保存为了“钟声.wav”，想把这段声音添加到“除夕之夜”的动画中如图2。
图1
(1)、只保留如上图中标记的1秒钟声音应选择（剪切｜删除｜剪裁｜选显），并其保存成“钟声.wav”文件。
(2)、按上图所示这个“钟声.wav”文件的大小大约是MB
图2
图3
(3)、要将这个声音文件添加到动画文件中，就使用（导入｜复制｜发送）方法
(4)、如果在如图3状态下插入声音，则这个声音将从第帧开始播放。(5)、这个动画的总播放时间大约是秒，如果希望将播放速度加快1.5倍，则帧频应改为fps。
(6)、如图2所示的重播按钮，点击（边框范围｜文字区域）才有响应，该按钮出现在按钮图层第60帧，如果希望点击这个按钮后重新回到第一帧开始播放，那么按钮上加的动作是。
16. 【加试题】完善如下功能的Visual Basic程序：在文本框Text1中输入一个偶数，单击“求解”按钮Command1，将这个偶数拆分成二个素数之和。请完成下面两个小题。
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
List1.Clear
n = Val(Text1.Text)
If n Mod 2 = 0 Then
For i = 2 To Int(n / 2)
If isodd(i) = (isodd(n - i)) Then
List1.AddItem Str(n) + " =" + Str(i) + " +" + Str(n - i)
End If
Next i
Else
Text1.Text = Str(n) + "不是偶数！"
End If
End Sub
Private Function isodd(n As Integer) as boolean
Dim f As integer
f = 0
For i = 2 To Sqr(n)
If n Mod i = 0 Then f = 1: Exit For
Next i
isodd = f
End Function
(1)、结合程序代码，窗体界面中还缺少对象（名为list1的文本框｜名为list1的标签框｜名为list1的列表框）
(2)、上述代码有下划线的语句有错误，正确的应该是：①(3)、上述代码有下划线的语句有错误，正确的应该是：②
17. 从产品库里面的product数据表中读出产品信息（ID，类别，产品名，图片路径，格式5个字段）。已知product表中已经按ID排序，读出后的数据直接连接成字符串在List1中显示，现在希望能不改变原有列表顺序的情况下，在list2中显示按产品名排序的结果。一般的方法是按产品名建立索引（不存在重复的产品名）。基本思路如下：⑴用一个数组product()来存放产品名。
⑵用另一个数组a()来存放产品名数据的下标（已经按产品名排序的）。
按产品名排序的方法是：取第一个产品名product(0)，与后面所有的产品名比较一遍，如果有比第一个产品名大的，M+1，M用来计该产品名的位次。一轮结束后在a(M)元素记下第一个产品名的下标0。然后再取product(1)与其它所有产品名比较一遍，其余同第一个产品名。依次完成每一个产品名位次的计算并记录在a()数组中。
⑶最后按a()数组指定的位置取出list1中的项添加到list2中。
程序代码如下，请补充完整下面的空缺。
Dim products(100) As String '存放产品名的数组
Dim num As Integer '从数据库中读出的记录数
Private Sub Command1_Click()
Dim a(100) As Integer '存放按产品名索引的产品数组下标
Dim i As Integer, j As Integer, m As Integer 'm比当前产品名大的产品名个数
For i = 0 To 100
a(i) = 0
Next i
For i = 0 To num
m = 0
For j =
If i <> j And products(i) > products(j) Then m = m + 1
Next j
Next i
For i = 1 To num
List2.AddItem '按a数组的索引从list1中取出项添加到list2
Next i
End Sub
Private Sub Form_Load()
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim s As String, i As Integer
conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\产品库.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from product"
num = 0
Do While Not rs.EOF And num <= 100
s = ""
For i = 1 To 5
products(num) = rs.Fields(2) '读出当前记录的产品名保存到products数组
s = s & rs.Fields(i - 1) & " ," '将一条记录的各字段内容连接成字符串
Next i
List1.AddItem s
num = num + 1
Loop
num = num - 1
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub