2016-2017学年浙江省湖州市高三（上）期末信息技术试卷

一、选择题（共12小题，每小题2分，满分24分）

• 1．Troldesh是一个文件加密勒索软件，犯罪分子通过发达电子邮件等形式发送用户，用户点击其中的链接或打开附件中文件，该软件将使用AES CBC 256位加密算法对用户文件进行批量加密，并把加密后的文件修改为．xtbl扩展名的文件，用户只有通过购买私用密钥的方法进行解密．则下列说法正确的是（　　）

  A．该加密勒索软件隐藏在电子邮件正文中

  B．用户只需通过重命名的方法，修改文件扩展名即可打开原文件

  C．受害人支付高昂的费用购买私用密钥的行为会助长犯罪

  D．加密算法都不可破解
  组卷：7引用：2难度：0.9

  解析

• 2．小程编辑电子邮件的界面如图所示．下列说法正确的是（　　）

  A．“对邮件加密”只有将邮件发送给“密送”对象才有效

  B．勾选“保存到已发送”，邮件发送成功后，会自动保存到草稿箱

  C．“需要回执”是对方邮件服务器收到邮件后，会自动回复一封邮件

  D．“紧急”表示当收件人收到邮件时，该邮件前面会有紧急标记
  组卷：4引用：1难度：0.9

  解析

• 3．下列属于虚拟现实技术应用的是（　　）

  A．VR眼镜	B．在线翻译
  C．语音识别	D．12306网上购票
  组卷：6引用：1难度：0.9

  解析

• 4．某Access数据如图所示，下列说法正确的是（　　）

  A．“ID”字段的数据类型为“数字”

  B．“密码”字段设置了输入掩码为密码

  C．将该数据表导出到Excel文档中，工作表中的数据共有14行5列

  D．若删除当前记录，下一条记录“ID”字段的值自动更新为4
  组卷：2引用：2难度：0.7

  解析

• 5．某算法的部分流程如图所示，若要用VB语言实现该部分算法，下列代码符合流程图的是（　　）

  A．s=1 For i=0 to 8     s=s*2     i=i+1 Next i

  B．s=1：i=0 Do While＜=8     s=s*2 Next i

  C．s=1 Do While＜=8     s=s*2 Loop

  D．s=1：i=0 Do while＜=8     s=s*2     i+i+1 Loop
  组卷：9引用：3难度：0.5

  解析

二、解答题（共5小题，满分26分）

• 16．在一个数据序列中，如果出现连续升序的几个数，称为一个升序序列，该序列中数的个数称为序列长度．用随机函数产生10个数据的序列，查找其中升序序列的个数及最大序列长度．程序运行界面如图所示：
  
  （1）实现上述功能的代码如下，加框处有错，请改正．
  （2）如图所示的序列中，程序运行后，变量t的值为

   

  ．
  Dim a（1 to 10）As Integer
  Private Sub form_-Load（　　）
  '产生10个随机整数，并显示在标签Label1中
  End sub
  Private  Sub  answer_-Click（　　）
      Dim i As Integer,max As Integer,t As Integer,dz As Integer
      Max=0：t=1：dz=0
      For i='①
          If a（i）＜a（i+1）Then
            '②
           Else
              If max＜t Then  max=t
              If t＞1 Then dz=dz+1：t=1
           End If
        Next i
  '以下程序代码处理最后几个数正好属于升序序列的情况
        If t＞1 Then
            If max＜t Then max=t
            dz=dz+1
        End If
        Text1．Text=Str（dz）
        Text2．Text=Str（max）
  End Sub.
  组卷：1引用：2难度：0.3

  解析

• 17．某省学生信息技术学习平台使用情况数据存储在数据库中，利用VB编写一个程序，实现的功能：输入一个积分的范围，显示该范围内的学生编号和对应的积分．程序运行界面如图所示：
  程序代码如下，为实现以上功能，请在横线处填写合适的代码：
  Dim bh（10000）As String‘存储学生编号
  Dim jf（10000）As Integer‘存储学生获得的积分值
  Dim n As Integer‘存储学生总人数
  Function Search（x As Integer）As Integer
  Search=0
  i=1：j=n：flag=True
  Do While i＜=j And flag=True
      m=Int（（i+j）/2）
      If x=jf（m） Then
          flag=False
  

   

  
      Elsef

   

  Then
          i=m+1
        End If
      Loop
  End Function
  Private Sub Form_-Load（　　）
  ‘从数据库中读取学生编号和积分，分别存储到bh数组和jf数组中，并按积分值从小到大排序，显示在列表框Listl中
  End Sub
  Private Sub Commandl_-Click（　　）
      Dim Top As Integer,Bottom As Integer,Topxb As Integer,Bottomxb As Integer
      List2．Clear
      Top=Val（Text2．Text）
  If Top＞Bottom Then t=Top：Top=Bottom：Bottom=t
      If Top＞jf（n） Or Bottom＜jf（1）Then Exi Sub
      Do While Search（Top）=0
          Top=Top+1
      Loop
      Do While Search（Bottom）=0
          Bottom=Bottom-1
      Loop
      Topxb=Search（Top）
      Do While jf（Topxb）=jf（Topxb-1）And Topxb＞1
          Topxb=Topxb-1
      Loop
      Bottomxb=Search（Bottom）
      Do while jf（Bottomxb）=jf（Bottomxb+1）And Bottomxb＜n
          Bottomxb=Bottomxb+1
      Loop
      For i=

   

  
          List2．AddItem bh（i）&''''& jf（i）
      Next i
  End Sub.
  组卷：1引用：1难度：0.3

  解析