浙江省浙南名校联盟2021-2022学年高三上学期信息技术10月第一次联考试卷

试卷更新日期：2021-11-26 类型：月考试卷

进入出卷网下载

一、选择题

1. 下列关于信息和信息技术的说法，正确的是（）

A、Word、PPT是信息的一种表达技术，其中的文字、图像就是信息 B、信息可以通过人与人的交流来传递和共享，但在传递和共享的过程中可能会产生损耗 C、在APP上注册账号时，使用大小写字母、数字、符号组合成的密码，提高了账号信息的安全性 D、苹果设备之间可以使用“隔空投送”发送文件，因此信息的传播可以不依附于载体

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

A、网页超链接的链接目标可以是网页、图像、视频 B、浏览器与Web服务器之间的信息传输一般采用HTTP协议 C、若POP3协议发生错误，则电子邮件无法发送到收件人的邮件服务器中 D、在IE浏览器中可以以“单个文件（*mht）”格式另存网页

查看试题解析
3. 某Access数据表中的记录与字段的数据类型如下图所示。下列说法正确的是（）

A、当前数据表视图下，删除“进价”字段的操作可以撤销 B、若改变产品“冰箱”的售价，其对应的销售额的字段值也会发生改变 C、可以在产品“电视机”和“热水器”两条记录中间插入一条ID为4，产品名为“空调”的记录 D、当前状态下不可以对“日用品销售表”重命名

查看试题解析
4. 下列有关信息编码的说法，正确的是（）

A、字符“Hey~假期”存储在计算机中，至少需要8个字节 B、已知字符“29”的十六进制内码为“32 39”，则字符“30”的十六进制内码为“33 3A” C、十进制数26转换为二进制数是100110 D、某4位十六进制数n，其末位数字为0，若转换为十进制数m，无法确定m能否被16整除

查看试题解析
5. 使用Photoshop软件制作“烟花易冷”作品，部分编辑界面如图所示。下列说法正确的是（）

A、“烟花”图层可能添加了滤镜 B、不可以将“树”图层移动到“叶”图层上方 C、“背景”图层不可以调整不透明度，也不能隐藏 D、将“易冷”图层的图层样式复制到“烟花”图层后，“烟花”图层显示投影、外发光效果

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

A、2．81GB B、360MB C、36MB D、30MB

查看试题解析
7. 下列VB表达式的值与其他三项结果不同的是（）

A、Len（"河南加油！"）Mod4\2+2 B、Int（Val（Mid（"烟花392"，3，2））/10） C、12\2*3-15 D、9^{^}0.5+Int（Rnd（））

查看试题解析
8. 某算法部分流程图如图所示。执行该流程后，若输入的值为47和3，则输出s的值为（）

A、20 B、26 C、15 D、17

查看试题解析
9. 给定一个正整数，要求将该数各个位上数字反转得到一个新数，如数字56020反转得到新数2065。有如下VB程序段：
n=Val（Text1．Text）

s=""

flag=True

Do While n>0

    ⑴

    n=n\10

    If Not flag Or x>0 Then

          ⑵

        flag=False

    End If

Loop

If s="" Then s ="0"

Labe 11.Caption=s

方框中（1）和（2）应填入的代码顺序为（    ）

①x=nMod10^{^}len（n） ②x=nMod10 ③s=Str（x）+s ④s=s+Str（x）

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

查看试题解析
10. 有如下VB程序段：
s="olympicGames2021"

ans=""

i=1

Do While i<=Len（s）

    t=Int（Rnd *2）+1

    x=Mid（s，i，1）

    y=Mid（s，i+t，1）

    If x>y Then an s=ans+x Else ans=ans+y

    i=i+t+1

Loop

Label1.Caption=ans

执行该程序段后，标签Labe11上显示的内容不可能为（    ）

A、ymcms1 B、yicms2 C、oyims22 D、ypime1

查看试题解析
11. 某对分查找算法的VB程序段如下：
i=1：j=25

n=0

Do While i<=j

    m=（i+j+1）\2

    n=n+1

    If key=a（m）Then Exit Do

    If key>a（m）Then i=m+1Elsej=m-1

Loop

Labe11.Caption=Str（n）

