浙江省温州市2021届高三下学期信息技术5月高考适应性测试卷三模

试卷更新日期：2021-06-15 类型：高考模拟

进入出卷网下载

一、选择题(本大题共12小题，每小题2分，共24分)

1. 下列关于信息的说法，正确的是( )

A、计算机可以处理任意形式的信息 B、规范的信息表达是信息交流的基础 C、多媒体信息的传播必须依附于多种载体 D、经过计算机处理的信息一定可以恢复到处理前的状态

查看试题解析
2. 下列有关网页与浏览器的说法，正确的是（）

A、网页中的所有对象均存储在网页文件中 B、记事本软件可以对网页文件(.html)进行编辑、解释并执行 C、用IE浏览器保存网页内容只保存了该网页的URL D、浏览器与Web服务器之间进行信息传输采用的协议是HTTP

查看试题解析

3. 用Access软件设计某停车场管理系统的数据库，其中已建好的“停车位使用实时数据表”用于存储如图所示的数据。

序号	采集时间	层	区域	编号	车位占用情况	属性
1	2021-5-1 08: 30: 00	B1	A	1	空	内部
2	2021-5-1 08: 30: 00	B2	A	2	占用	开放
3	2021-5-1 08:30: 00	B1	B	10	占用	关闭
4	2021-5-1 08: 35:00	B1	B	1	空	开放
……	……	……	……	……	……	……

下列说法正确的是（）

A、存放图中“编号”列数据的字段可以设置为“自动编号”类型 B、若车驶离车位，则该数据表中相应的记录会被删除 C、存放图中“属性”列数据的字段可以设置为“是/否”类型 D、存放图中“采集时间”列数据字段的类型应设置为“日期/时间”

查看试题解析

4. 某数转换为十进制数为n，若n\4=4，则该数可能是（）

A、10011B B、11001B C、1AH D、2AH

查看试题解析
5. 用Photoshop软件制作“云对雨”作品，如图所示。

下列说法正确的是（）

A、可以将“燕子”图层重命名为“双燕” B、因为“背景”图层被锁定，所以不能删除“背景”图层 C、不能将“云对雨”图层的图层样式拷贝到“山”图层 D、当前状态下，可以直接对“山”图层添加“镜头光晕”滤镜

查看试题解析
6. 将帧频为12fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件，其参数为1024×768像素、24位色，则该视频文件的存储容量约为（）

A、22.5MB B、27MB C、270MB D、3.16GB

查看试题解析
7. VB表达式Int(Rnd*2) *30+ 10+ Int(Rnd * 100) Mod 10的值可能是( )

A、6 B、16 C、26 D、36

查看试题解析
8. 某算法的部分流程图如图所示。执行这部分流程后，输出f1，f2的值分别是( )

A、5，8 B、8，13 C、13，21 D、21，34

查看试题解析
9. 采用冒泡排序算法对某数据序列进行排序，第-轮排序后的结果是“2，8，6，3，5，7，9”，则第二轮排序需要交换的次数为( )

A、4次或2次 B、4次或3次 C、3次或1次 D、2次或1次

查看试题解析
10. 若一个正整数从左向右读与从右向左读都一样，我们就将其称之为“回文数”。设计一个在列表框List中显示100 500之间的所有回文数的程序，实现该功能的VB程序段如下：
For k=100 To 500

   x=k

   z =0

  Do While x> 0







  Loop

  If z=k Then

        List1.AddItem Str(k)

   End If

Next k

上述程序段中方框处可选语句为：

①x=x\10   ②y=xMod10

③z=z+10*y   ④z=10*z+y

则(1)(2)(3)处语句依次为（    ）

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

查看试题解析
11. 有如下VB程序段：
Dim a(1 To 9) As String， k As Integer

Dim s1 As String， s2 As String

s1= Text1.Text：s2 = Text2.Text

For i = 1 To Len(s1)

    k = Val(Mid(s1， i，1))

    a(k) = Mid(s2， i， 1)

Next i

For i=1 To 9

    s=a(i)+s

Next i

Label1.Caption = s

在文本框Text1中输入“52463”，文本框Text2中输入“happy”，执行该程序段后，标签Label1中显示的内容是（    ）

A、happy B、yppah C、phpya D、Pyhpa

查看试题解析
12. 某VB程序段如下
数组元素f(1)到f (8)赋初值为0，代码略

Key = Int(Rnd*7)*2+3

i =1：j=8：c=0

Key = Val(Text1.Text)

