浙江省杭州市2016年信息技术高考模拟卷五

试卷日期:2017-10-30 考试类型:高考模拟

一、选择题

  • 1. “小李子”莱昂纳多-迪卡普里奥在第88届奥斯卡颁奖典礼上凭借《荒野猎人》获得最佳男主角奖的,全世界的网友通过电视、网络看到了这一幕,纷纷在各大社交媒体上对小李表示祝贺。这体现了信息(   )
    A、共享性 B、载体依附性 C、时效性 D、可加工性
  • 2. 下列哪个选项没用用到人工智能(   )
    A、2016年3月9日AlphaGo挑战围棋世界冠军李世石。 B、小明在开车时使用高德导航进行导航。 C、带上Oculus Rift后,你看到的所有影像将能完整的把你包围。 D、阅读外国文献时遇到看不懂的文章,使用谷歌翻译。
  • 3. 在word文档中如图所示,这两个波浪线各应该是什么颜色?(   )

    A、红色  红色 B、红色  绿色 C、绿色  绿色 D、绿色  红色
  • 4. 如下图所示,拖动选定单元格右下角的填充柄至D2释放,则A2:D2中的数据为(   )
    A、1.2.3.4 B、1.1.1.1 C、1.2.1.2 D、1.2.2.2
  • 5. 某算法流程图如右图所示,执行算法流程图后,
    S<--S+k执行了几次?(   )
    A、4 B、5 C、6 D、7
  • 6. 高一(1)班同学为了展示班级风采,决定建立班级网站,主要操作步骤如下: (   )
    ①收集反馈意见、评价修正网站;②需求分析、确定目标;③策划制作方案、收集整理素材;④选择适当工具、实际制作。  合理的操作流程是
    A、③②①④ B、②①④③ C、①③②④ D、②③④①
  • 7. 用photoshop编辑“诚信.psd”时,部分界面如下图所示:
      
    若只想保留图片中的“信”字,下列方法最适合的是(   )
    A、使用“裁切”工具 B、使用“缩放”工具 C、使用“编辑”菜单中的“自由变换”命令 D、使用“图像”菜单中的“图像大小”命令
  • 8. 使用GoldWave软件处理音频为双声道Wave格式的音频文件,要求左声道是清唱,从00:00:02开始;右声道是伴音,前2秒淡入、后2秒淡出。下列处理效果符合要求的是(   )
    A、 B、 C、 D、
  • 9. 下图为调试某Flash作品时,弹出的错误提示窗口:
    可能的出错原因是(   )
    A、该Flash作品还没有被发布 B、指定文件夹中没有“a.txt”文件 C、“a.txt”文件存储容量太大 D、“a.txt”文件内容是空的
  • 10. 【加试题】用UltraEdit观察字符内码,结果如图所示:
    则字符“PPt”的十六进制内码值为:(   )
    A、56 56 54 B、56 56 74 C、50 50 54 D、50 50 74
  • 11. 【加试题】下列程序用于计算s=1*2+3*4+5*6+7*8+9*10,请问划线处分别为(   )
    s=0
    for  k = 1  to  10  step     
    s = s +         
    next  k
    A、1 ,k B、2 ,k C、1,k*(k+1) D、2,k*(k+1)
  • 12. 【加试题】一组数据 22,94,17,125,63,若采用冒泡排序算法对其进行升序排列,则需要经历几遍加工?第一次加工交换多少次?(   )
    A、2,2 B、4 ,2 C、2,3 D、4,3