数组元素a（1）~a（25）的值依次为1～25，若查找键key为下列选项的值，程序段执行后，标签Label1中显示的内容与其他三项不同的是（    ）

A、7 B、12 C、19 D、22

查看试题解析
12. 有如下VB程序段：
For i=1 To n-1 Step 2

   For j=1To（（n+1）\2）*2-i-2 Step 2

        If a（j）>a（j+2）Then

            t=a（j）：a（j）=a（j+2）：a（j+2）=t

       End If

    Next j

    For j= ①

        If a（j）>a（j-2）Then

            t=a（j）：a（j）=a（j-2）：a（j-2）=t

        End If

    Next j

Next i

执行该程序段后，实现了对数组元素a（1）~a（n）中的奇数位置从小到大排序，偶数位置从大到小排序。则代码中①处的语句可为（    ）

A、（n\2）*2 To i+1 Step-2 B、（n\2）*2 To i+3 Step-2 C、i+1 To（n\2）*2 Step2 D、i+1 To （n\2）*2-2 Step2

查看试题解析

二、操作题

13. 小明收集了最新中国大学排行榜的有关数据，并使用Excel软件进行数据处理，部分界面如图a所示。

图a

请回答下列问题：

(1)、现要根据总分对各个大学进行排名，在单元格H3中输入公式，然后向下自动填充至单元格H135。发现最后结果中很多学校的排名重复，为了得到正确的排名，可将单元格H3中的公式修改为，向下自动填充后才能得到正确结果（注：公式RANK（A1，A1：A5）表示A1单元格的值在区域A1：A5中的排名）。

(2)、对区域A2：H135进行相关数据分析，下列说法正确的是（多选，填字母）。

A、将E列中数据的小数位数统一设置为0，则该列的真实数据将发生改变 B、若要筛选出上海地区排名最高的学校，则可选择“排名”为关键字升序排序，再对“地区”进行筛选，选择的值为“上海”，排名最前的即为该学校 C、若要筛选出排名前50高校中，高被引科学家人数最多的5所高校，可先对修改后的“排名”进行筛选，条件为小于等于50，再对“高被引科学家人数”进行筛选，选择“10个最大的值”并显示最大的5项 D、若要筛选出北京地区总分达到90的高校，可先对“地区”进行筛选，选择的值为“北京”，再对“总分”进行筛选，条件为大于等于90

(3)、对图a中的数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示，可知创建该图表的数据区域是。

图b

图c

查看试题解析
14. 使用Flash软件创作了“奥运会”多媒体作品，部分编辑界面如图a所示。

图a

请回答下列问题：

(1)、在多媒体作品设计过程中，下列属于创作需求分析的是（多选，填字母）。

A、确定该作品发布在“浙江体育”公众号 B、明确作品的中心思想制订脚本大纲 C、将图片、声音等媒体元素逐一分类登记，制作成表格 D、确定该作品的主题思想是要体现奥运精神 E、分析用户的信息技术应用水平

(2)、如图a所示，“文字”图层从第1帧到第15帧实现了文字从无到有并逐渐缩小的动画效果，该补间类型为（单选，填字母：A .逐帧动画/B .形状补间/C .动画补间）。

(3)、测试影片时，发现动画播放到当前场景第60帧时并未自动停止，应该将“按钮”图层第60帧动作脚本修改为（单选，填字母：A . stop()；/B . stopAllSounds()；/C . fscommand（“quit”）；）。

(4)、修改后，单击第60帧的“游泳”按钮，发现按钮无效，检查了按钮动作脚本正确，按钮制作界面如图b所示，为了解决此问题，正确的操作方法有（多选，填字母）。

图b

A、对“文字”图层的“指针经过”帧执行“清除关键帧”操作 B、对“文字”图层的“点击”帧执行“插入关键帧”操作 C、对“背景”图层的“按下”帧执行“复制帧”操作，“弹起”帧执行“粘贴帧”操作 D、对“背景”图层的“点击”帧执行“删除帧”操作 E、对“背景”图层的“点击”帧执行“清除关键帧”操作

(5)、为了使“人”图层中动画一播放完就显示“按钮”图层中的按钮，其他动画效果不变，应进行的操作是。

查看试题解析
15. 小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。

请回答下列问题：

(1)、若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的属性。