Do While i<=j

  m=(i+j)\ 2

  f(m) = 1

   If Key <= a(m) Then j =m-1 Else i=m+1

    For n=1 To 8

       c=c+f(n)

  Next n

数组元素a(1)到a(8)的值依次为“3，7，9，10，15，15，15，20”，执行该程序段后，则（    ）

A、变量j的值可能为8 B、变量c的值一定为3 C、变量i的值可能为9 D、a(j)的值可能等于key

查看试题解析

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

13. 某校一次考试的成绩数据用Excel软件进行处理，如图所示。

请回答下列问题：

(1)、区域M3：M172的数据是通过公式计算得到的，在M3单元格中输入公式，再使用自动填充功能对区域M4：M172进行填充。

(2)、为了实现1班的总分从高到低排序，下列对区域A2：M172的操作可行的是 (多选，填字母)。

A、先按“班级”为关键字升序排序，再按“总分”为关键字降序排序 B、以“班级”为主要关键字升序、“总分”为次要关键字降序进行排序 C、以“总分”为主要关键字降序、“班级”为次要关键字升序进行排序 D、先按“班级”筛选，选择值为“1班”，再按“总分”进行降序排序

(3)、若表格数据已按班级升序排序，要找出2班总分最高分，可在指定单元格用公式“=max ()”实现。

查看试题解析

14. 小雅同学使用Flash软件创建“五色花”多媒体作品，其中“片头”场景的制作脚本如下表所示，部分界面如下图所示。

场景名：片头

类别序号： 1

进入方式：启动动画自动播放

呈现方式：

①种子图层的“种子”在从完全透明到完全显示的过程中逐渐变成一朵“五色花。

②文字图层依次出现“五”、“五色”“五色花’文字效果，并保留到本场景动画结束。

③“播放”按钮位于舞台左侧靠下位置，单击该按钮，停止本场景音乐并跳转到“故事”场景第1帧暂停。

呈现顺序：

①一开始呈现背景、种子、云朵和音乐。

②1秒后“文字”图层出现“五”2秒后出现“五色”、3秒后出现“五色花”

③最后出现“播放”按钮，背景音乐不停止。

请回答下列问题：

(1)、关于Flash作品制作，下列说法正确的是 (多选，填字母)。

A、测试影片时，场景播放顺序与场景名无关 B、删除库中元件，舞台上的实例会随之消失 C、舞台，上所有的对象均由元件生成 D、将声音同步方式设置为“数据流”或“事件”，其对应的播放效果一定不同

(2)、根据制作脚本和动画编辑界面，“种子”图层的动画类型为(单选，填字母：A．逐帧动画/B．形状补间/C．动画补间)。若在“片头”场景中将帧频调整为10fps，则“种子”变成“五色花”动画效果的速度将 (单选，填字母：A .变快/B .变慢/C .不变)

(3)、测试影片时，发现“文字”图层一开始就出现“五色花"的三个字，不符合制作脚本的要求。为了符合制作脚本的要求，对“文字”图层的操作方法可行的有 (多选，填字母)。

A、将第1帧移动到第13帧 B、将第1帧移动到第37帧 C、选中第1帧清除舞台上的内容 D、选中第1帧，执行“转换为空白关键帧”操作 E、选中第1帧，执行“清除关键帧”操作，再把第1帧移动到13帧

(4)、根据制作脚本，“ 播放"按钮的动作脚本为。

查看试题解析

15. 字母排队游戏。有一组不重复的字母串，现根据大小写分别进行排队。排队规则如下：①根据字母大小写按原顺序提取字母，大写字母排一队，小写字母排一队；
②固定两队字母中最小字母在各队中的位置；

③将两队其余字母按从小到大的顺序排在各自最小字母的两边。大写字母队列先从最小字母右边排队，排到最后位置再从最小字母左边开始排，直到第一个位置为止。同理，小写字母队列先从左边开始排队，再排右边。过程如图1所示：

编写VB程序，实现字母排队功能：在文本框Text1中输入待排字母串后，单击“排队”按钮Comand1，在列表框List1中显示排队结果。程序运行界面如图2所示。

请回答下列问题：

(1)、根据程序运行界面，“字母排队”是窗体Form1的(单选，填字母：A .对象名/B .属性名/C .属性值/D .过程名)。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim flag(1 To 52) As Boolean     'flag数组初值为False

