当前位置: 高中信息技术 /备考专区
试卷结构: 课后作业 日常测验 标准考试
| 显示答案解析 | 全部加入试题篮 | 平行组卷 试卷细目表 发布测评 在线自测 试卷分析 收藏试卷 试卷分享
下载试卷 下载答题卡

浙江省丽水市普通高中2019-2020学年高二下学期信息技术...

更新时间:2020-11-26 浏览次数:119 类型:月考试卷
一、 选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的。)
  • 1. 下列关于信息获取的描述,正确的是(   )
    A . 只有通过搜索引擎才能获取信息 B . 可对获取的信息进行加工和处理 C . 通过网络获取的信息都是可信的 D . 只有获取最新的信息才具有价值
  • 2. 下列应用中,体现了人工智能技术的是(   )
    A . 通过语音指令调节空调温度 B . 通过扫描二维码添加好友 C . 用额温枪测体温,体温异常自动报警 D . 在Word中输入“百步川杨”时自动变成“百步穿杨”
  • 3. 使用Access软件打开数据库,部分界面如图所示

    下列说法正确的是(   )

    A . 当前正在编辑的数据表是“一日三检.accdb” B . “一日三检”表有“检测序号”字段值相同的记录 C . “学生信息”表中可能包含“学生姓名”字段 D . “一日三检”表中“是否异常”字段的有效输入值可以为“是”
  • 4. 网络中每台设备都有一个唯一的网络标识,叫MAC地址,用十六进制数表示。某设备的MAC地址为“74-27-EA-F0-A7-6F”。下列说法正确的是(   )
    A . 该地址的长度为12个字节 B . 该地址中“6F”转换为二进制数是1101110 C . 该地址在计算机中是以二进制代码形式存储的 D . 将“F0”中的末位去掉后,再转换为十进制,所得的值是原来的1/10
  • 5. 使用GoldWave软件编辑某音频文件,部分界面如图所示

    下列说法正确的是(   )

    A . 执行“删除”命令后直接保存,音频的时长变为10秒 B . 执行“选定部分另存为”命令生成一个新的音频文件,其时长为5秒 C . 执行“剪裁”命令后直接保存,音频文件存储容量是原来的1/3 D . 执行“插入静音”命令,设置时间为5秒后直接保存,音频文件存储容量不变
  • 6. 如图所示是一幅未经压缩的1024*768像素、256色的BMP图像。

    下列说法正确的是(   )

    A . 该图像的存储容量约为6MB B . BMP是静态图像的压缩标准 C . 该图像每个像素色彩编码的位数为8 D . 该图像中存在时间冗余
  • 7. 某算法的部分流程图如右图所示。执行这部分流程,变量a的值是

    A . 4 B . 5 C . 1 D . 0
  • 8. 下列VB表达式的值为奇数的是(   )
    A . Int(17/4) B . Asc("A")+1 C . Abs (-1) +2 D . Val(Mid("123456", 4, 1))
  • 9. 对N个数进行冒泡排序,下列描述正确的是(   )
    A . 比较次数为N-1次 B . 最多需交换N次 C . 交换数据的次数一定比选择排序多 D . 元素的交换次数小于或等于元素的比较次数
  • 10. 生成n个不重复2位随机奇数的VB程序段如下:

    For i = 1 To n

        a(i) =

        For j = 1 To i-1

          If a(i)=a(j) Then

           

        Exit For

          End If

        Next j

    Next i

    上述程序段2个方框处的表达式分别为

    A . ① Int(Rnd*50)*2+11            ② j = j - 1 B . ① Int(Rnd*99)+1               ② i = i - 1 C . ① Int(Rnd*89)+11              ② j = j + 1 D . ① Int(Rnd*45)*2+11            ② i = i - 1
  • 11. 某对分查找算法的VB程序段如下:

    i = 1: j = 6: k = 0

    key = Val(Text1.Text)

    Do While i<= j

    k = k + 1

    m = Int((i + j)/2 + 0.5)

    If key = a(m) Then Exit Do

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

    Loop

    文本框Text1中输入27,执行该程序段后,k的值为2,则a(1)到a(6)各元素可能的值是(   )

    A . 12,45,27,31,78,95 B . 15,27,56,61,73,89 C . 89,73,61,56,35,27 D . 13,31,47,56,73,80
  • 12. 某VB程序段如下:

        For i = 1 To 7

           b(i) = 1

    Next i

    For i = 1 To 7

        For j = 1 To i - 1

          If a(i)>a(j) and b(i)<=b(j) Then

            b(i) = b(j) + 1

          End If

        Next j

          If b(i) > max Then max = b(i)

    Next i

    数组元素a(1)到a(7)的值依次“50,10,14,64,47,70,82”,执行该程序段后,变量max的值是(   )

    A . 5 B . 4 C . 3 D . 2