(2)、实现上述功能的VB代码如下，请在划线处填入合适的代码。
Const n=40

Const k=5

Dim f（1 To 500）As String

Dim sum As Integer

Private Sub Form_Load()

    '读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer，j As Integer，t As Integer，tmp As Integer

    Dim a（500）As Integer，b（500）As Integer

    Dim c（500）As Integer，d（500）As Integer

    '读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中

    For i=1 To sum

        a（i）=Val（Mid（f（i），4））

        b（i）=

    Next i

    For i=1 To sum-1    '对每一页先按照活页本编号、再按照页码从小到大排序

        t=i

        For j=i+1 To sum

            If Then t=j

        Next j

        tmp=a（i）：a（i）=a（t）：a（t）=tmp

        tmp=b（i）：b（i）=b（t）：b（t）=tmp

    Next i

    c（1）=a（1）    '对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号

    d（1）=b（1）

    s=1

    t=a（1）

    For i=2 To sum

        If b（i）=b（i-1）And t+1=a（i）Then



        Else

            c（s*2）=t

            s=s+1

            =a（i）

            d（s）=b（i）

            t=a（i）

        End If

    Next i

    c（s*2）=t

    List2.AddItem "第1本书："

    List2.AddItem Str（c（1））+"-"+Str（c（2））

    For i=2 To s

        If d（i）<>d（i-1）Then List2.AddItem"第"+Str（d（i））+"本书："

        List2.AddItem Str（c（2*i-1））+"-"+Str（c（2*i））

    Next i

End Sub

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

查看试题解析

16. 某地区举办了一场比赛，共有n个选手参加，每个选手会有m个评委进行评分。现要求按下列规则计算每个选手的成绩，并按照成绩从高到低进行排序。

选手成绩的计算规则是：计算评分最高前k个的平均分avg1，剩余评分的平均分avg2，找到avg1与avg2差值最小，则avg1与avg2的平均数为该选手得分。例如，某选手的评委评分为6，5，3，1，则各位次评分为：

k	1	2	3
avg1	6	5.5	4.67
avg2	3	2	1
avg1-avg2	3	3.5	3.67

由表格可知，差值最小为3，因此该选手的评分为（6+3）/2=4.5。按上述要求，编写VB程序，功能如下：在列表框List1中显示各选手的评委评分，单击“计算”按钮Command1，在列表框List2中依次按照得分从高到低显示每位选手成绩。程序运行界面如图所示。请回答下列问题：

(1)、若某选手的评委评分为6，3，7，10，则该选手最后成绩为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const n=8

Const m=12

Dim a（n*m）As Double，b（m）As Integer

Dim f（n）As Double，num（n）As Integer，sum As Double

Private Sub Form_Load（）

'读取n个人每个评委的评分，按照选手编号从小到大依次存入数组a，并显示在List1中

'a（1）到a（m）存储第1个选手得到的m个评委的评分

'a（m+1）到a（2*m）存储第2个选手得到的m个评委的评分

'以此类推，代码略

End Sub

Private Sub Command1_Click（）

Dim i As Integer，j As Integer，x As Integer，k As Integer

Dim s As Double，avg1AsDouble，avg2AsDouble

Dim ans_v As Double，ans_c As Double

For i=1 To n

sum=0

For j=1 To m

sum=sum+a（（i-1）*m+j）

b（j）=0

Next j

s=0

ans_v=-1：ans_c=0

For j=1 To m-1

x=find（i） '找到第i组中m个数中第j大数位置x

avg1=s/j

avg2=（sum-s）/（m-j）

If ans_v=-1 Or avg1-avg2<ans_c Then

ans_v=（avg1+avg2）/2

ans_c=avg1-avg2

End If

Next j

Do While k>=1 And ans_v>f（k）

f（k+1）=f（k）

num（k+1）=num（k）

k=k-1

Loop

f（k+1）=ans_v

num（k+1）=i

Next i

'将结果显示在List2中，代码略

End Sub

Function find（t As Integer）As Integer

Dim i As Integer

find=0

For i=（t-1）*m+1 To t*m

IfThen

If find=0 Or a（find）<a（i）Then find=i

End If

Next i

b（find-（t-1）*m）=1

End Function

查看试题解析