浙江省2019-2020学年高中信息技术名校基础跟踪测评卷(一)

试卷更新日期:2021-10-11 类型:高考模拟

一、选择题

  • 1. 关于信息安全与网络道德,下列做法正确的是(  )
    A、为保证数据安全,应定期进行数据备份 B、将正版软件上传到网盘,分享给他人下载安装使用 C、智能手机的操作系统不会感染病毒,可以随意安装软件 D、某打车软件收集、分析用户数据,针对某用户需求任意加价
  • 2. 使用OCR软件将某产品海报识别后使用Word编辑,界面如图所示,以下说法不正确的是(  )

    A、使用OCR软件可识别海报图中的文本,使用了人工智能技术 B、该音响能听懂人说的指令,让人“一句话操控家中电器”,使用了人工智能技术 C、拒绝文中全部修订后,仅正文第3行末尾文字变为“生活小秘书”,正文第2行不改变 D、用word编辑文档时,输入“一见顷心”自动更正为“一见倾心”,使用了人工智能技术
  • 3. 使用Access软件统计某班高三毕业生高考成绩,如图所示。以下说法正确的是(  )

    A、对当前记录“语文”字段值进行修改,“总分”字段值会自动更新 B、“学号”字段肯定是“自动编号”类型 C、“上线”字段肯定是“是/否”类型 D、当前状态下插入新记录,将会出现在第24行
  • 4. 使用UltraEdit软件观察字符“2018FIA世界杯!”的内码,部分界面如图所示。

    下列说法正确的是(    )

    A、字符“世界杯”的内码占3个字节 B、该条信息共有9个ASCII码字符 C、字符“A”的二进制码是“01000001” D、字符“Fi”的十六进制码是“46 49”
  • 5. 用Goldwave软件对某音频文件进行编辑,Goldwave状态栏如下图所示:

    以下说法正确的是(  )

    A、该文件类型为WAVE格式,属于无损压缩格式 B、该音频每秒钟采样1411次,选中部分音频时长为10秒 C、当前状态下插入5秒静音,按原参数保存,文件大小约为4.2MB D、当前状态下,点击“删除”,以原参数保存,则声音存储容量约为原来的一半
  • 6. 使用Photoshop软件打开某psd文件,部分界面如图所示。

    当前状态下,下列说法正确的是(  )

    A、“千岛湖”图层内容显示“斜面和浮雕”效果 B、当前文件保存为jpg格式后,“飞鸟”图层内容不可见 C、使用文字工具无法修改“广告词”图层的字体大小 D、一共有4个图层不能设置滤镜效果
  • 7. 下列能正确表示数学表达式100≥x≥1的VB表达式是(    )
    A、100≥x And x≥1 B、100>=x And x>1 C、x>=1 And x<=100 D、x>=1 Or x<=100
  • 8. 某算法的流程图如图所示, 执行这部分流程后,输出 a 的值是(   )

    A、0 B、7 C、14 D、21
  • 9. 有如下VB程序段:

    For i= 1 to 3

        List1. AddItem b(a(i))

    Next i

    数组元素a(1)到a(6)的值依次为“4,2,3,6,1,5”,数组元素b(1)到b(6)的值依次为“Ella”“Sally”“Lily”“Tom”“Anna”“Jack”,则执行上述程序段,List1中显示的内容是(    )

    A、Ella sally Lily B、Tom Sally Lily C、Ella lily Anna D、Tom Lily Sally
  • 10. (加试题) 有如下 VB 程序段:

    Dim a(1 To 10) As Integer

    Dim s As String, n, i As Integer

    s = "54851845236": n = Len(s)

    For i = 1 To n - 1

        a(i) = Val(Mid(s, i, 2))

    Next i

    For i = 1 To n - 2

        k = i

        For j = i + 1 To n - 1

            If a(k) < a(j) Then k = j

        Next j

        If k <> i Then

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

        End If

    Next i

    Text1.Text = Str(a(1))

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

    A、18 B、54 C、85 D、8
  • 11. 某对分查找算法的VB程序如下:

    i = 1:j = 8:s = ""

    key = Text1. Text

    Do While i <= j

        m = (i +j)\2

        If key = a(m) Then

            s = s+ "M"

            Exit Do

        ElseIf key <a(m) Then

            j = m -1:s = s+ "L"

        Else

            i = m+1:s = s + "R"

        End If

    Loop

    Text1. Text = s

    数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”,该程序段执行后,文本框Text1中显示的内容不可能是(     )

    A、M B、LR C、RM D、LM
  • 12. 数组a中依次存放6个有序数据“23 33 44 55 66 77”。

    Dim a(1 To 10) As Integer

    Dim s As String, n, key As Integer

    a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77

    i = 1: j = 6: c = 0: key = 35

    Do While i <= j

        c = c + 1

        m = (i + j) \ 2

        If (j - i + 1) Mod 2 = 0 Then m = m + 1

        If a(m) = key Then Exit Do

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

    Loop

    该程序段运行后,下列各变量的值不正确的是:(    )

    A、i=3 B、j=2 C、c=3 D、m=2

