浙江省之江教育评价2020-2021学年高二下学期信息技术期中联考试卷

试卷更新日期:2021-04-30 类型:期中考试

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

  • 1. 以下关于信息及信息技术的描述正确的是(    )
    A、信息的表示、传播、存储不一定依附于某种载体 B、信息不能脱离它所反映的事物被存储、保存和传播 C、信息技术是伴随着计算机和互联网技术的发展而诞生的 D、近代信息技术包括摄影技术、电影技术、广播和电视技术等
  • 2. 用IE浏览一个图文并茂的网页,地址栏信息为“http://www.zjfc.com/default.html”。下列描述正确的是(    )
    A、HTTP用于描述网页上的元素,可使用浏览器对网页进行编辑 B、网页中图像、声音、视频、动画都保存在default.html文件中 C、超链接能实现不同网站网页间的链接,每个网页都有独一无二的URL D、HTML用于浏览器与Web服务器之间的信息传输,访问万维网上的网页需要遵守该协议
  • 3. 使用Access软件打开数据库,部分界面如下图所示,下列说法正确的是(    )

    A、当前打开的数据库文件名是“学生基本信息.accdb” B、在当前记录前插入一条记录,总记录数变为 2305 C、可在表视图中删除当前数据表的所有字段 D、若“学籍号”字段为主键,则该字段的值不能为空
  • 4. 使用UltraEdit软件观察字符“2021 JX建党百年”的内码,部分界面如图所示。

    下列说法正确的是(    )

    A、字符“2”的内码占两个字节 B、字符“X”的十六进制码是“4A” C、字符“j”的二进制码是“01001010” D、图中有8个ASCII码字符
  • 5. 使用GoldWave软件编辑某音频文件,部分界面如图所示。

    下列说法正确的是 (     )

    A、当前音频文件1秒钟的数据量约为176KB B、执行“删除”操作后,音频文件时长变为12秒 C、执行“静音”操作后,整个左声道的音频将无法听到 D、当前状态下通过“插入静音”操作插入10秒静音,音频文件的容量不变
  • 6. 下图Flash编辑界面中,“music”图层里的声音素材是采样频率为32kHz、量化位数为16bit、双声道未经压缩的Wave格式音频文件。场景动画播放到当前帧时声音素材刚好完整地播放了一遍。则该声音素材的存储容量约为(    )

    A、125KB B、250KB C、500KB D、1000KB
  • 7. 若x是能被7整除的正整数,下列表达式一定成立的是(    )

    ① x mod 7=0     ② x\7=0    ③ Int(x/7)=x/7      ④ x/7=x\7

    A、  ①② B、  ①③④ C、  ①②④ D、①③
  • 8. 某算法的流程图如图所示。执行这部分流程,若输入s的值为“schoolxzzx”,则程序结束后变量c和i的值为(  )

    A、“z”,8 B、“x”,7 C、“z”,7 D、“x”,8
  • 9. 有两个字符串s1、s2(s2中字符不重复),若s2中的字符按顺序在s1中依次出现,则称s2是s1的子串。例:s1="acde",s2="ce",则s2是s1的子串。实现该功能的VB程序段如下:

    s1 = Text1.Text: s2 = Text2.Text

    i = 1: j = 1

    Do While i <= Len(s1) And j <= Len(s2)

        If Mid(s1, i, 1) = Mid(s2, j, 1) Then  

    Loop

    If  Then Label1.Caption = "是子串" Else Label1.Caption = "不是子串"

    方框处的可选语句为:

    ①i = i + 1        ②j = j + 1    ③i > Len(s2)  ④j > Len(s2)

    以下选项正确的是(   )

    A、①②③ B、  ①②④ C、  ②①③ D、  ②①④
  • 10. 有如下VB程序段:
    s = "spring winter":s1 = ""

    n = Len(s)

    For i = 1 To n \ 2

        If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1)

        Else

            s1 = Mid(s, n - i + 1, 1) + s1

        End If

    Next i

    Text1.Text = s1

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

    A、wprtnr B、sptnnw C、rtwprn D、wntspn
  • 11. 采用冒泡排序算法对某数据序列进行排序,经过第一轮排序后的结果是“2,8,3,6,7,5,9”,那么原数据序列不可能的是(   )
    A、8,3,6,7,5,2,9 B、8,3,6,7,2,5,9 C、2,8,3,9,6,7,5 D、8,3,6,7,2,9,5
  • 12. 有一个整数数列(长度为n),数值的规律为先升序,后相等,最后降序。如3,6,18,18,10,9,8,7,5,现要找到升序的终点位置,即第一个18所在的位置3,将数列依次存入数组a,部分程序如下:

    i=1: j=n

    Do While i<=j

        m=(i +j)\2

        If  Then

            i= m+1

        Else

            j=m- 1

        EndIf

    Loop

    Text1.Text=

    若要实现上述功能,方框处的代码应是(  )

    A、a(m - 1) <= a(m)  Str(j) B、a(m - 1) < a(m)      Str(j) C、a(m - 1) <= a(m)  Str(i) D、a(m - 1) < a(m)     Str(i)

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

  • 13. 王老师收集了学校高一英语周竞赛的数据,并使用Excel软件对数据进行处理,如图a所示。

    图a

    (1)、如图a所示,高一01班总分平均Y4单元格的公式为
    (2)、需要找出年级排名前十的同学颁奖,以下方法可行的有     (多选,填字母)。
    A、对“总分”列数据进行升序排序后,在最前面取年级排名前十的同学 B、对“年级排名”列数据进行升序排序,在最前面取年级排名前十的同学 C、按“总分”进行筛选,选择“10个最大的值”并显示最大的10项 D、按“年级排名”进行筛选,选择“10个最大的值”并显示最大的10项
    (3)、根据图a中数据制作的图表如图b所示,创建该图表的数据区域是

    图b

  • 14. 小明制作主题为“浙江名人馆—金庸”的多媒体作品。首先使用Photoshop软件处理图像,然后使用Flash软件制作动画作品。请回答下列问题:
    (1)、处理图像的部分界面如图a所示。下列说法正确的有      (多选,填字母)。

    图a

    A、将“金庸.psd”文件存储为JPG格式后,JPG文件不可见“边框”图层的“描边”效果 B、用油漆桶工具修改“侠之大者 为国为民”图层的文字颜色 C、用滤镜为“浙江名人馆”图层添加特效 D、用“文字工具”修改“金庸”图层的字体 E、将“底纹”图层移动到“对联”图层的上方 F、对“背景”图层添加图层样式
    (2)、制作动画作品的部分界面如图b所示。观察界面可知当前库中有类元件。
    (3)、观察图b可知“对联”图层中补间的类型为(选填:动画 / 形状)。

    图b

    (4)、要使“对联”图层的补间动画只在当前场景的最后1秒播放,可做的调整是
    (5)、“按钮”图层最后1帧上设置了停止动画播放的动作脚本。在“导航”按钮上添加动作脚本,单击该按钮,动画将转到下一场景第1帧并播放,实现此功能的动作脚本为           (多选,填字母)。
    A、on(release){play();} B、on(press){gotoAndPlay(1);} C、on(release){gotoAndPlay("导航",1);} D、on(press){getURL("导航",1); play();} E、on(release){gotoAndStop("导航",1);play();}
  • 15. 找出一个随机数列(长度为n)中的最长非降序段,计算其长度。非降序段中如果存在连续相等的数,则忽略,如非降序段2,3,4,4,5,长度计为4。

    编写如下VB程序,实现上述功能。运行程序,在文本框Text1中输入随机数列“19,21,3,5,18,18,18,23,25,10,11,12,17,17,7”,单击“统计”按钮,在文本框Text2中输出5。

    程序运行界面如图所示。

    (1)、观察程序界面,窗体中至少包含个对象。
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Dim a(1 To 100) As Integer     '数组a依次存放数列中的数Dim n As Integer

    Private Sub Command1_Click( )

        Dim i As Integer, k As Integer, max As Integer, t As Integer Dim s As String, ch As String

        s = Text1.Text n = Len(s)

        i = 1: k = 1

        Do While i <= n

            ch = Mid(s, i, 1)

            If ch <> "," Then  Else k = k + 1 i = i + 1

        Loop

        i = 1: max = 0

        Do While i <= k

            t =

            If t > max Then max = t i = i + t

        Loop

        Text2.Text = Str(max)

    End Sub

    Function length(p As Integer) As Integer        '函数功能是计算a(p)开始的非降序段长度

        Dim j As Integer, c As Integer

        j = p: c = 1

        Do While j <= n – 1

            If  Then

                If a(j) < a(j + 1) Then c = c + 1 Else

                Exit Do

            End If

            j = j + 1

        Loop

        length = c

    End Function

    (3)、程序加框处代码有错,请改正。
  • 16. 一名商人在A地采购了n吨大米(n<=150),需要船只运送到B地。现在码头上停靠着10艘船,载重量在15到30吨之间且均不相同,同时运费单价(单位:元/吨)也存在差异。为了找出运费总数最少的方案,该商人先将10艘船的运费单价从小到大排序,若船只运费单价相同,则按船只载重量大到小排序。上述步骤完成后,将n吨大米依次装入排好序的船只中,若最后一只船装不满,则按实际装运大米的重量付运费。程序运行界面如16题图所示:单击“排序”按钮后,船只信息按照要求排序并在列表框List1中输出;在文本框Text1中输入大米总数n吨,单击“计算”按钮,将在列表框List2中列出所选船只编号,并在文本框Text2中显示运费总数。

    (1)、若图中7号船的载重量由“28”改为“22”,现有60吨大米需要运送,则该商人应选择的船只编号为 (若有多个编号,用“,”隔开)
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Dim yf(1 To 10) As Integer, v(1 To 10) As Integer, b(1 To 10) As Integer

    Private Sub Command1_Click()

        Dim n As Integer, i As Integer, j As Integer, t As Integer

        List1.AddItem "船只编号" + " " + "载重量" + " " + "运费单价" List2.AddItem "船只编号"

        For i = 1 To 10     '对船只进行编号

            b(i) = i

        Next i

        '随机生成10艘船的运费单价,数值在100到200之间,代码略

        For i = 1 To 10    '随机生成10艘船载重量,载重量均不相同

            v(i) = 15 + Int(Rnd() * 16)

            For j = 1 To i - 1

                If v(i) = v(j) Then : Exit For

            Next j

        Next i

        For i = 1 To 9

            For j = 10 To i + 1 Step -1

                If Then

                    t = b(j): b(j) = b(j - 1): b(j - 1) = t

                End If

            Next j

        Next i

        '在list1中输出10艘船的编号、载重量、运费单价,代码略

    End Sub

    Private Sub Command2_Click()

        Dim n As Integer, k As Integer

        Dim sum As Long

        n = Val(Text1.Text): sum = 0 k = 1

        Do While n > 0

            If n >= v(b(k)) Then

               

            Else

                sum = sum + n * yf(b(k))

            End If

            List2.AddItem Str(b(k)) n = n - v(b(k))

            k = k + 1

        Loop

        Text2.Text = Str(sum)

    End Sub