浙江省诸暨市2019-2020学年高二上学期信息技术期末考试试卷

试卷更新日期:2021-01-20 类型:期末考试

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

  • 1. 下列有关信息和信息技术的说法,正确的是(    )
    A、用手机扫描二维码,是对信息进行编码的过程 B、信息必须依附于载体,故不可以脱离它所反映的事物被存储和传播 C、交警指挥交通必须采用规定的手势,这是为了信息表达的规范化 D、电影技术、电视技术、广播技术、计算机技术等均属于现代信息技术
  • 2. 使用Word软件编辑某文档,部分界面如图所示。

    下列说法正确的是(    )

    A、文中共使用了2处批注,添加批注的用户名为“A” B、实现图中的图文环绕效果可以采用“嵌入型”环绕方式 C、删除图中批注后,批注对象和批注内容同时被删除 D、拒绝对文档的所有修订后,文字“既”被保留
  • 3. 使用Access软件打开数据库,部分界面如图所示。

    下列操作可行的是(    )

    A、选中当前记录的“书籍编号”字段值,将“4”修改为“7” B、选中视图中的表名称“表1”,将其重命名为“高一藏书” C、在“书名”和“作者”字段之间添加一个新字段“出版社” D、输入文字“是”作为新记录中“借出”的有效字段值
  • 4. 使用GoldWave软件编辑某音频文件,部分界面如图所示。

     

    下列说法正确的是(    )

    A、该音频文件为mp3格式,采样频率为44100Hz B、当前状态下,执行“删除”操作,音频文件将变为单声道 C、当前状态下,执行“插入静音”添加1秒静音后,右声道时长不变 D、当前状态下,先执行“复制”,再执行“粘贴”,音频时长将变成8秒
  • 5. 使用UltraEdit软件观察字符内码,部分界面如图所示。已知汉字内码是由区位码(十六进制)中每个字节的数值加A0H组成,则汉字“对”的区位码(十进制)为(    )

    A、B6 D4 B、16 34 C、22 52 D、27 16
  • 6. 一段时长为10秒、1024×800像素、32位色、PAL制式(25帧/秒)的未经压缩AVI格式无声视频,其文件存储容量约为(    )
    A、23MB B、70 MB C、781 MB D、2250 MB
  • 7. 某算法的部分流程图如图所示。下列说法正确的是(    )

    A、该流程执行后,变量s的值是 -1 B、该流程执行后,变量k的值是10 C、该流程完整执行1次,“s←s-k”共执行了4次 D、该流程完整执行1次,“s≥0?”共执行了4次
  • 8. 以下选项中,表达式的值最大的是(    )
    A、Sqr(50) B、28 \ 3 Mod 10 C、Val(Mid("202007", 6, 1)) D、Abs(Int(-7.1))
  • 9. 有如下VB程序段:

    Dim a(1 To 10) As Integer

    s = "8+9+10=": n = 1

    For i = 1 To Len(s)

        ch = Mid(s, i, 1)

        If ch >= "0" And ch <= "9" Then

            a(n) = a(n) * 10 + Val(ch)

        Else

            If a(n) > 0 Then n = n + 1

        End If

    Next i

    Text1.Text = Str(n)

    数组a各元素的初始值都为0,若执行该程序后,在文本框Text1中显示的值为(    )

    A、2 B、3 C、4 D、5
  • 10. 有如下VB程序段:

    Dim t(0 To 9) As Integer

    n = Val(Text1.Text)

    For i = 10 To 30

        a = i Mod 10

        b = i \ 10

        If a = n Or b = n Then t(n) = t(n) + 1

    Next i

    Label1.Caption = Str(t(n))

    数组t中各个元素初值均为0,在文本框Text1中分别输入2时,执行该程序后,Label1中显示的内容为(    )

    A、2 B、10 C、11 D、12
  • 11. 某算法的VB程序段如下:

    a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58

    x = 0: y = 0

    For i = 1 To 4

        k = i

        For j = i + 1 To 5

            If a(j) > a(k) Then

                k = j

                x = x + 1

            End If

        Next j

        If k <> i Then

            t = a(i): a(i) = a(k): a(k) = t

            y = y + 1

        End If

    Next i

    Text1.Text = Str(x) + Str(y)

    执行该程序段后,文本框Text1中显示的内容是(    )

    A、5 3 B、5 5 C、10 3 D、10 5
  • 12. 数组a为一组已按降序排序的正整数,依据对分查找思想:设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下:

    Dim a(1 To 6) As Integer

    Const n = 6

    a(1) = 98: a(2) = 96: a(3) = 95

    a(4) = 90: a(5) = 87: a(6) = 81

    i = 1: j = n

    Key = Val(Text1.Text)

    f = False

    Do While  And f = False

        m = (i + j) \ 2

        If a(m) = Key Then

            Text1.Text = "已找到": f = True

        ElseIf a(m) > Key Then

           

        Else

           

        End If

    Loop

    上述程序中方框处语句依次为(    )

    A、i <= j   i = m + 1      j = m - 1 B、i <= j     j = m - 1       i = m + 1 C、i < j            j = m - 1       i = m + 1 D、i < j            i = m + 1      j = m - 1

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

  • 13. 小华使用Excel软件对2018年浙江省各市各类学校在校学生数进行处理,如图a

    所示。

    图a

    (1)、区域F3:F13的数据是通过公式计算得到的:在F3单元格中输入公式,再利用自动填充功能完成区域F4:F13的计算。
    (2)、已知B14单元格的数据是通过SUM函数计算求得,若修改B4单元格中的数值为159804,则显示在F3单元中的数据将(选填:变大 / 变小 /不变)。
    (3)、根据图a中相关数据制作图表,如图b所示,创建该图表的数据区域是

    图b

    (4)、将区域A2:F13的数据复制到新工作表,设置“中等职业 学校(人)”和“普通中学(万人)”的筛选方式分别如图c和图d所示,则筛选出的城市为(填城市名称)。

  • 14. 使用多媒体编辑软件创作“旋转的风车”多媒体作品。

    图a

    (1)、Photoshop部分编辑界面如图a所示,下列说法正确的是(可多选,填字母:A .用移动工具移动“右坡”图层中的图像位置,“左坡”图层中的图像位置随之改变 /B .选中“白云”图层,添加“镜头光晕”的滤镜效果/C .选中“背景”图层,设置“外发光”的图层样式 /D .另存为BMP文件,“文字”图层的图层样式不可视)
    (2)、观察图b,“声音”图层中添加了声音素材“配音.mp3”,测试场景时在“白云”图层动画开始播放时声音还在继续播放,则声音“同步”方式为(选填:数据流 / 事件)。

    图b

    (3)、观察图b,测试该场景时,“背景”图层内容在播放完第20帧后消失,为了使该图层内容一直延续至本场景结束,可行的操作是
    (4)、观察图b,图中“白云”图层创建了“白云”实例从左侧舞台外运动至右侧舞台外的动画,该图层中补间动画的类型是(选填:动画补间/形状补间);该图层第20帧中“白云”实例的位置坐标最有可能为(单选,填字母A .(342,80)/ B .(670, -170)/ C .(-80,-170)/D .(-342,96) )
    (5)、观察图b,测试影片时,单击该场景的“范例”按钮,实现在浏览器中显示位于同一文件夹下“fanli.txt”文件的内容,并停止当前动画的播放。则在该按钮上添加的动作脚本是
  • 15. 对数组a中的n个元素进行排序,生成左右交替上升的数据序列,结果如下表所示:

    a(1)

    a(2)

    a(3)

    ……

    a(n-2)

    a(n-1)

    a(n)

    27

    35

    39

    ……

    49

    39

    33

    小华由此设计一个VB程序,功能如下:单击“排序”按钮Command1,随机生成10个两位奇数,将随机生成的数据序列显示在文本框Text1中,在文本框Text2中显示完成排序后的数据序列,运行结果如图所示。

    Private Sub Command1_Click()

      Dim a(1 To 10) As Integer

      Randomize

      Const n = 10

      For i = 1 To n

          a(i) = ①

          Text1.Text = Text1.Text + Str(a(i))

      Next i

      For i = 1 To n \ 2

          For j = n - i + 1 To i + 1 Step -1

              If a(j) < a(j - 1) Then

                  t = a(j - 1)

                    ②

                  a(j) = t

              End If

          Next j

          For j = i + 1 To n - i

              If  Then

                  t = a(j): a(j) = a(j + 1): a(j + 1) = t

              End If

          Next j

      Next i

      For i = 1 To n

          Text2.Text = Text2.Text + Str(a(i))

      Next i

    End Sub

    (1)、代码Command1_Click()中的Click属于(单选,填字母:A .对象名/B .事件名/C .方法名/D .事件处理过程名)。
    (2)、程序中①处的代码可能是          (单选,填字母)。
    A、Int(Rnd * 88) + 11 B、Int(Rnd * 89) + 11 C、Int(Rnd * 44) * 2 + 11 D、Int(Rnd * 45) * 2 + 11
    (3)、程序中②处填入合适的代码
    (4)、程序代码中,加框处语句有错,请改正。
  • 16. 某数据加密方法描述如下:

    1)以字节为单位进行加密处理;

    2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数;

    3)分别将上述两个4位二进制数转换成十进制数;

    4)将每个十进制数转换为1个加密字符,对应的“密码表”如下:

    值(十进制)

    0

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

    加密字符

    I

    l

    i

    k

    e

    C

    H

    N

    p

    o

    s

    t

    c

    a

    r

    d

    小华按照上述方法,设计了一个字符串(仅包含ASCII字符)解密的VB程序,功能如下:在文本框Text1中输入一串密文,单击“解密”按钮Command1,在文本框Text2中显示解密结果。

    下表显示了字符串中一个字符的加密过程:

    m

    ←转换前字符m

    109

    ←字符m的ASCII码十进制值

    0

    1

    1

    0

    1

    1

    0

    1

    ←对应的二进制数

    6

    13

    ←分割、转换后的十进制数

    H

    a

    ←对应的加密字符

    程序运行效果如图所示。

    (1)、若上述程序运行时在文本框Text1中输入“HrHd”,在文本框Text2中显示
    (2)、请在划线处填入合适的代码。

    Private Sub Command1_Click()

        Dim a(1 To 100) As Integer

        Dim s1 As String, s2 As String, c As String

        Dim x As Integer, k As Integer, i As Integer, j As Integer

        Const code = "IlikeCHNpostcard"

        n = Len(code)

        s1 = Text1.Text

        x = 0: k = 0

        For i = 1 To Len(s1)

            c = Mid(s1, i, 1)

            For j = 1 To n

                If  Then

                    pos = j - 1

                    x = x * 16 + pos

                    Exit For   '退出当前For循环

                End If

            Next j

            If i Mod 2 = 0 Then

                

                a(k) = x

                x = 0

            End If

        Next i

        For i = 1 To k

            

        Next i

        Text2.Text = s2

    End Sub