Private Sub Command1_Click()

    Dim su As String， sd As String， ch As String      'su，sd分别存储大小写字母队

    Dim i As Integer， n As Integer

    Dim ku As Integer， kd As Integer

    s = Text1.Text：n =Len(s)

    For i=1 To n

        ch =

        If ch >="A" And ch <="Z" Then su= su+ ch

        If ch>="a"Andch<="z"Thensd=sd+ch

    Next i

    ku = search(su， 0)

    kd = search(sd， 6

    su=“”：sd=“”

    For i=1 To 52

        If flag(i) And i<=26 Then su=su+Chr(i+64)

        If flag(i) And i>26 Then

    Next i

    List1.AddItem sort(su，ku， 1)

    List1.AddItem sort(sd，kd， -1)

End Sub

Function search(s As String， k As Integer) As Integer     '确定字母队列并查找最小元素位置

    Min = Mid(s，1， 1)

    flag(Asc(Min) - 64 - k) = True

    mini = 1

    For i=2 To Len(s)

        ch = Mid(s， i，1)

        If ch<Min Then mini=i：Min=ch



    Next i

    search = mini

End Function

Function sort(s As String， wz As Integer， k As Integer) As String      '排队

    nx = Len(s)

    sort = Mid(s， 1，1)

    i=2

    nc=1

    Do While nc <= 2

        For j=wz+k To nx^((1 +k) \ 2) Step k

            If k= 1 Then

                sort = sort + Mid(s，i，1)

            Else

                sort = Mid(s， i， 1) + sort

            End If

            i=i+1

        Next j



        nc=nc+1

  Loop

End Function

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

查看试题解析
16. 从2022年1月起，浙江省的选考成绩将采用新的一分一赋的赋分制，赋分等级与比例如图1所示。

赋分具体步骤为：

第一步，将卷面得分按人数比例划分为20个赋分区间，得出每个区间卷面得分的上限、下限。(说明：每个赋分等级人数=总人数×每个赋分等级比例(结果四舍五入取整) ；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。)

第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为： $\frac{s 2 - s}{s - s 1} = \frac{t 2 - t}{t - t 1}$

其中，s2、s1为卷面得分区间的上限和下限，s为待转换卷面得分；t2、t1为赋分区间的上限和下限，t为卷面得分等比例转换后的赋分。

第三步，将转换后的赋分t取整(小数部分四舍五入)。

编写VB程序，实现成绩赋分功能：在列表框List1中显示某市所有学生的考号，原始成绩(无0分，降序排列)和名次(同分同名)，单击“成绩赋分”按钮Command1后，赋分成绩按从高到低的顺序显示在列表框List2中。程序界面如图2所示。

(1)、若赋分区间为87-85，其对应的卷面得分区间在84-81，某考生的卷面得分为83，则通过比例公式转换，该考生的等级赋分为分。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 18000     '总人数

Dim kh(1 To n) As String    '学生考号

Dim cj(1 To n) As Single     '原始成绩

Dim cj2(1 To n) As Integer    '赋分成绩

Dim mc(1 To n) As Integer '原始成绩的排名

Dim pro(1 To 20)As Single    '每个等级的人数比例

Dim t(1 To 40) As Integer    '每个等级赋分区间的上限和下限

Dim s(1 To 40) As Single     '每个等级卷面得分的上限和下限

Dim num(1 To 20) As Integer

Private Sub Form_ Load()

  '从数据库中读取数据，将考号、原始成绩分别存储在数组kh和数组cj中

   '将每个等级的比例存入数组pro中

  '将每个赋分区间的上限、下限存入数组t中(如t(1)、t(2) 分别存储等级1的赋分上限100，下限97)

'将数组cj降序排列，计算出名次存入数组mc中，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

    Dim flag As Boolean， k As Integer， i As Integer

    num(1) = Int(pro(1) * n + 0.5)

    For i=2 To 20

        num(i) =

    Next i

    num(20) = n

    k=1：flag=True：i=1

    Do While i<=n       '划定每个等级相应的卷面得分的上限和下限

        If me(i) <num(k) Then

            If flag Then s(2 * k- 1) = cj(i)

            flag = False

            i=i+1

        ElseIf Then

          s(2 * k) = cj(i)

            flag = True

            i=i+1

        Else



            flag = True

            k=k+1

        End If

  Loop

  If s(2*k)=0 Then s(2*k)=cj(n)

   '根据比例转换公式计算每个考生的赋分结果，存入数组cj2中，代码略。

   For i= 1To n

      List2.AddItem kh(i) +”” + Str(cj(i)) +”” + Str(cj2(i))

  Next i

End Sub

查看试题解析