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

浙江省2018年4月普通高校招生选考信息技术考试试卷

更新时间:2019-07-27 浏览次数:288 类型:水平会考
阅卷人
得分
一、选择题 (共12题;共12分)
阅卷人
得分
二、非选择题 (共5题;共17分)
  • 13. (2018·浙江选考) 小林收集了2015、2016年浙江省各地区生产总值数据,并使用Excel软件进行数据处理,如图a所示。

    请回答下列问题:

    1. (1) 要在表格第2行输入标题,格式如图b所示,下列操作正确的是(单选,填字母:A,在B2单元格输入标题,选择B2:F2区域后居中/B,在D2单元格输入标题后居中/C,在B2单元格输入标题,合并B2:F2区域后居中)。

    2. (2) 如图a所示,区域B4:F14数据已进行了排序,则排序的主要关键字是

    3. (3) 根据图a中数据制作的图表如图c所示,创建该图表的数据区域是

    4. (4) 在F15单元格中使用COUNTIF函数统计区域F4:F14中“增幅(%)”大于10的地区个数,则F15单元格中的公式是

        (提示:COUNTIF函数用于统计某个区域中满足给定条件的单元格个数。例如:=COUNTIF(B4:B20,“<100”)表示在数据区域B4:B20中统计数值小于100的单元格个数。)

    抱歉,您未登录!暂时无法查看答案与解析,点击登录
  • 14. (2018·浙江选考) 某种编码以4位二进制码为一组,每组前两位表示方向,后两位表示距离。编写一个程序,将编码翻译成方向和距离,距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下:在文本框Text1中输入连续多组编码,单击“翻译”按钮Command1,结果显示在列表框List1中。程序运行界面如图所示。

    1. (1) 要使程序运行时,文本框Text1的Width属性值为2018,可在Form_Load事件过程中添加语句(单选,填字母:A,Width=2018/B,Text1.Width=2018/C,width.Text1=2018)。

    2. (2) 实现上述功能的VB程序如下,请在画线处填入合适的代码。

          Private Sub Command1_Click()

              Dim s As String,c As String,d As String

              Dim n As Integer,b1 As Integer,b2 As Integer,v As Integer,i As Integer

              s=Text1.Text:n=Len(s):i=1

            Do While i<=n

            c=Mid(s,i,2)

            If c=“00”Then

              d=“东”

            Elself c=“01”Then

              d=“南”

            EiseIf c=“10”Then

               d=“西”

            Else

               d=“北”

            End If

            b1=Val(Mid(s,i+2,1))

            b2=Val(Mid(s,i+3,1))

            v=   ①   

            List1.AddItem d+”  ”+Str(v)

                ②  

             Loop

          End Sub

       ② 

    3. (3) 若文本框Text中输入的内容为“1111”,单击“翻译”按钮后,列表框List1中显示的内容是

    抱歉,您未登录!暂时无法查看答案与解析,点击登录
  • 15. (2018·浙江选考) 小王要创作一个关于“古诗欣赏”的多媒体作品,请回答下列问题:
    1. (1) 在制作作品前,小王进行了相应的分析和规划,下列不属于需求分析的是(单选,填字母:A,该作品要求使用Flash软件制作/B,该作品面向小学生演示播放/C,该作品的主题思想为“赏析经典诗词、弘扬传统文化”/D,根据主题思想和内容,制订该作品的脚本大纲)。

    2. (2) 小王使用Flash软件制作该多媒体作品,如图所示。

      图中“人物”图层第1帧到第10帧的补间动画实现了“人物”实例从完全透明到完全显示的效果,第1帧中“人物”实例的Alpha值是

    3. (3) 图中“白云”图层第15帧到第48帧的补间动画实现了一朵云逐渐变化为两朵云的效果,该动画的补间类型是

    4. (4) 测试场景时,“标题”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至场景动画结束,下列操作方法可行的有(多选,填字母:A,选中“标题”图层第41帧执行“清除关键帧”操作/B,删除“标题”图层第41帧到第60帧/C,选中“标题”图层第40帧执行“复制帧”操作,在第41帧执行“粘贴帧”操作/D,选中“标题”图层第60帧执行“插入关键帧”操作)。

    5. (5) 要将当前场景动画播放时长从6秒调整为5秒,则需设置Flash文档的帧频为fps。

    6. (6) 测试影片时,单击“赏析”按钮,实现在浏览器中显示位于同一文件夹下“赏析.txt”文件的内容,并停止当前动画的播放,则“赏析”按钮的动作脚本为 on(release){}。

  • 16. (2018·浙江选考) 【加试题】有一组正整数,要求仅对其中的素数进行升序排序。排序后素数在前,非素数在后。排序示例如下。

    排序前

    86

    71

    5

    41

    81

    79

    37

    89

    排序后

    5

    37

    41

    71

    79

    89

    86

    81

    实现上述功能的VB程序如下,但加框处代码有错,请改正。

    Const n=8

    Dim a(1 To n)  As Integer

    Private Sub Command1_Click()

      Dim i As Integer,j As Integer,k As Integer,t As Integer

      Dim flag As Boolean

      ‘读取一组正整数,存储在数组a中。代码略

      For i=1 To n-1

                   ‘(1)

    If IsPrime(a(k))Then flag=True Else flag=False

          For j=i+1 To n

            If IsPrime(a(i))Then

              If  Then       ‘(2)

                k=j

                flag=True

               End If

           End If

        Next j

        If k<>i Then

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

        End If

        If Not flag Then Exit For     ‘Exit For表示退出循环

      Next i

      ‘依次输出排序后的数据。代码略

    End Sub

    Function IsPrime(m As Integer)As Boolean

    ‘本函数判断m是否是素数:是素数返问值为True,不是素数返回值为False

        ‘代码略

    End Function

    1. (1) ⑴处加框代码应改为
    2. (2) ⑵处加框代码应改为
    【知识点】
    抱歉,您未登录!暂时无法查看答案与解析,点击登录
  • 17. (2018·浙江选考) 【加试题】为分析数组a中各元素依次变化的情况,进行如下定义:

    ●变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。

    ●波峰:从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个,终点是峰顶后所有连续下降段中的最后1个。

    ●对称波峰:上升段与下降段个数相同的波峰称为对称波峰。

      下图为一组数据的变化段及波峰示意图。

    现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计了如下VB程序。请回答下列问题:

    1. (1) 数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为

    2. (2) 请在画线处填入合适的代码。

      Const n=20

      Dim a(1 To n)As Integer

      Private Sub FormLoad()

          ‘读取数据,并存储到数组a中。代码略

      End Sub

      Private Sub Command1_Click()

          Dim flag As Integer   ‘存储变化段的状态:1表示升;-1表示降;0表示平

          Dim count As Integer    ‘存储对称波峰的个数

          Dim steps As Integer

          Dim i As Integer

          flag=0:steps=0:count=0

          For i=    ①   To n

            If a(i)>a(i-1)Then

              If IsSymPeak(flag,steps)Then count count+1

            If flag=0 Or flag=-1 Then

          ②  

            Else

               steps=steps+1

            End If

            flag=1

          EIself a(i)=a(i-1)Then

            If IsSymPeak(flag,steps)Then count=count+1

            steps=0

            flag=0

          Else

            steps=steps-1

            flag=-1

          End If

        Next i

        If IsSymPeak(flag,steps)Then count=count+1

        Text1.Text=Str(count)

      End Sub

      Function IsSymPeak(flag As Integer,steps As Integer)As Boolean

          If    ③    Then

             IsSymPeak=True

          Else

             IsSymPeak=False

          End If

      End Function

       ② ③ 

    抱歉,您未登录!暂时无法查看答案与解析,点击登录

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

试卷信息分值设置
分数:29分
题数:17
难度系数:0.51
第Ⅰ卷 客观题
一、选择题
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
第Ⅱ卷 主观题
二、非选择题
  • 13
  • 14
  • 15
  • 16
  • 17

试题篮

0

备课组卷

备课组卷助手小程序

返回顶部
您的试题篮还没有试题,
马上添加试题吧!