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

试卷更新日期:2017-12-28 类型:高考模拟

一、选择题

  • 1. 3月8日当天,某商家网上旗舰店搞促销优惠活动,并且可通过手机扫码进入商家店铺领取更多额度的优惠券,此扫码过程属于(   )
    A、信息编码 B、信息采集 C、信息处理 D、信息传输
  • 2. 用UltraEdit软件观察字符内码,结果如图所示:

    由图可知,“2015,高考加油!”所占字节数及“高”的内码分别是(   )

    A、14,B8 DF B、15,AC B8 C、16,B8 DF D、16,AC B8
  • 3. 新浪网发起了2015年“最喜爱的央视春晚节目”调查,调查投票结果如图所示:

    则该调查结果的评价方式属于(   )

    A、统计评价 B、个人推荐 C、专家评价 D、核心刊物评价
  • 4. 某用户使用Word软件编辑文档,部分界面如图所示:

    下列说法正确的是(   )

    A、共有3处批注       B、有2个用户添加了批注     C、用户微软用户1添加批注的对象是“来源‘浙江在线’”     D、用户微软用户2添加批注的内容为“不限选考科目占54%”
  • 5. 实现计算器上xy运算处理的算法部分流程图如图所示:

    下列说法正确的是(   )

    A、框图①中该填入的是f←x*j B、框图①中该填入的是f←f*j C、j←j+1被执行了x次 D、j←j+1被执行了y次
  • 6. 校讯通中某班学生信息用Access打开“学生数据”数据表后如图所示,下列描述中正确的是(   )

    A、“家长号码”字段的类型应改为数值型 B、该数据表共有52条记录, 至少6个字段 C、在如图状态添加一条记录后,当前记录号为2 D、删除“班级名称”字段后,记录数也会减少一条
  • 7. 李明同学发现他的QQ农场内有很多蚊子,于是他拿起“蚊子拍”工具去“拍”蚊子,蚊子马上消失,同时人物经验值立即增加了2点,这主要体现多媒体技术的(   )
    A、集成性 B、交互性 C、实时性 D、共享性
  • 8. 某素材库中4个未经压缩的图像文件相关信息如图所示:

    270×185×16

    540×370×16

    540×370×16

    540×370×16

    1.bmp

    2.bmp

    3.bmp

    4.bmp

    关于这4幅图像,下列说法不正确的是(   )

    A、将2.bmp图像进行一次垂直翻转即得到3.bmp图像 B、将2.bmp图像进行一次水平翻转即得到4.bmp图像 C、2.bmp文件的存储容量约为1.bmp文件的4倍   D、4个图像文件的存储容量一样大
  • 9. 某同学要制作一段社会实践活动的影片,用会声会影软件编辑采集到的视频,在两段活动视频中间插入一个“百叶窗”过渡效果,制作时包括以下操作步骤:

    ①将素材库中的两个视频文件拖进故事板

    ②启动会声会影软件并新建一个项目

    ③创建视频文件,保存为VCD格式

    ④选择效果的“百叶窗”,将效果拖入到两个视频中间

    ⑤切换到“效果步骤”

    正确的排序是(   )

    A、②①⑤④③ B、②①④③⑤ C、⑤②①③④ D、①⑤④③②
  • 10. 小张用GoldWave软件打开了一个声音文件,其状态栏界面如图所示,下列说法正确的是(   )

    A、该声音文件采样频率为44100kHz B、这是一个MP3格式音频 C、这是一个单声道的音频 D、这是一个WAVE格式音频

二、综合题

  • 11. 图1是2014年中国主要城市GDP排行榜中排名靠前的城市。请回答下列问题:

    (1)、计算各城市2014年“增长率”时(增长率=增量÷2013年GDP*100),先在H3单元格中输人公式 , 然后利用自动填充功能完成其余单元格的计算。
    (2)、在“人口(万)”列输入数据时,发现    B3:B11单元格中显示的是“#######”而非数据(如图1所示),其原因为
    (3)、对表中“人均GDP”进行筛选,当“自定义自动筛选方式”对话框中设置成如图2所示时,则其筛选条件为 , 符合条件的城市个数为
  • 12. 生活中,许多女士喜欢穿高跟鞋,那穿高跟鞋会使人感到美吗?黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说,这一比值越接近0.618,愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序(界面如下题图所示),实现如下功能: 首先,设某女躯干 a米 和身高 b米 比为g,分别从文本框Text1和Text2中输入。鞋跟高度 s(单位与 a、b 一致)从Text3中输入,那么新比值g=(a+s)/( b+s),如果g=0.618,那么鞋跟高度S的值就是最佳高度。

    (1)、应用程序界面设计时,为显示新比值,需在窗体中添加控件,并将它的属性值设置为空。
    (2)、请根据题意将下列程序补充完整。

    Private Sub Command1_Click( )

    Dim a As Single, b As Single,s As Single,g As Single

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    s = Val(Text3.Text)

    Label5.Caption =

    End Sub 

  • 13. 儿童节前夕,小杰他妹妹幼儿园的老师向他求助,希望他帮忙设计一张儿童节活动海报,于是他用Photoshop软件设计制作了一张以“彩虹乐园”为主题的活动海报,他当前编辑窗口如图所示。

    请回答下列问题:

    (1)、如图,给“绿都花城幼儿园”图层中通过(填① 或② )工具在A处添加文字“绿都花城幼儿园”,并通过执行操作把该图层设置成跟“彩虹乐园”图层一样的样式。
    (2)、对B处“天鹅”图层执行操作,然后再进行“水平翻转”和调整位置后可得到右侧对称的天鹅。
  • 14. 蓝蓝制作了一个主题为“上海野生动物园”的Flash动画,其中main场景的制作界面如图1所示。

    图1

    请回答下列问题:

    (1)、执行“测试影片”命令时,发现“老虎”是由小变大出现的,结合图1,说明对“老虎”图层设置了补间动画。
    (2)、测试影片结果如图2,“上海野生动物园”字样的图形是由透明至完全显示变化,说明对该图形“颜色”属性的值设置了0—100的变化。

    图2

    (3)、由图2可知,“main”场景的大小为;根据图中所示帧频,又知该场景总共有225帧,则执行完该场景共需秒。
    (4)、动画制作完成后,执行“测试影片”命令,发现动画放完后即停止。说明在“main”场景“背景”图层的最后一帧上设置了动作命令

