绝密★考试结束前
2019年4月浙江省普通高校招生选考科目考试
技术试题信息技术（共50分）
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个 符合题目要求）
1．关系信息安全与网络道德，下列做法准确的是
2．下列相关浏览器与网页的说法，准确的是
3．使用Word软件编辑某文档，部分界面如图所示。
下列说法准确的是
4．使用UltraEdit软件观察字符“挑战AlphaGo！”的内码，部分界面如图所示。
下列说法准确的是
5．关于Access数据表的操作，下列说法准确的是
A．重命名数据表，数据表名不能与表中的字段名相同
B．删除字段，数据表中该字段的值随之被删除
C．删除记录，剩余记录中数据类型为自动编号的字段值会自动更新
D．Access数据表不能导出到Excel电子表格
6．某算法的部分流程图如图所示。执行这部分流程，依次输入3,4,-1，则输出s的值是
7．某动画“起源”场景的制作脚本如表所示。
下列说法准确的是
8．使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。
下列说法准确的是
9．在Flash中用补间动画实现树叶飘落的效果，动画起始关键帧的属性面板如图所示。
下列说法准确的是
10．【加试题】将一个动画导出为AVI格式视频，导出设置如图所示。
若导出后的视频文件存储容量43.95MB，则该动画总帧数约为
11．【加试题】某对分查找算法的VB程序段如下：
key = Val(Text1.Text)
i = 1： j = 10
Text2.Text = ""
Do While i <= j
m = Int((i + j) / 2 + 0.5)
If key = a(m) Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then j = m - 1 Else i = m + 1
Text2.Text = Text2.Text + Str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“8,17,24,30,36,40,55,58,61,66”，文本框Text1中输入的值是30，执行该程序段，文本框Text2中显示的是
12．【加试题】小赵对选择排序算法实行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p = 1： q = 10
Do While p < q
iMin = p： iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then iMin = i
If a(i) > a(iMax) Then iMax = i
Next i
t = a(iMin)： a(iMin) = a(p)： a(p) = t
t = a(iMax)： a(iMax) = a(q)： a(q) = t
p = p + 1
q = q - 1
Loop
要使程序实现上述算法思想，则方框中的语句是
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
13. 小王收集了 2019年第四季度部分移动应用APP的相关数据，并使用Excel软件实行数据处理，如第13题图a所示。
第13题图a
第13题图b 第13题图c
请回答下列问题：
（1）区域G3：G18的数据是通过公式计算得到的：在G3单元格输入公式后，用自动填充功能完成G4：G18的计算，则G3单元格中的公式是 。
（2）通过排序使得相同应用领域的12月环比增幅有序，则排序的主次关键字依次为 。
（3）对第13题图a中的数据实行筛选操作，筛选设置界面如第13题图b所示，在下拉列表框中选择 选项后，单击“确定”按钮，筛选结果只显示“酷狗音乐”、“酷我音乐”和“优酷视频”3行数据。
（4）根据第13题图a中数据，制作了一张反映所有APP的10月份活跃人数的图表。如第13题图c所示，但该图表中显示的并不是APP名称，改正的方法是 。
14. 奇偶校验是一种校验数据传输准确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t = ①
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" + ②
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是 。
15. 小王制作主题为“中国象棋”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
第15题图a
（1）如第15题图a所示，当前状态下，下列操作可行的是 （多选，填字母：A.修改图中左下角的数值缩放图像 / B.选中“背景”图层后，调整其不透明度 / C.对“右”图层的内容实行自由变换 / D.选中“中国象”图层后，对其内容实行填充）。
（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）如第12题图b所示，“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果，该动画类型为 （填字：动画补间 / 形状补间 / 逐帧动画）。
（3）要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果，应做的调整是 。
（4）为实现该场景动画播放完后自动停止，小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本，但脚本出现在该图层第1帧，其原因是 。
（5）测试影片时，单击“象棋简介”按钮，实现在浏览器中显示位于同一目录下“intro.txt”文件的内容，则“象棋简介”按钮的动作脚本为 。
第15题图b
16. 【加试题】小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1： count = 0
resule = ""： pos = ""
Do While i <= Len(Text1.Text)
s = Mid(Text1.Text, i, Len(Text2.Text))
If s = Text2.Text Then
result = result + Text3.Text
count = count + 1
pos =
i = i + Len(Text2.Text)
Else
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
17.【加试题】小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）如表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String '存放学生姓名
Dim sScore(1 To 50) As Integer '存放学生分数
Dim recCount As Integer '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相对应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx = Str(x)： nx = Len(sx)
For i = 1 To n - nx
sx = " " + sx
Next i
①
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer '存放每个分数的个数
Dim B(0 To 100) As Integer '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i = 0 To 100
A(i) = 0
Next i
For i = 1 To recCount '计算每个分数的个数
②
Next i
mc = 1
For i = 100 To 0 Step -1 '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
③
End If
Next i
List2.Clear
List2.AddItem " 姓名 分数 名次 "
List2.AddItem " ---------------- "
For i = 1 To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub
本文来源：https://www.2haoxitong.net/k/doc/dcee6efaa55177232f60ddccda38376bae1fe008.html
文档为doc格式