浙江省2021-2022学年高三上学期信息技术10月TBY在线联考试卷

试卷更新日期：2022-01-19 类型：月考试卷

进入出卷网下载

一、选择题

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

A、近代信息技术包括摄影技术、电影技术、广播电视技术、微电子技术等 B、文字、图像、声音、代码等都是信息的载体 C、OCR中的“删除区域”命令的作用是取消该区域的选中状态 D、信息可以传递和共享，而不会像物质、能源那样产生消耗

查看试题解析
2. 下列关于网页和网络协议的说法，不正确的是（）

A、网上检索资源的方式包括：搜索引擎、主题目录、元搜索引擎 B、网页的三种基本元素是文字、图形图像和超链接 C、使用浏览器登录邮箱进行收发邮件需要用到HTTP D、SMTP的全称是通用邮件传送协议

查看试题解析
3. 使用Access软件设计五校联考阅卷平台的数据库，部分界面如下图所示：
下列关于该数据库的说法，正确的是（）

A、数据表“五校联考成绩”处于打开状态 B、“姓名”字段可以输入“亚里士多德” C、不能将“姓名”字段的对齐方式设置为居中 D、可以修改整个数据表的字体为楷体

查看试题解析
4. 已知异或是一个数学运算符，它的数学符号为⊕，a⊕b的计算方法为：将a和b转换为二进制，从最低位开始按位比较，如果不同，则该位异或结果为1，否则该位异或结果为0。例如：9D⊕7D=1001B⊕0111B=1110B。用UltraEdit软件查看字符内码，部分界面如图所示。

下列说法中，正确的是（）

A、图中共有16个ASCII码字符 B、字符“2”的内码异或字符“5”的内码的结果是7D C、汉字“糕”的内码为B8E2D D、字符“y”的内码为31D

查看试题解析
5. 使用Photoshop软件制作“将卓越进行到底”作品，部分界面如图所示：

在当前状态下，下列说法不正确的是（）

A、可以将“背景”图层移动到“蔡left”图层下方 B、“文字”图层是一个文字图层，其内容一定为“文字” C、可以移动“文字”图层里的文字 D、“蔡left”图层可以移动到“蔡right”图层的上方

查看试题解析
6. 使用GoldWave软件编辑某音频文件，选中其中一段音频后，部分界面如图所示。

下列说法正确的是（）

A、执行插入5秒静音后直接保存，音频文件容量约为350KB B、点击“删除”按钮后直接保存，该文件的容量约为480KB C、执行删除后插入5秒静音然后保存，该文件的容量不变 D、执行“剪裁”后左声道的5秒至30秒为静音

查看试题解析
7. VB表达式20 Mod 3 ^ 2 + Not 1 + 99 = 99 < 2的值是（）

A、2 B、3 C、4 D、5

查看试题解析
8. 某算法的部分流程图如图所示。若输入n的值为7，则输出的ans值是（）

A、0 B、-2 C、-5 D、-8

查看试题解析
9. 对一个有n个元素的数组进行操作，所有操作均采用未优化的标准算法，下列说法正确的是（）

A、若数组有序，对其进行一次对分查找，则最多查找次数为Int(log2n)+1 B、对数组进行一次冒泡排序比进行一次选择排序的比较次数要多 C、若数组无序，对其进行一次对分查找，一定不能找到要找的数 D、对数组进行一次查找，最少查找次数与n有关

查看试题解析
10. 有如下VB程序段：
Private Sub Command1_Click()

    Dim n As Integer， ans As Integer

    n = 5

    Dim x(1 To 5) As Integer

    x(1) = -30: x(2) = 26: x(3) = -18: x(4) = 60: x(5) = 22

    ans = 60

    For i = 1 To n

        If x(i) < 0 Then x(i) = -x(i)

        ans = ans + gcd(ans， x(i))

    Next i

    Text1.Text = Str(ans)

End Sub

Function gcd(a As Integer， b As Integer)

    If b = 0 Then

        gcd = a

    Else

        gcd = gcd(b， a Mod b)

    End If

End Function

执行该程序段后，Text1. Text中显示的值为（      ）

A、1 B、2 C、90 D、98