二、非选择题(本大题共4小题,4+8+7+7,共26分。)
  • 13. 小林收集了某地第二季度的天气数据,并用Excel软件进行数据处理,如图所示。

    图1

    请回答下列问题:

    1. (1) 在G3单元格输入公式并用自动填充功能完成区域G4:G84的计算,计算时应用了IF函数,则G78单元格中的公式是

      (提示:If函数用于判断是否满足某个条件,如果满足返回一个值,如果不满足返回另一个值。例如:“=IF(E2<60,"不合格",IF(E2>=80,"优秀","合格"))”)。

    2. (2) 根据图1中的数据制作如图2所示的图表,则创建该图表的数据区域是

      图2

    3. (3) 将数据区域A2:G84复制到新的数据表,若要从表中找出“温差”最大的记录。下列方法可行的是        。(多选,填字母)。
      A . 以“温差”为“最大1项”进行筛选,可筛选出符合要求的数据 B . 用Max函数计算出D列中最大的一项即为所需数据 C . 以“温差”为主要关键字进行降序排序,选取与第1条温差值相同的数据 D . 以“最低温度”为“最小1项”、“最高温度”为“最大1项”进行筛选,可筛选出符合要求的日期
  • 14. 用Flash软件打开“风荷举.fla”文件,编辑界面如图所示。

    1. (1) 在创作作品前,要进行相应的分析。下列不属于应用需求分析的是。(多选,填字母:A .根据脚本大纲,编写文字脚本 /B .确定作品的主题思想为“风荷举” /C .该作品面向小学生演示播放 /D .设计作品的主交互界面 /E .确定该作品的经济效益)
    2. (2) 要使当前场景动画播放结束,“音乐”图层中的声音同时停止,可将“音乐”图层中声音的“同步”属性设置为(选填:数据流/事件)。
    3. (3) 在“鹅”图层中创建了“鹅”实例从舞台左侧游到舞台右侧的动画,则该动画的类型是(选填:动画补间/形状补间)。
    4. (4) 为使“荷花”图层中的 “荷花”实例在动画开始2秒后出现,可行的操作是
    5. (5) 影片发布后,单击“链接”按钮, 实现在浏览器中打开网站“//www.wjszx.com.cn”,同时关闭动画。则“链接”按钮的动作脚本为on(press){}。
  • 15. 某加密算法对大写字母加密,其加密规则如下:密文的ASCII码值=明文的ASCII码值+密钥,加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得,获得密钥的方式为:如字母“A”的ASCII码值为65,将65反复除3,其转换过程如图1所示,得到商为2,密钥在矩阵中所在行;得到余数2,密钥在矩阵中所在列;商或余数为0,密钥在矩阵中最后一行或最后一列。其程序运行界面如图2所示。

    1. (1) 下列对象中没有Caption属性的是(单选,填字母:A .Command1 /B .Form1 /C .Text1和Text2)。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Dim a(1 To 9) As Integer

      Private Sub Command1_Click()

      Dim column As Integer, row As Integer, t As Integer, tmp As Integer

      Dim s As String, ch As String, result As String

      s = Text1.Text: result = ""

      For i = 1 To Len(s)

        ch = Mid(s, i, 1): t =.

        column = (t - 1) Mod 3 + 1

        Do While t >= 3

          t = t \ 3

        Loop

          row =

          tmp = (Asc(ch) +  - 65) Mod 26 + 65

          result = result + Chr(tmp)

      Next i

      Text2.Text = result

      End Sub

      Private Sub Form_Load()      '用来生成3*3矩阵

      For i = 1 To 9

        a(i) = Int(Rnd * 9) + 1

        s = s + Str(a(i))

        If i Mod 3 = 0 Then

          List1.AddItem s

          s = ""

        End If

      Next i

      End Sub

    3. (3) 程序中加框处代码有错,请改正。
    4. (4) 根据程序的功能并结合图2,字母C加密后的密文为
  • 16. 某校跳高比赛计分规则如下:每个高度每位选手最多试跳三次,成功记为1,失败或轮空记为0。如选手第一次试跳成功记为100,第二次试跳成功记为010,第三试跳成功记为001,三次失败则终止比赛。编写VB程序统计选手积分,在文本框Text1中输入姓名和成绩,在列表框List1中输出结果,其算法如下:1.将每个选手的跳高记录三位一组转换成十进制数存储到数组a (该数组元素的值都不相同)。2.先比较数组a中各数组元素的长度,长度长的排名在前;若长度相同的情况下从后往前依次比较字符大小,当前数值大的排名在前。程序运行界面如图所示:

    请在划线处填入合适的代码。

    Dim a(1 To 9) As String   '存储跳高成绩

    Dim b(1 To 9) As String   '存储学生姓名

    Dim c(1 To 9) As Integer

    Private Sub Command1_Click()

    Dim ch As String, tmp As Integer, t As Integer

    Dim p As Integer, k As Integer, i As Integer, j As Integer

    Dim s As String

    s = Text1.Text: t = 0

    For i = 1 To .

        If Mid(s, i, 1) <> "/" Then

            ch = ch + Mid(s, i, 1) 

        Else

            t = t + 1

            If t Mod 2 = 0 Then

              a(t \ 2) = zh(ch)

            Else

             

            End If

           ch = ""

        End If

      Next i

    For i = 1 To t\2

    c(i) = i

    Next i

      For i = 1 To t \ 2 - 1

        p = i

        For j = i + 1 To t \ 2

           If Len(a(c(p))) < Len(a(c(j))) Then

              p = j

           ElseIf Len(a(c(j))) = Len(a(c(p))) Then

              k = Len(a(j)): flag = True

              Do While k >= 1 And flag

                 If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then

                    p = j

                    flag=false

                 ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then

                    k = k - 1

                 Else

                   flag = False

                 End If

              Loop

           End If

        Next j

        If p <> i Then

          tmp = c(i): c(i) = c(p): c(p) = tmp

        End If

      Next i

      For i = 1 To t \ 2

         

      Next i

    End Sub

    Function zh(cm As String) As String

      Dim temp As String

      Dim i As Integer, j As Integer

      For i = 1 To

         For j = 1 To 3

            temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .

         Next j

         zh = zh + CStr(temp)     'CStr函数可把表达式转换为字符串类型

         temp = 0

      Next i

    End Function

微信扫码预览、分享更方便

试卷信息