浙江省2019年信息技术选考模拟试卷四

试卷更新日期:2019-09-03 类型:高考模拟

一、选择题

  • 1. 下列说法正确的是(  )
    A、入住宾馆时登记身份信息,主要是为了保证信息的安全性 B、邮件在两个服务器之间传送一般采用TCP/IP协议 C、按商品类别在某购物网站进行查询属于主题目录检索 D、将普通的BMP格式的图片文件转为JPG格式属于无损压缩
  • 2. 小明用IE浏览一个图文并茂的网页,地址栏信息为“http://www.zjedu.gov.cn/index.html”。下列描述正确的是(  )
    A、网页中图像的全部信息保存在index.html文件中 B、该网页的URL为“www.zjedu.gov.cn/default.html” C、网页内容是用HTML(超文本标记语言)描述的 D、网页中的超链接对象只能是文字,不能是图片
  • 3. 下列应用中,没有使用智能处理技术的是(  )
    A、利用指纹快速解锁手机 B、停车场使用监控拍照识别车牌自动计费 C、使用在线翻译实现中英文转换 D、将书籍扫描成图像保存到计算机中
  • 4. 使用 UltraEdit 软件观察字符“壬戌(rén xū)”的内码,部分界面如图所示。

    下列说法正确的是(  )

    A、字符“壬戌(rén xū)”中有7个ASCII码字符 B、字符“é”的二进制码是“101010000” C、字符“ū”的十六进制码是“A8 B1” D、字符“字符“rén xū”总共需要6个字节的存储空间
  • 5. 使用Access软件创建一张数据表,其结构如图所示:

    在该数据表中录入数据时,下列操作能实现的是(  )

    A、在“商品名称”字段中输入“洗衣机” B、在“商品编号”字段中输入“2017122501”  C、在“库存”字段中输入“100台” D、在“生产日期”字段中输入“2017\12\25”
  • 6. 某算法的流程图如图所示:

    执行该算法,依次输入a的值为3,5,2后,算法的输出结果为(     )

    A、3 B、5 C、15 D、30
  • 7. 使用GoldWave软件处理“sound.wav”操作过程如下,新文件的大小是原文件大小的(  )

    ①使用剪裁工具将声音文件的时间变为原来的一半

    ②使用“效果”-“音量”-“更改音量”将音量调整为50%

    ③将文件保存为sound2.wav

    A、1/1 B、1/2 C、1/4 D、2
  • 8. 某Photoshop作品的图层内容如图所示,下列说法正确的(  )

    A、所有图层都可以立即删除 B、“人物”图层共设置了两个图层样式 C、“草地”图层内容是不可见的 D、“文本”图层的图层样式都可见
  • 9. 某Flash作品的部分时间轴界面如图所示。

    下列描述与图中信息不相符的是(  )

    A、文字图层的内容一直显示在舞台上 B、按钮图层的补间动画时长大约3.7s C、可以在背景图层的最后一帧插入关键帧 D、在动物图层最后一帧执行清除关键帧后,该场景就不存在动作脚本命令
  • 10. 【加试题】将一段分辨率为800*600,24位色彩,NTSC制式的视频影像放到一张700MB的光盘,可以存放多少时间?(  )
    A、10秒 B、17秒 C、25秒 D、34秒
  • 11. 【加试题】将11个数据43、26、34、76、45、16、56、90、13、45、81依次存放在数组a(1)到a(11)中,部分VB程序段如下:

    min=a(1)

    n=Val(Text1.Text)

    For i=n to 2 step -1

     If a(i)<min Then

    min=a(i)

    Next i  

    Text2.Text=Str(min)

    假设在文本框Text1中输入“8”,则文本框Text2输出的值是(  )

    A、90 B、26 C、16 D、13
  • 12. 【加试题】数组元素a(1)到a(10)中存储有10个整数,依次为2,5,7,7,9,11,12,13,13,17,使用两种算法查找特定的整数,部分程序如下:

    '顺序查找代码,查找次数用变量p表示

    For i = 1 To 10

     If a(i) = Key Then

    p = i

     End If

    Next i

    '二分查找代码,查找次数用变量q表示

    i=1 :j=10 :find=Fasle

    Do While i<=j And find=fasle

    x =(i+j)\2

    q = q+1

    If a(x)=Key Then find=True

    If a(x)>Key Then j=x-1

    If a(x)<Key Then i=x+1

    Loop

    若变量key的值为13,程序运行后,则变量p和q的值分别是(  )

    A、8和2 B、9和2 C、8和3 D、9和3