查看试题解析
11. 为了准备五校联考，小卷王买了n套卷子，每套卷子数量不等，第i套试卷有a(i)张。小卷王每天可以将第i套到第j套卷子各做完一张。作为同学，小汤想要知道小卷王最快几天可以做完全部的卷子，因此小汤编写了下面这个程序，但他有几个空不知道该写什么，请求你的帮忙。
Private Sub Command1_Click()

    For i = 2 To n

        If a(i) > a(i-1) Then    ①

    Next i

    Text1.Text =   ②

End Sub

下列选项中，①②中的代码填写正确的是（       ）

A、①ans = ans + a(i) - a(i-1)       ②Str(a(1) + ans) B、①ans = ans + a(i) - a(i-1)        ②Str(ans) C、①ans = a(i) - a(i-1)               ②Str(a(1) + ans) D、①ans = a(i) - a(i-1)               ②Str(ans)

查看试题解析
12. 某算法的VB程序段如下：
Private Sub Command1_Click()

    Dim key As Integer， i As Integer， j As Integer， ans As Integer

    Dim n As Integer

   n = 10

    Dim x(1 To 10) As Integer

    x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86

   x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87

    key = Val(Text1.Text)

   i = 1 : j = n : ans = 0

    Do While i < j

        m = (i + j + 1) \ 2

        If key <= x(m) Then

            j = m - 1 : ans = ans + 1

        Else

            i = m + 1 : ans = ans + 2

        End If

    Loop

End Sub

在Text1中输入3256，单击Command1，程序运行完毕后，以下变量的值不正确的是（       ）

A、i=6 B、j=5 C、ans=5 D、x(m)=5

查看试题解析

二、非选择题

13. TBY进行了一项调查，收集到了一些数据，并使用Excel软件对数据进行处理，如图所示。

(1)、在D34单元格输入“=AVERAGE(D2:D33)”后立即按下回车，D34单元格中将会显示（单选，填字母：A .=AVERAGE(D2:D33)/B .4.9/C .#DIV/0!/D .#VALUE!）

(2)、当前状态下，以A1:A33,D1:E33为数据区域创建的图表可能为（单选，填字母）

A、 B、 C、 D、

(3)、选中A1:G33执行“筛选”后，下列有关说法正确的是（多选）。

A、在列A上设置筛选条件为“等于8”，筛选结果一定为空 B、在列A上设置筛选条件为“等于1”，筛选完毕后清除筛选，隐藏列会显示出来 C、复制F2:F33，在I2单元格执行“粘贴链接”命令后，修改G2单元格内容为“感谢参与TBY线上联考”，则I2单元格的内容保持不变 D、可以隐藏列A和列B

查看试题解析
14. 为了迎接五校联考的到来，TBY创作主题为“将卓越进行到底”的多媒体作品，部分编辑页面如图所示。
请回答下列问题：

(1)、在创作之前，TBY进行了作品设计，下列说法正确的是（多选，填字母）

A、为迎接五校联考的到来，考虑该作品的受众为五校联考的考生，属于作品的应用需求分析 B、考虑背景图片从杭州第二中学官网下载，属于脚本编写 C、为让五校联考的考生能看到这一作品，考虑把这一作品以模拟试题的方式发布，属于应用需求分析 D、为丰富画面效果，考虑用Photoshop和Flash软件制作，属于规划设计 E、考虑背景音乐和文字的来源，属于创作需求分析

(2)、在测试影片过程中，发现背景图层的画面会在播放到一半时消失，怎样才能使得背景图层的画面始终显示？

(3)、为实现点击按钮后停止播放背景音乐，该按钮实例上添加的动作脚本应该为。

(4)、关于当前作品，下列说法正确的是（多选，填字母）

A、可以直接移动“右蔡”图层的内容 B、可以将“左蔡”图层的第20帧复制到“右蔡”图层的第25帧 C、在不点击按钮的情况下，观看者听不到背景音乐 D、隐藏“图层6”后发布作品，观看者可以看到图层6 E、“测试影片”操作执行后，会在同一目录下生成“T14．flv”文件

查看试题解析
15. 校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：

(1)、若要使程序运行时，命令按钮Command1上显示为“计算”，可以在事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：A .Form_Load/B .Form1_Load/C .Command1_Click/D .Form1_Start）

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

