浙江省普通高等学校招生2021年1月信息技术选考试卷

试卷更新日期：2021-06-18 类型：高考真卷

进入出卷网下载

一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）

1. 下列关于信息与信息技术的描述，正确的是（）

A、信息技术始于广播和电视的诞生 B、信息无处不在，是人类社会所特有的 C、信息技术就是计算机采集、处理、存储信息的技术 D、文字、语言、图形、图像、声音和形体动作都是信息的表达方式

查看试题解析
2. 下列关于信息安全的说法，正确的是。（）

A、打开朋友转发的网页链接一定是安全的 B、安装了杀毒软件后电脑就不会感染病毒 C、数据加密是一种提高信息安全性的有效措施 D、手机的指纹识别解锁技术能确保手机所有信息的安全

查看试题解析

3. 用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如图所示的数据。

发放序号	发放日期	领用单位	物资名称	数量	是否定向
20200101	2020.01. 29	街道办事处	医用口罩	1000	是
20200102	2020.02.12	疫情防控组	普通防护服	200	否
20200103	2020.02. 12	疫情防控组	体温枪	500	否
…	…	…	…	…	…

下列关于“物资流向”数据表的描述，正确的是（）

A、该数据表的字段数可能多于6个 B、该数据表的表名是不可修改的 C、该数据表中必定有一个字段的字段名为“发放序号” D、图中“是否定向”列在该数据表中相应字段的数据类型一定是“是/否”

查看试题解析

4. 英文字符在计算机中有全角和半角之分。全角英文字符的内码由两个字节组成，第一个字节的值是A3H，第三个字节的值是其对应的半角内码值加上80H得到的。例如，半角字符“A”的内码值是41H，则全角字符“A”的内码值是A3C1H。用UltraEdit软件查看字符内码，部分界面如图所示。

下列说法错误的是（）

A、全角字符“U”的内码值是A3D5H B、全角字符“Q”的内码值是A3D1H C、半角字符“P”的内码值是50H D、全角字符“a”的内码值是A3F1H

查看试题解析
5. 使用GoldWave软件编辑某音频文件，部分界面如图所示。

下列说法正确的是（）

A、执行“删除”操作后，音频时长减少了3秒 B、先执行“复制”操作，再执行“粘贴”操作后，音频时长增加了6秒 C、执行“静音”操作后直接保存，音频文件的存储容重约为原来的3/10 D、执行“剪裁”操作后直接保存，音频文件的存储容量约为原来的7/10

查看试题解析
6. 将一幅未经压缩的1024×800像素、24位真彩色的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量为152KB，则BMP文件与JPEG文件的存储容量比约为（）

A、5：1 B、16：1 C、63：1 D、126：1

查看试题解析
7. VB表达式3+9 Mod 3 * 2的值是（）

A、0 B、3 C、6 D、9

查看试题解析
8. 某算法的部分流程图如图所示。执行这部分流程，若输入s的值为“picture”，则输出的c、i值分别为（）

A、"c"，3 B、"e"，4 C、"t"，3 D、"t"，4

查看试题解析
9. 将正整数n分解为两个正整数之和，其中一个能被3整除，另一个能被7整除。统计分解方法共有几种的VB程序段如下：
cnt ＝ 0：i ＝ 7

Do While i ＜ n



Loop

Text1. Text ＝ Str（cnt）

方框中的代码由以下三部分组成：

①i ＝ i ＋ 7   ②j ＝ n - i   ③If j Mod 3 ＝ 0 Then cnt ＝ cnt ＋ 1

下列选项中，代码顺序正确的是（    ）

A、①③② B、②③① C、③②① D、①②③

查看试题解析
10. 有如下VB程序段：
s1 ＝ "BGR"： s2＝ "VBPROGRAM"

i ＝ 1：j ＝ 1：s3 ＝ ""

Do While i ＜＝ Len（s1） And j ＜＝ Len（s2）

    If Mid（s1，i，1）＝ Mid（s2，j，1）Then

        i ＝ i ＋ 1

    Else

        s3 ＝ s3 ＋ Mid（s2，j，1）

    End If

    j ＝ j ＋ 1

Loop

执行该程序段后，变量s3的值是（    ）

A、"VPO" B、"VPRO" C、"VPOAM" D、"VPROAM"

查看试题解析
11. 采用冒泡排序算法对某数据序列进行排序，经过第一轮排序后的结果是“2，8，3，9，5，6，7”，那么原数据序列不可能的是（）

A、8，3，9，5，2，7，6 B、8，3，9，2，6，5，7 C、8，2，9，3，5，7，6 D、8，3，2，9，6，5，7

