2015-2016学年浙江省宁波市九校联考高二（下）月考信息技术试卷

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

• 1．网站验证码中的语音校验码昌通过声音来进行验证的．当点击语音验证码时，出现语音提示，按语音说明，输入验证码，正确即可通过验证，其目的是提升信息的（　　）

  A．真实性

  B．真伪性

  C．共享性

  D．安全性
  组卷：3引用：2难度：0.9

  解析

• 2．使用OCR软件对图象文件进行文字识别，部分界面如图所示．则下列说法正确的是（　　）
  

  A．待识别对象为“文档说明．txt”

  B．识别的结果保存在“文档说明．tif”中

  C．图中区域①显示的是待识别的对象

  D．图中区域②显示的是图象文件的内容
  组卷：11引用：4难度：0.9

  解析

• 3．ASCII码表中的大写字母Z后有6个其他字符，接着便是小写字母a。现在已知：字母Y的ASCII码为（1011001）₂，则字母b的ASCII码用十六进制表示是（　　）

  A．61H

  B．62H

  C．63H

  D．64H
  组卷：13引用：6难度：0.9

  解析

• 4．某外贸公司为了管理公司员工的信息，用Access建立了一张数据表，表结构如图所示，在该表中下列操作能成功的是（　　）

  A．在“员工号”字段中输入“0155”

  B．在“出生年月”字段输入“一九九零年六月四日”

  C．在“证件照”字段插入各位员工的证件照照片

  D．在“薪水”字段输入“500元”
  组卷：3引用：1难度：0.5

  解析

• 5．如图所示流程图片断，该流程图中循环部分结束后，变量S的值是（　　）
  

  A．5

  B．6

  C．15

  D．16
  组卷：3引用：1难度：0.7

  解析

二、非选择题（共5小题，满分26分）

• 16．在最近举行的校五有歌会中，艺术组的老师统计出各班（高一、高二各10个班，共20个班级参赛）的原始成绩后，利用技术组老师设计的VB程序的功能如下：各班原始成绩显示在左边的列表框List1中，单击“排序”按钮，各班成绩按从高到低的顺序排列，并显示在右边的列表框List2中，程序界面如图所示：
  实现上述功能的VB如下：
  Dim a（1 to 50）As Integer
  Dim b（1 to 50）As String
  Private Sub Form_-Load（　　）
  ’各班成绩存储在a（i）中，各班编号存储在b（i）中，代码略
  End Sub
  Private Sub Commandl_-Click（　　）
  ’①
        For j=1 to 19-i
  If

   

  Then’②
  t1=a（j）：a（j）=a（j+1）：a（j+1）=t1
  t2=b（j）：b（j）=b（j+1）：b（j+1）=t2
          End If
  Next j
  Next i
  For i=1 to 20
      List2．AddItem b（i）+““+
  Str（a（i））
  Next i
  End Sub
  （1）在不改动其他语句的情况下，标号①应改为

   

  ．
  （2）标号②处缺少的语句为

   

  ．
  组卷：1引用：1难度：0.3

  解析

• 17．小明班有50个同学，某次技术考试的成绩保存在数据库文件“Student.jye.ai”的“技术成绩”表中，表结构如图所示，实现如下功能：窗体加载时，能自动读取“技术成绩”表中的数据，并且显示在列表框list1中，当点击“显示名次”按钮，可将相应学生的姓名和名次显示在列表框list2中名次的设置要求是：若比甲同学分数高的有x人，则甲同学名次为x+1．
  实现上述功能的VB代码如下，请在横线处填入合适代码．
  Const n=50
  Dim a（1 to n） As String
  Dim b（1 to n） As Single
  Dim c （1 to n） As Integer
  Private Sub Form _-Load（　　）
  Dim conn As New ADDODB．Connection
  Dim rs As New ADODB．Recordset
  Dim i As Integer
  conn.ConnetionString=“Provider=Microsoft.ACE．
  OLEDB.12.0；Data Suurce=“+App.Path+“\Student.jye.ai“
  conn.Open
  Set.rs.ActiveConnection=conn
  rs.Open“SEECT#FROM 技术成绩“
  For i=1 to n
      a（i）=rs.Fieds（1）
      b（i）=rs.Fields（2）
      List1．AddIten a（i）+str（b（i））
      rs.MoveNext
  Next i
  rs.Close
  conn.Close
  End Sub
  Private Sub Commandl-Click（　　）
  Dim rank As Integer,x As Single
  c（1）=1
  rank=1
  x=b（1）
  For i=2 to n
      If b（i）＜＞x Then
  

   

  '①
          x=b（i）
      End If
  

   

  '②
  Next i
  For i=1 to n
      List2．AddItem

   

  '③
  Next i
  End Sub.
  组卷：3引用：1难度：0.1

  解析