Dim n As Long， a As Long， b As Long

Dim f(1 To maxn) As Long

Dim i As Long， tby As Long

Private Sub Command1_Click()

    tby = 1

    n = Val(Text1.Text) : a = Val(Text2.Text) : b = Val(Text3.Text)

    For i = 1 To n

        f(i) = Getin()

    Next i

    Dim l As Long， r As Long， m As Long

    l = 0: r = n

    Do While l <= r

        m = (l + r) / 2

        If Then

            r = m - 1

        Else

            l = m + 1

        End If

    Loop

    Label1.Caption = Str(r + 1)

End Sub

Function check(x As Long)

    Dim y As Long

    y = x

    For i = 1 To n

   Dim tmp As Long



    If tmp > 0 Then

        If y < 0 Then

            check = True

            Exit Function

        End If

    Next i

    check = False

End Function

Function Getin() As Long

    Dim aaa As String

    aaa = Mid(Text4.Text， tby， 1)

    If aaa = " " Then tby = tby + 1

   aaa = Mid(Text4.Text， tby， 1)

  Dim bbb As Long

   bbb = 0

   Do While aaa <> " " And tby <= Len(Text4.Text)

        bbb = bbb * 10 + Val(aaa) : tby = tby + 1

        aaa = Mid(Text4.Text， tby， 1)

    Loop

    Getin = bbb

End Function

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

查看试题解析
16. 试卷运送。五校联考就要到了，本次负责安排运送试卷的路线的是TBY。由于各所学校都参与了一些科目命题工作，所以目前每个学校里都有几个科目的试卷。为了节省运输费用，TBY想要找到一种能连接所有学校且线路总长最短的方案。
一共有n（3<=n<=100）个学校，各所学校之间的线路长度以一行共n*n个数据输入，

第i组的n个数据为从第i个学校出发到其他学校的线路长度，保证第i组的第i个数据为0。

编写VB程序，实现上述功能。运行程序，在文本框Text1中输入学校总数，

在文本框Text2中按题述方法输入各校之间的距离，点击命令按钮Command1后，在标签Label1中显示最短的线路总长。程序运行界面如图所示。

请回答下列问题：

(1)、若n=4，各校距离为0242831240352528350303125300，则最短的线路总长为。

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

Dim n As Long， a As Long

Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean

Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long

Dim ed(1 To 10001) As Long， value(1 To 10001) As Long

Dim cnt As Long， tby As Long， sss As String

Dim i As Long， j As Long

Private Sub Command1_Click()

   cnt = 0

    n = Val(Text1.Text)

   For i = 1 To n

        dis(i) = INF : flag(i) = False : head(i) = 0

    Next i

    tby = 1

   sss = Text2.Text

    For i = 1 To n

       For j = 1 To n



            If i <> j Then Call addedge(i， j， a)

        Next j

    Next i

    Dim ans As Long

    dis(1) = 0 : ans = 0

    For i = 1 To n

        Dim hg As Long， u As Long

       hg = INF

       u = 0

        For j = 1 To n

            If Then

                hg = dis(j)

                u = j

            End If

        Next j



       flag(u) = True

        Dim p As Long

        p = head(u)

        Do While p <> 0

            Dim v As Long

            v = ed(p)

            If Not flag(v) And dis(v) > value(p) Then

                dis(v) = value(p)

            End If

            p = nxt(p)

        Loop

    Next i

    Label1.Caption = Str(ans)

End Sub

Sub addedge(a As Long， b As Long， x As Long)

    cnt = cnt + 1

   value(cnt) = x

   ed(cnt) = b

   nxt(cnt) = head(a)

   head(a) = cnt

End Sub

Function Getin() As Long

   Dim aaa As String

  aaa = Mid(sss， tby， 1)

  If aaa = " " Then tby = tby + 1

  aaa = Mid(sss， tby， 1)

  Dim bbb As Long

    bbb = 0

  Do While aaa <> " " And tby <= Len(sss)

        bbb = bbb * 10 + Val(aaa) : tby = tby + 1

        aaa = Mid(sss， tby， 1)

    Loop

    Getin = bbb

End Function

查看试题解析