二、非选择题

  • 13. 小明从网络上收集了2016年前四个月世界主流型号机器人的销售情况数据,并使用Excel对数据进行处理,如图1所示。请回答下列问题:


    图1


    图2

    (1)、在H2单元格输入公式并利用自动填充功能完成区域H3:H11的计算,结果如图1所示,则H3单元格中的公式是
    (2)、如图1,若用图表反映各型号机器人“累计销量”占所有型号机器人合计销量的比例情况,最适合使用的图表类型是(填:柱形图/折线图/饼图)。
    (3)、为了更加直观地比较其中四种型号机器人各个月销售情况,小明制作了如图2所示的图表,可以看出型号为机器人销量变化最平稳(填:CH575/CH560/CHS30/US128)。
    (4)、对数据区域A1:H11中的数据进行自定义自动筛选,筛选条件如图3所示,能筛选出的数据共行。


    图3

  • 14. 编写VB程序,实现如下功能:在文本框Text1中输入一个小于10的正整数n,单击“计算”按钮Command1,在标签Label2中输出计算结果。界面设计如图1所示。

    图1

    (1)、图2为VB控件工具箱的部分截图。参照图1,若要在图3中完成界面设计,则需要添加“计算”按钮Command1,那么应该选择图2中的。(填序号)

              图2                                         图3

    (2)、为实现上述功能,请在划线处填入合适代码。

    Private Sub Command1_Click()

    Dim n As Integer,k As Integer,s As Long

    If n>=10 Or n<=0 Then

    Label2.Caption=“请输入一个小于10的正整数”

    Else

    s=0

    For k=1 To n  

             s=s+k*k

    Label2.Caption=Str(s)

    End If

    End Sub

    (3)、上述程序运行时,若在Text1中输入11,则Label2中显示的内容为
  • 15. 小林创作关于“世界环境日”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作卡通动画。请回答下列问题:

    图1

    (1)、在如图1所示的图层面板中,不可直接添加滤镜效果的图层有(多选,填字母:A .“环境”图层/B .“树”图层/C .“左草坪”图层/D .“中草坪”图层/E .“背景”图层)。
    (2)、如图1所示,将图像以BMP格式(24位)存储为A.bmp。再将除“树”图层以外的其他图层都删除后以BMP格式(24位)存储为B.bmp,则B.bmp的存储容量(填:大于/等于/小于)A.bmp的存储容量。
    (3)、在图2所示状态下,将库中“同呼吸共奋斗”元件拖曳到舞台左下角,则该元件实例将创建在“文字”图层的第帧中。

    图2

    (4)、如图2所示,在“请给孩子们”图层中,补间动画的4个关键帧中的实例坐标如图3所示,则该图层补间动画的实例位置变化情况是(填序号:①向右—向右—向左/②向左—向右—向左/③向下—向下—向上/④向下—向上—向下)。

    图3

    (5)、编辑“世界环境日”元件,部分编辑界面如图4所示。在“指针经过”帧中出现一条实线,说明该关键帧中添加了

    图4

    (6)、测试影片时,发现“Load”场景播放完后直接停留在该场景第65帧的画面上,则在图2所示“控制”图层第70帧中已添加的动作是
  • 16. 简化的VB词频统计程序。程序功能为:在文本框Text1中输入一篇英文文章,在文本框Text2中输入一个英文单词,单机“统计”按钮Command1后,在文本框Text3中显示这个英文单词出现的次数。程序运行界面如图所示。

    查找的英文单词由连续的ASCII英文字符(a~z或A~Z)组成。组合词程序会进行分解,如river-small可拆分为2个单词river和small,查找的英文单词不区分大小写。程序代码如下,但加框处代码有错,请改正:

    Private Sub Command1_Click()

    Dim article As String,f As String,count As Integer

    Dim i As Intege,,begin As Integer,s As String

    article=Text1.Text : f=Text2.Text : count=0

    begin = 1

    For i=1 To Len(article)

       t = Mid(article,i,1)

       If Not(t>="A"And t<="Z" Or t>="a" And t<="z") Then

         If i > begin Then

            s =      '①

            If LowerCase(f)=LowerCase(s) Then

                count = count+1

            End If

          End If

              begin = i + 1

         End If  

      Next i

        Text3.Text=Str(count)

    End Sub

    Function LowerCase(word As String) As String    '单词转化为全小写的形式

    Dim i As Integer,c As String

    For i=1 To Len(word)

       c = Mid(word,i,1)

       '小写英文字母的ASCII码值比大写字母的值大32

       If c>="A" And c<="Z" Then c =    '②

       LowerCase = LowerCase + c

    Next i

    End Function

    以上程序段运行时,为了实现上述功能,加框处代码应改正为:

    ;②

  • 17. 【加试题】小方同学使用VB编程研究素数问题,程序运行界面如图所示。他发现1~100之内的素数一共有25个,并且将这些素数全部保存到数组a中,在列表框List1中显示所有素数(按大小从低到高排列)。在文本框Text1中输入需要查找的数据,单击“查找”按钮Command2,在标签框Label3中显示查找结果。

    (1)、数组a中下标为14的元素值应为
    (2)、程序代码如下,请在划线处填入合适的代码。

    Dim a(1 To 25) As Integer   '数组a用于存储1~100之内的素数

    Function search(k As Integer) As Integer

        i = 1 : j = 25

        Do While i <= j

           m =

            If a(m) = k Then

                search = m : Exit Function

            ElseIf k < a(m) Then

                j = m - 1

            Else

                i = m + 1

            End If

    Loop

      search = 0

    End Function

    Private Sub Command1 Click()  '生成素数事件过程

        Dim i, j, k As Integer

        List1.Clear

        k = 0

        For i = 2 To 100

            For j = 2 To i - 1  

                If i Mod j = 0 Then

                    Exit For

                End If

            Next j

            If  Then

                k = k + 1

                a(k) = i

                List1.AddItem "a(" & k & ")=" & a(k)

            End If

        Next i

    End Sub

    Private Sub Command2 Click()    '查找数据事件过程

        Dim t As Integer, r As Integer

        t = Val(Text1.Text)

       r =

        If r = 0 Then

            Label3.Caption = "1~100中的素数无此数据!"

        Else

            Label3.Caption = "素数序列和第" & Str(r) & "个数!"

        End If

    End Sub