二、非选择题

  • 13. 读图、回答问题
    图1

    图2

    图3
    (1)、如图1所示,要计算各种作物占总计的百分比,采用的方法是先在E3的单元格中应输入公式 ,  再使用填充功能完成其他的单元格的计算。
    (2)、如图1,要想对数据“占总计的百分比”降序排列,第一步应该先选择哪部分区域的数据
    (3)、如图1所示,若想表格中“15年”这列数据设置为一位小数,并将黑色的表格线更换成红色表格线可以通过下列哪两个选项卡实现
    (4)、某人不小心将图1中的水果数据进行了修改,会造成图3中的变化吗?(填写:会/不会)
  • 14. 现要求编写VB程序,界面如图1所示,程序功能如下:单击开始暂时按钮Command1,图像控件Image1中的图片每隔5秒更换一张,再次单击Command1按钮,停止展示。  
    (1)、为达到每隔5秒更换一张图片的效果,应使用图2所示的空间工具箱中的(填写相应的编号),并将其Interval属性值设置为
    (2)、请根据题意讲下列程序补充完整

    Private Sub ()

      Dim i As Integer

      If Command1.Caption = "开始展示" Then

        Command1.Caption = "停止展示"

        Timer1.Enabled = Ture

      Else

        Command1.Caption = "开始展示"

               

      End If

    End Sub

    Private Sub Timer1_Timer()

    i = i + 1

    If i > 5 Then i = 1

    Image1.Picture = LoadPicture(i & “.jpg”)

    End Sub

  • 15. 在寒假难得一见的寒潮期间,小明用Flash创作“寒岁三友”的多媒体作品,请回答下列问题:
    图1

    图2
    (1)、如图1所示,库中有共有种元件
    (2)、测试影片,发现“重播”按钮并没起作用,则该按钮的动作脚本应是
    (3)、图层“文字”中的字从“松”变为“竹”再变为“梅”,那么第27帧到第34帧的动画类型应为动画。第34帧中的元素内容应为(元件、矢量图、位图)。
    (4)、观察图1中松图层的第一帧和第30帧中“松”的位置分别如图2所示,则“松”实例在舞台上是如何移动的
    (5)、如果此动画帧率是12fps,播放这段动画需要时间长度大约为秒(保留一位小数)
    (6)、如果想把动画放在网上,Flash动画导出的文件格式是
  • 16. 【加试题】小明为班会设计了一个抽奖程序,将所有同学的编号和对应的姓名分别保存在数组a(全班共50个同学,编号为1到50)和数组b中,点击抽奖按钮后,程序会随机产生一个1到50的正整数(同时包括1和50),作为中奖编号。
    效果如图所示,左边列表框List1中显示同学的编号和姓名,单击"抽奖"按钮(Command1),在标签Label3中显示抽中的编号,同时在标签Label4中显示"恭喜***同学",其中具体同学的姓名从数组b中获取。
    解决此问题的程序段如下:
    Dim a(1 To 50) As Integer,b(1 To 50) As String
    Private Sub Command1_Click()
    Dim c As String, t as Integer    ①
    Randomize
    c=Int(Rnd()*50+1)
    Label3.Caption = Str(c)
    t = search(c)
        If  t < 0 Then    ②
           Label4.Caption = "恭喜" + b(c) + "同学"
        End If
     End Sub
    Function search(m As Integer) As Integer
    search = 0
    For i = 1 To 50
        If  m = a(i) Then
           search = a(i)
        End If
    Next i
    End Function
    Private Sub Form_Load()    ' 此过程用于对数组a和数组b进行初始赋值,代码略
    End Sub
    上面代码中有错误请改正。
  • 17. 【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字,用户输入猜测的数字,电脑判断用户所猜密码的正确性,如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了!”,否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
        程序界面如图VB-1所示,用户在文本框Text1中输入数字长度,单击“确定长度”按钮(Command1)后,在文本框Text2中输入数字,单击“判定”按钮(Command2)后,程序在标签Label3中输出校验结果。
    相应的程序如下,在程序划线处,填入适当的语句或表达式,把程序补充完整。

    Dim num(1 To 25) As Integer
    Private Sub Command1_Click()
     Dim i As Integer,n As Integer
     n = Val(Text1.Text)
     For i = 1 To n                   '产生n位小于8的密码,每位一个非负整数,保存到数组num
      num(i) =
     Next i
    End Sub
    Private Sub Command2_Click()
    Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
     n = Val(Text1.Text)
     For i = 1 To n
         x(i) =     '把文本框中数字逐个分割出来并转化成数值
     Next i
     s = 0                               '变量s保存不同字符的总数
     For i = 1 To n
      If num(i) <> x(i) Then  s = s + 1
     Next i
     If  Then
      Label3.Caption = "恭喜你猜中了!"
     Else
          Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
     End If
    End Sub