2016-2017学年浙江省“七彩阳光”新高考研究联盟高二（上）期中信息技术试卷

一、选择題（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．下列关于信息的说法，不正确的是（　　）

  A．书本上的文字所表述的内容是信息

  B．同一信息可以依附于多种载体，也可以不依附于任何载体

  C．信息具有时效性

  D．因特网上的信息能进行加工处理的
  组卷：7引用：2难度：0.9

  解析

• 2．下列关于网站和网页说法不正确的是（　　）

  A．网页文件是用HTML语言来描述的

  B．HTTP协议用于浏览器与Web服务器之间的信息传输

  C．记事本可以用于编辑简单的网页

  D．网站其实就是通过文字超链接将多个网页集合在一起的
  组卷：3引用：3难度：0.9

  解析

• 3．下列应用中，没有使用光学字符识别（OCR）技术的是（　　）

  A．小猿搜题是一款为初高中学生创造的拍照搜题软件

  B．汽车牌照识别是对含有汽车牌照的图象进行分析处理，从而确定提取和识别出车牌号

  C．某字典软件通过拍摄自动输入英语单词，并显示该单词的汉字解释及例句

  D．用数码相机拍摄练习题并通过QQ与同学交流解题技巧
  组卷：6引用：2难度：0.9

  解析

• 4．关于Access数据库的说法，不正确的是（　　）

  A．在数据表中输入数据之后，则不能将任何字段的数据类型改为“自动编号”

  B．新增字段可以将其字段类型定义为“自动编号”

  C．“自动编号”中的值不能修改，删除此编号就没有此编号

  D．被设为“主键”（标志为一个钥匙图标）的字段值可以重复
  组卷：3引用：2难度：0.7

  解析

• 5．某算法流程图如图所示：执行该算法，输出变量s和变量i的值分别为（　　）

  A．4   8

  B．8   16

  C．16   128

  D．128   256
  组卷：0引用：2难度：0.5

  解析

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分

• 16．删除重复字符的程序。程序功能如下：在文本框Text1中输入字符串，单击“删除重复字符”按钮，在文本框Text2中输出处理后的结果。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。
  Private Sub Command1_ Click （　　）
  x=TextI Text
  n=Len（x）
  s=s+Mid（x,1.1）
  For i=2 To n
  flag=0
  For j=1 To Len（s）
  If Then
  flag=1：Exit For
  End If
  Next  j
  If Then
  s=s+Mid（x,i.D
  End If
  Next i
  Text2，Text=s
  End Sub
  组卷：0引用：1难度：0.3

  解析

• 17．小明编写了一个查名次的程序。程序功能如下：运行程序，读取数据库，将相关信息读入到数组中（xh存放学号，xm存放姓名，zf存放总分，mc存放名次）并在列表框 list I中显示学生的相关信息，单击“排名次”按钮，在列表框list2中显示带有名次的学生相关信息（总分相同的名次一样）。在文本框中输入学生的学号，单击“查名次”按钮，则在窗体中显示该学号对应的学生姓名与名次。程序运行效果如图所示。
  
  实现上述功能的VB程序如下：
  （1）通过分析代码可知该数据表的名称为

   

  
  （2）实现上述功能的VB程序如下：请在横线处填入合适代码。
  Dim xh（n） As Strin
  Dim xm（n）As String
  Dim zf（n） As Integer
  Dim mc（n） As Integer
  Private Sub Form _Load （　　）
  Dim conn As New AlXODB Connection
  Dim rs as new adodb,recordset
  Dim n As Integer i As Integer,k As Integer
  conn,ConncctionString-“Provider=Microsoft.ACE OLEDB，12.0：Data Source=
  +App.Path+“\student.jye.ai”
  conn open
  Set rs,ActiveConnection=conn
  rs,“Open SELECT*FROM score“
  ListI．Additem“学号”+“”+“姓名”+”“”+“总分“
  n=0
  Do While not rs EOF'到最后一条记录后退出循环
  n=n+1
  xh（n）=rs.Fields（“学号”）
  xm（n）=s.Fields（“姓名“）
  zf（n）=rs.Fields（“总分“）
  ListI，AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））
  

   

  ‘移动到下一条记录
  Loop
  rs Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  Private Sub Commandl Click（　　）
  For i=I To n
  k=i
  For j=i+I To n
  If zf（j）＜zf（k） Then k=j
  Next j
  If

   

  Then
  Templ xh（i）：xh（i）=xh（k）：xh（k）=Templ
  Temp2=xm（i）：xm（i）=xm（k）：xm（k）=Temp2
  Temp3=zf（i）：zf（i）=zf（k）：zf（k）=Temp3
  End If
  Next i
  mc（1）=1
  For i=2 To n
  If zf（i）=zf（i-1）Then
  

   

  
  Else
  mc（i）=i
  End If
  Next i
  List2．AddItem“学号“+“”+“姓名”+“总分”+“名次”
  For i=I To n
  List2 AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））+“”+

   

  
  Next i
  End Sub
  组卷：0引用：1难度：0.5

  解析