查看试题解析
12. 某对分查找算法的VB程序段如下：
'随机产生包含20个整型元素的升序序列，依次存入数组a.代码略

i ＝ 1：j ＝ 20：s ＝ ""

key ＝ Val（Text1. Text）

Do While i ＜＝ j

    m ＝（i ＋ j）\2

    s ＝ s ＋ Str（a（m））

    If a（m）＝ key Then Exit Do       'Exit Do表示退出循环

    If a（m）＞ key Then j ＝ m - 1 Else i ＝ m ＋ 1

Loop

Text2. Text ＝ s

在文本框Text1中输入待查找数，执行该程序段后，下列选项中，文本框Text2中显示的内容不可能的是（    ）

A、78 50 46 33 B、51 37 41 48 C、74 50 46 51 D、73 83 87 89

查看试题解析

二、非选择题（本大题共4小题，4+8+7+7，共26分）

13. 王老师收集了学校男生寝室三项检查成绩的数据，并使用Excel软件对数据进行处理，如图a所示。

图a

请回答下列问题：

(1)、区域L4：L93的数据是通过公式计算得到的，在L4单元格中输入公式，再使用自动填充功能完成区域L5：L93的计算。（提示：总分＝内务分×20%＋卫生分×30%＋纪律分×50%）

(2)、寝室号的编制规则是：楼号（第1字符）＋楼层号（第2字符）＋房间号（第3、4字符）。若要筛选出各男生寝室楼的3楼寝室，筛选方式设置如图b所示，则①处应为（选填：包含/等于/开头是）。

图b

(3)、在新工作表中计算各年级“内务分”、“卫生分”和“纪律分”的平均分后，创建了如图c所示的图表。结合图a和图c，下列说法正确的有（多选，填字母）。

图c

A、由图c可知男生寝室纪律最好的是高三，内务和卫生最好的是高二 B、更新数据导致高一“内务分”的平均分发生变化，图表不会随之改变 C、对区域L2：L3执行“合并单元格”操作，合并后的单元格名称为L2 D、在图a所示工作表的“寝室号”列前插入一列，“总分”列的数值会发生改变

查看试题解析
14. 小明制作主题为“自然风光”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

(1)、处理图像的部分界面如图a所示。下列说法正确的有（多选，填字母）。

图a

A、将“背景.psd”文件存储为BMP格式后，BMP文件包含“山脉副本”图层的内容 B、能将“天空”图层移动到“背景”图层的下方 C、将“白云”图层的不透明度改为40%，会影响图像的呈现效果 D、可复制“山脉”图层的图层样式并粘贴到“树林”图层 E、将“图像大小”改为550×400像素后，所有图层中内容的大小均发生变化

(2)、制作动画作品的部分界面如图b所示。在“控制”图层的第帧插入关键帧后，测试场景，该图层的声音在场景动画播放两秒后停止播放。由此可见，“控制”图层中声音的同步属性为（选填：事件/开始/数据流）。

图b

(3)、在“控制”图层的第60帧上添加了动作脚本“stop( )”，该帧中的“海洋”按钮实例上添加的动作脚本是“on（release）{gotoAndStop（“海洋”，1）；play( )；}”。将该按钮实例上的动作脚本：替换为（多选，填字母）后，按钮实现的交互效果不变。

A、on（release）{play( )；} B、on（release）{play（“海洋”，1）；} C、on（release）﹛gotoAndPlay（1）；） D、on（release）﹛gotoAndPlay（“海洋”，1）；}

(4)、“蝴蝶”图层中的蝴蝶是由“蝴蝶飞舞”元件所生成的实例，该元件部分编辑界面如图c所示，各关键帧中内容均为形状，实现了蝴蝶翅膀扇动一次的动画效果。测试场景时，动画中蝴蝶的翅膀仅扇动了一次，可能的原因是。

图c

查看试题解析
15. 根据申请人的QA和QB值，从m个申请人中挑选2人组队参加某挑战赛。条件一是2人的QA值都必须大于指定参数h；条件二是2人的QA值之差（较大值减较小值）小于h。在满足上述两个条件的所有2人组合中，挑选QB值之和最大的一个组合。（QA、QB和h的值均为正整数）
编写VB程序，实现上述挑选功能。运行程序，在文本框Text1中输入参数h后，单击“挑选”按钮Command1，在列表框List1中按QA值降序显示满足条件一的申请人信息，最后在标签Label1中显示组队结果。程序运行界面如图所示。

请回答下列问题：

