2017年浙江省高考信息技术模拟试卷（一）
年级： 学科：信息技术（信息科技） 类型： 来源：91题库
一、选择题 （共12小题）
1、下图是某软件管家对系统工具类软件提供的评价排名，这种评价属于（ ）
A . 统计评价
B . 专家或核心刊物评价
C . 个人推荐
D . 以上都不是
2、小张在打开一个网站上点击了一个超链接，却发现打开了outlook进入邮件撰写界面。由此可见小张点的超链接可能是（ ）
A . http://mail.163.com
B . ftp://mail.163.com
C . mailto:mail@163.com
D . file:///mail.163.com
3、如下图所示，下列说法正确的是（ ）
A . 上图中有三处修订
B . 上图中有两处批注
C . 上图中有五处修订
D . 上图中有一处自动更正
4、如下图所示，下列描述正确的是（ ）
A . 数据库名称为”资产”
B . 当前数据表中有8个字段
C . 当前数据表中有4条记录
D . 当前为第3条记录
5、下列流程图是为了统计键盘输入数字的个数，输入-1代表结束。则①处应填入（ ）
A . Y>-1
B . Y<>-1
C . Y<-1
D . Y=-1
6、目前很多的网络电视都能实现视频点播，点什么就播什么，这主要体现了多媒体的（ ）
A . 交互性
B . 集成性
C . 实时性
D . 载体依附性
7、下列数据中最小的数是（ ）
A . (1110111）2
B . 1AH
C . 31D
D . （1111110）2
8、下列四个图均为200*100像素，24位色的图像，其存储容量大小的说法正确的是：（ ）
a
b 
c 
d 
a
b c d
A . 如果是BMP文件，文件容量大小依次是D>C>B>A
B . 如果是JPG文件，文件容量大小无法判断
C . 如果是BMP文件，文件容量一样大
D . 如果是JPG文件，文件容量一样大
9、小赵制作FLASH动画时的文档属性如下图，下列说法错误的是（ ）
A . 文档的背景是白色的
B . 动画播放的帧频是12帧/秒
C . 动画的宽度550像素，高度400像素
D . 这个文件的文件名为：未命名-1.swf
10、【加试题】小连用ULtraEdit查看到的如下汉字内码。下列说法正确的是：（ ）
A . 上图显示的内码中有5个汉字，2个西文字符
B . 上图显示的内码中有4个汉字，2个西文字符
C . 上图显示的内码可见这些字符为同一行
D . 上图显示的内码可见这些字符为两行
11、【加试题】有如下程序段，运行后A(10)=（ ）
Dim a(30) As Integer
a(1) = 1
a(2) = 1
i = 2
Do While i < 10
i = i + 1
a(i) = a(i - 1) + a(i - 2)
Loop
Dim a(30) As Integer
a(1) = 1
a(2) = 1
i = 2
Do While i < 10
i = i + 1
a(i) = a(i - 1) + a(i - 2)
Loop
A . 0
B . 34
C . 55
D . 空
12、【加试题】设窗体上已经添加了command1、text1、label1对象，当文本框中输入8时下列代码段运行后的结果会是（ ）
Private Sub Command1_Click()
Dim s As Integer
Dim n As Integer
Dim i As Integer
n = Val(Text1.Text)
s = 1
For i = 2 To n
s = s * i
Next i
Label1.Caption = Str(n) + "!=" + Str(s)
End Sub
A . 程序有语法错误
B . 出现“溢出”错误
C . 8!= 4032
D . 8!= 40320
二、非选择题 （共5小题）
1、某高校自主招生实行上机考，根据学校现有机房为学生生成邀请码，学生网上报名时只有邀请码正确才能完成报名。下表中的邀请码生成公式为：=”2017-TEST-“&机房编号&”-”&学生身份证后4位。
图1
图1
(1)根据上述要求，在A3单元格应输入公式：
(2)上图中D列身份证号发现问题，后3位全部为零，主要原因是 （A 单元格列宽不够 B 输入时加了小数点 C 单元格格式不是文本型）
(3)如果统计各机房的人数（分类汇总）则要先以 为关键字进行排序。
(4)考试结束后工作表如下图
图2
如果要对学生的总成绩做图表进行比较，选择比较合适的数据区域是： （总共有50个学生）
2、完成程序，使其具有下列功能：求表达式1－2＋3－4＋…＋n的值，在文本框Text1中输入一个正整数，单击“计算”按钮Command1，在标签Label3中输出计算结果。程序界面如下图所示：
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer
Dim s As Integer
n = ①
j = 1
For i = 1 To n
s = s + i * j
j = ②
Next i
Label3.Caption = ③
End Sub
程序代码如下：
Private Sub Command1_Click()
Dim n As Integer
Dim s As Integer
n = ①
j = 1
For i = 1 To n
s = s + i * j
j = ②
Next i
Label3.Caption = ③
End Sub
(1)要使label3中显示的字为二号字，应该修改label3的 属性。
(2)①处应填
(3)②处应填
(4)③处应填
3、如下题图1所示，回答下列问题（1）-（3）题，看图2回答下列（4）-（8）题：
图1
图2
(1)当前图层使用了 （滤色｜滤镜｜光照）图层混合选项。
(2)大自行车可以通过 （仿制图章｜复制粘贴后放大｜直接拖动）小自行车来完成。
(3)这个图要做FLASH动画的第一帧，最好保存为 （ psd | jpg | swf ）文件。
(4)图2中，文字图层的动画失败是因为 。
(5)照片图层基本上是每5个帧显示一张照片，再以5帧淡入或淡出动画以实现交替显示图层1和照片2两个图层的照片，播放时发现照片2的节奏被打乱了，应该通过 完成修改，达到设计目标。
(6)如要实现让这段动画播放10秒钟，应该将帧频修改为
(7)完成的动画作品想拷贝回家，以方便在家中的电脑上修改，最好保存为 文件。（fla|swf|avi）
(8)上图显示的为main 场景，load场景为图1中的生成的文件并通过点击“PLAY”按钮进入“main”场景，main场景播放结束要回到load场景并停在第1帧，则动作按钮上的动作命令应该是：
4、公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾.accdb 数据表名为：联系人
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。
Dim sname(1 To 1000) As String ‘用于保存嘉宾姓名
Dim phone(1 To 1000) As String ‘用于保存嘉宾手机号
Dim num As Integer ‘未抽奖人数
Private Sub Command1_Click()
Dim n As Integer ‘拟抽奖人数
Randomize
n = Val(Text1.Text)
List1.Clear
If ① Then
For i = 1 To n
k = Int(Rnd * num) + 1
List1.AddItem Str(i) + " " + sname(k) + " " + ②
For j = k To num
sname(j) = sname(j + 1)
phone(j) = phone(j + 1)
Next j
num = ③
Next i
Else
List1.AddItem "剩余的数据不足！"
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
Private Sub Form_Load()
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\年会嘉宾.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from 联系人"
num = 0
Do While Not rs.EOF And num < 1000
num = num + 1
phone(num) = rs.Fields("联系电话")
sname(num) = rs.Fields("姓名")
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。
Dim sname(1 To 1000) As String ‘用于保存嘉宾姓名
Dim phone(1 To 1000) As String ‘用于保存嘉宾手机号
Dim num As Integer ‘未抽奖人数
Private Sub Command1_Click()
Dim n As Integer ‘拟抽奖人数
Randomize
n = Val(Text1.Text)
List1.Clear
If ① Then
For i = 1 To n
k = Int(Rnd * num) + 1
List1.AddItem Str(i) + " " + sname(k) + " " + ②
For j = k To num
sname(j) = sname(j + 1)
phone(j) = phone(j + 1)
Next j
num = ③
Next i
Else
List1.AddItem "剩余的数据不足！"
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
Private Sub Form_Load()
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\年会嘉宾.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from 联系人"
num = 0
Do While Not rs.EOF And num < 1000
num = num + 1
phone(num) = rs.Fields("联系电话")
sname(num) = rs.Fields("姓名")
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
5、小张学习了冒泡排序后，觉得还可以再改进，用K指向要排序的数的头部，用m指向要排序的数的尾部，每一轮先从前向后扫描k~m-1, 比较相邻若逆序则交换，找出本轮最大数放到本轮数据的尾部，再从后到前扫描剩下的序列m~k+1，比较相邻若逆序则交换，找出本轮最小数放到本轮数据头部。直到k=m结束程序。以下是改进后的程序请补充完整。
Dim n As Integer ‘数字的个数
Rem 以下程序段为产生n个[10,99]之间的随机整数并在list1中显示
Private Sub Command1_Click()
Randomize Time
n = 50
For i = 1 To n
List1.AddItem Str(Int(Rnd * 90) + 10)
Next
End Sub
Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
Private Sub Command2_Click()
Dim a(50) As Integer
Dim k As Integer, m As Integer, i As Integer, j As Integer
For i = 1 To n
a(i) = Val(List1.List(i - 1))
Next i
m = n：k=1
Do While
J=m-1 : m=1
For i = k To j
If a(i+1) < a(i) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t: m=i
Next i
j =
k=1
For i = m To j Step -1
If a(i) < a(i - 1) Then t = a(i): a(i) = a(i - 1): a(i - 1) = t:
Next i
Loop
For i = 1 To n
List2.AddItem
Next i
End Sub
Dim n As Integer ‘数字的个数
Rem 以下程序段为产生n个[10,99]之间的随机整数并在list1中显示
Private Sub Command1_Click()
Randomize Time
n = 50
For i = 1 To n
List1.AddItem Str(Int(Rnd * 90) + 10)
Next
End Sub
Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
Private Sub Command2_Click()
Dim a(50) As Integer
Dim k As Integer, m As Integer, i As Integer, j As Integer
For i = 1 To n
a(i) = Val(List1.List(i - 1))
Next i
m = n：k=1
Do While
J=m-1 : m=1
For i = k To j
If a(i+1) < a(i) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t: m=i
Next i
j =
k=1
For i = m To j Step -1
If a(i) < a(i - 1) Then t = a(i): a(i) = a(i - 1): a(i - 1) = t:
Next i
Loop
For i = 1 To n
List2.AddItem
Next i
End Sub