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

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

更新时间:2018-01-06 浏览次数:268 类型:高考模拟
一、选择题
二、非选择题
  • 13. (2016·杭州模拟) 读图、回答问题
    图1

    图2

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

    图2
    1. (1) 如图1所示,库中有共有种元件
    2. (2) 测试影片,发现“重播”按钮并没起作用,则该按钮的动作脚本应是
    3. (3) 图层“文字”中的字从“松”变为“竹”再变为“梅”,那么第27帧到第34帧的动画类型应为动画。第34帧中的元素内容应为(元件、矢量图、位图)。
    4. (4) 观察图1中松图层的第一帧和第30帧中“松”的位置分别如图2所示,则“松”实例在舞台上是如何移动的
    5. (5) 如果此动画帧率是12fps,播放这段动画需要时间长度大约为秒(保留一位小数)
    6. (6) 如果想把动画放在网上,Flash动画导出的文件格式是
  • 16. (2016·杭州模拟) 【加试题】小明为班会设计了一个抽奖程序,将所有同学的编号和对应的姓名分别保存在数组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. (2016·杭州模拟) 【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字,用户输入猜测的数字,电脑判断用户所猜密码的正确性,如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了!”,否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的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

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

试卷信息