(1)、若要清空列表框List1，能实现该功能的语句是（单选，填字母：A .List1. Caption ＝ "" / B .List1.Text ＝ "" / C .List1. Clear）。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const m ＝ 20          'm表示申请人个数

Dim id（m）As Integer, qa（m）As Integer, qb（m）As Integer

Private Sub Command1_Click( )

    Dim i As Integer j As Integer, k As Integer, t As Integer, max As Integer

    Dim h As Integer, n As Integer       '变量n存储满足条件一的申请人个数

    Dim s As String

    '读取全部申请人的编号、QA和QB值，分别存入数组id、qa和qb，代码略

    h ＝ Val（Text1. Text）：n ＝ m

    For i ＝ 1 To m — 1

        k ＝ i

        For j ＝ i ＋ 1 To m

            If qa（j）＞ qa（k）Then k ＝ j

        Next j

        If Then

            If k ＜＞ i Then

                t ＝ qa（i）：qa（i）＝ qa（k）：qa（k）＝ t

                t ＝ qb（i）：qb（i）＝ qb（k）：qb（k）＝ t

                t ＝ id（i）：id（i）＝ id（k）：id（k）＝ t

            End If

        Else

            n ＝

            Exit For      'Exit For表示退出循环

        End If

    Next i

    '满足条件一的申请人信息显示在列表框Listl中，代码略

    max ＝ 0：s ＝ “没有满足条件的组合”

    '在满足条件的组合中，寻找QB值之和最大的组合，若有并列，只保留第一个

    For i ＝ n To 2 Step - 1

        j ＝ i - 1

            Do While

                If qb（i）＋ qb（j）＞ max Then

                    s ＝ "组队结果：" ＋ Str（id（i））＋ "号，" ＋ Str（id（j））＋ "号"



            End If

            j ＝ j - 1

        Loop

    Next i

    Label1. Caption ＝ s

End Sub

(3)、程序中加框处代码有错，请改正。

查看试题解析
16. 某物品柜有5层，每层有10个格子，每个格子只能放一个物品。第1层格子编号依次为1到10，第2层格子编号依次为11到20，依此类推。有9组物品（组号1~9），每组有2到8个物品，物品总数不超过50个。将9组物品按组号由小到大依次放入柜中，放置方式有两种：
1）整体放置。按格子编号由小到大的次序查找第一个可放置该组全部物品的空区域（空区域是指从某个空格子开始的同层连续的所有空格子），若找到，则在该空区域居中、连续放置该组全部物品，如图a所示。

2）零散放置。若所有空区域格子数都小于该组物品数，则将该组每个物品依次放置在当前编号最小的空格子中，如图b所示。

编写VB程序，模拟物品放置。运行程序，在列表框List1中显示每组物品的组号和数量，单击“放置”按钮Command1，在列表框List2中显示每组物品放置结果。程序运行界面如图c所示。

图c

(1)、若第1、第2组的物品数分别为6和2，则放置第2组物品的格子编号依次为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constm ＝ 50     'm表示物品柜的格子数

Const w ＝ 10    'w表示物品柜每层的格子数

Const n ＝ 9    'n表示物品的组数

'f（i）存储第i个格子开始的同层连续的所有空格子数。f（i）为0表示第i个格子不是空格子

Dim f（m）As Integer

Dim a（n）As Integer

Private Sub Form_Load( )

'读取各组物品的个数依次存入数组a，并在List1中显示

'代码略

End Sub

Function getpos（r As Integer As Integer

'按格子编号从小到大的次序，查找空格子数≥r的第一个空区域

'若找到，返回该空区域的起始编号，否则返回 -1

'代码略

End Function

Private Sub Command1_Click( )

    Dim i As Integer，j As Integer， k As Integer，p As Integer，v As Integer

    Dim s As String

    For i ＝ 1 To m

        f（i）＝ w -（i -1）Mod w     'w为10，表示每层的格子数

    Next i

    v ＝ 1

    For i ＝ 1 To n

    s ＝ ""

    p ＝

    If p ＝ - 1 Then

        j ＝ 1

        Do While j ＜＝ a（i）

            If f（v）＜＞ 0 Then

                s ＝ s ＋ Str（v）

                f（v）＝

                j ＝ j ＋ 1

            End If



        Loop

    Else

        k ＝（f（p）- a（i）） \ 2

        For j ＝ k To 1 Step - 1

            f（p）＝ j

            p ＝ p ＋ 1

        Next j

        For j ＝

            f（j）＝ 0

            s ＝ s ＋ Str（j）

        Next j

    End If

    List2. AddItem "第" ＋ Str（i）＋ "组：" ＋ s

    Next i

End Sub

查看试题解析