三、选择题

  • 15. 图所示,有一幅8×8像    素的黑白图像,如果该图像的每一行按照从左到右编码,且第一行编码为10010010,那么第三行的编码的16进制表示为(       )

    A、51H B、D5 H C、AE H D、52 H
  • 16. 表达式 len(“Good Morning”)+2 mod 3 +int(3.9999)的值为(   )
    A、15 B、16 C、17 D、表达式运算出错
  • 17. 小金编写了一个统计随机数分布的VB程序,部分程序如下所示,在调试程序的时候出现如图所示的错误信息:

    n = 0 : m = 0

    For  i = 1 To 100

         If  Rnd > 0.5  Then

            n = n + 1

         Else

         m = m + 1

    Next  i 

    ……

    小金仔细分析该程序段后,发现其中缺少了(   )

    A、For B、End If C、Next D、If
  • 18. 有6位学生的身高分别为165,170,172,175,176,180。其中,小民的身高为175,若老师采用对分查找法想要找到小民,则需要找多少次才能够找到(   )
    A、2 B、3 C、4 D、5

四、综合题

  • 19. 下列VB程序运行时,在文本框Text1中输入“h”后,单击命令按钮Command1后,标签框Label1中显示的内容是

    Private Sub Command1_Click()

    Dim a As String

    a = Text1.Text

    a = Chr(Asc(a) - 32)

    Label1.Caption = a

    End Sub

  • 20. 只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数,程序运行界面如下图所示。

    请根据算法将下列程序补充完整。

    Function prime(a As Integer) As Boolean

        Dim j As Integer

        prime = True

        j = 2

        Do While prime And j <= a \ 2

           If a Mod j = 0 Then

               prime = False

             Exit Do

           End If

                

             Loop

    End Function

    Private Sub Command1_Click( )

    Dim i As Integer, a As Integer, b As Integer

    Dim count As Integer

    a = Val(Text1.Text)

    b = Val(Text2.Text)

            For i = a To b

               If  = True Then

                   List1.AddItem Str(i)

                   count = count + 1

               End If

    Next i

    Label1.Caption = "素数共有" + Str(count) + "个!"

    End Sub

  • 21. 某商场元月举行VIP客户积分换购活动,VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名,VIP卡内积分存放在数据库“customer.accdb”的Integral表中,换购活动的VB程序代码如下,程序运行时界面如第7题图所示。工作人员在文本框Text1中输入VIP卡号后,单击“换购”按钮Command1,在文本框Text2中输出VIP客户的积分数,在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。

    Dim ID( ) As String    '用于存放客户卡号

    Dim total( ) As Long      '用于存放积分数

    Dim sc As Long                  'VIP客户人数

    Dim jf As Long                  '积分数

    Private Sub Command1_Click( )

      Dim k As String                '客户卡号

      Dim q As Long               '代金券额度

      Dim i As Long

      k = Text1.Text

      For i = 1 To sc     ’顺序查找

          If ID(i) = k Then

              jf = total(i)     

              cash(jf) = q               ’ ①

              Exit For

          End If

          Text2.Text = Str(jf)

          Label3.Caption = “您可换购的代金券总额为:”+ Str(q) + “元”

        Next i

      End If

    End Sub

    ' cash函数用于计算VIP客户可换购的代金券额度

    Function cash(jf As Long) As Long

      If jf >= 2000 And jf <= 20000 Then

           Cash = jf\2000*10

    ElseIf jf > 20000 And jf <= 50000 Then

           Cash = jf\2000*11

    ElseIf jf > 50000 And jf <= 100000 Then

           Cash = jf\2000*12

    ElseIf jf > 100000 And jf <= 150000 Then

           Cash = jf\2000*13

     Else jf > 150000 Then         ’ ②

           Cash = jf\2000*14

    End If

    End Function

    Private Sub Form_Load()

       Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

       Dim intSQL As Long

       conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"

        conn.Open

       intSQL = "SELECT score  FROM Integral" 

         Set rs.ActiveConnection = conn

         rs.CursorType = adOpenStatic

         rs.Open intSQL

         sc = 0

         Do While Not rs.EOF

           sc = sc + 1

           total(sc) = rs.Fields("score")

           rs.MoveNext

         Loop

    rs.Close

         conn.Close

         Set rs = Nothing

         Set conn = Nothing

    End Sub

    (1)、加框处①有错,应改为__。
    (2)、加框处②有错,应改为