二、操作题

  • 13. 小王收集了某书店2018年部分计算机类图书销售的相关数据298条,并用Excel软件进行数据处理,如图a所示。

    请回答下列问题:

    (1)、书店推出促销活动,单价大于50元的图书75折、小于等于50元的图书85折。根据活动方案,小王利用IF函数和自动填充功能完成对F3:F300区域的计算,则在F3单元格中的公式是=IF(E3>50,)。(提示:IF函数用于判断是否满足某个条件,如果满足返回一个值,如果不满足则返回另一个值。例如:=IF(B4>10,1,2)表示如果单元格B4的值大于10则返回1,否则返回2)
    (2)、如图a所示,要使G3:G300区域数据格式与E列和F列一样(保留两位小数),下列操作不可行的是(单选,填字母:A .设置G3:G300区域单元格格式为数值,保留两位小数/B .设置G3:G300区域为百分比格式,保留两位小数/C .设置G3单元格格式为数值,保留两位小数,并对区域G4:G300进行自动填充)。

    (3)、根据图a中的数据制作图表如图b所示,创建该图表的数据区域为A2,E2:G2,
    (4)、小王想快速获知2017年及之后出版的图书中,降价幅度最大的五本图书信息,下列操作方案可行的是(单选,填字母:A .使用筛选工具筛选“出版年份”大于等于2017年的图书,再对“降价幅度”按“最大的5项”进行筛选/B .以“出版年份”为主关键字进行降序排序、“降价幅度”为次要关键字进行升序排序/C .先用筛选工具筛选“出版年份”大于等于2017年的图书,再对“降价幅度”进行降序排序)。
  • 14. 小王制作主题为“和谐韵味”的多媒体作品,首先使用Photoshop软件处理图片,然后使用Flash软件制作动画。请回答下列问题:
    (1)、如图a所示,当前状态下,下列对“文字”图层操作可行的是(多选,填字母:A .使用“文字工具”修改文字的字体/B .使用“自由变换”工具更改文字的字体大小/C .使用“油漆桶”工具直接修改文字的颜色/D .使用“仿制图章”工具,仿制文字内容到“倒影”图层)

    (2)、如图b所示,“滴墨成字”图层中第10帧到第40帧实现了由小墨点逐渐变成汉字“谐韵”的动画效果,则该图层第40帧上对象的类型为(单选,填字母:A .位图/B .影片剪辑/C .形状/D .静态文本)。

    (3)、库中“蝴蝶”元件实现了蝴蝶挥动翅膀的动画效果,如图c所示,“飞舞”图层中实现该元件从舞台坐标(80,150)运动至(500,300)的效果。测试场景时,蝴蝶将(单选,填字母:A .不挥动翅膀向右下方运动/B .不挥动翅膀向右上方运动/C .挥动翅膀向右上方运动/D .挥动翅膀向右下方运动)。

    (4)、“音乐”图层中的声音属性如图d所示,想要使“滴墨成字”图层补间动画停止时声音同时停止播放,可进行的调整是

    (5)、测试影片时,单击“main”场景中“继续”按钮时,跳转到下一场景开始播放,则“继续”按钮的动作脚本为
  • 15. 小李利用所学的VB知识,编写了一个简单计算器:在文本框 Text1 中输入一个加减算式(只包含数字和“ +”、“ -”符号,以“ =”结束),点击“计算”按钮 Command1,计算结果在标签 Label1 上显示。程序运行界面如下图所示:

    (1)、要实现程序运行时,单击文本框 Text1 即可将文本框清空 , 则应在(A . Command1_Click/B . Form_Load/C . Text1_Click)事件处理过程中添加语句Text1.text=“”)。
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码

    Private Sub Command1_Click

        Dim s As String, ch As String, sum As Integer

        Dim fh As Integer

        s = Text1.Text: fh = 1: p = 0: sum=0

        For i = 1 To Len(s)

            ch = Mid(s, i, 1)

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

                p =

            Else

                sum =

                p = 0

                If ch = "-" Then

                    fh = -1

                ElseIf ch = "+" Then

                    fh = 1

                End If

            End If

        Next i

        Label1.Caption = Str(sum)

    End Sub

    (3)、若文本框 Text1 中输入的内容为“ 12*10=”(不包括双引号),单击“计算”按钮后,标签Label1 上将显示:(A . 120 / B . 22 / C . 0 /D .程序出错无法显示)
  • 16. 从原点(0,0)出发,顺时针旋转,经过平面上所有整点恰好一次,我们称之为螺旋折线,如图所示。对于整点(x,y),我们定义它到原点的距离是从原点到(x,y)的螺旋折线段的长度。例如:x=0,y=1,则螺旋折线段的长度为3;x=-2,y=-1,则螺旋折线段的长度为9。

    现要求计算从原点到整点(x,y)螺旋折线段的长度。小王根据上述描述设计如下VB程序,请回答下列问题:

    (1)、从原点到整点(4,0)螺旋折线段的长度为
    (2)、请在画线处填入合适的代码。

    Dim x As Integer, y As Integer      'x用于存储横坐标的值,y用于存储纵坐标的值

    Private Sub Command1_Click()

        Dim sum As Integer, m As Integer

        Dim dx As Integer, dy As Integer

        Dim i As Integer, t As Integer

        x=Val(Text1. Text)

        y =Val(Text2. Text)

        dx = 0:dy=0

        sum=0

        m=1:t=-1

        Do While not check(dx,dy)

            For i=1 To m

                If check(dx,dy)Then exit do    'Exit do表示退出Do循环

                dx = dx+t

                sum = sum+1

            Next i

            

            For i=1 To m

                If check(dx,dy) Then Exit Do

                

                sum = sum + 1

            Next i

            m=m+1

        Loop

        Label1. Caption= Str(sum)

    End sub

    Function check(xl As Integer,y1 As Integer)As Boolean

        check = False

        If x1=x And y1=y Then

            

        End If

    End function