2017-2018学年浙江省湖州市、丽水市、衢州市高三（上）质检信息技术试卷（9月份）

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

• 1．下列说法中不正确的是（　　）

  A．为提高信息检索效率可用逻辑运算符限定检索范围

  B．根据信息的特点及应用霜求选择合适的表达方式来表达

  C．POP3协议出错，则无法将电子邮件发送到收件人的邮件服务器中

  D．为了提高存储和传输效率，往往对数字化了的多媒体信息进行压缩处理
  组卷：9引用：1难度：0.9

  解析

• 2．有关浏览网页，下列做法合适的是（　　）

  A．在公共计算机上浏览网页保存用户名和密码

  B．使用安全防护软件锁定IE浏览器的主页

  C．点击网页中的任意超链接，实现页面之间的跳转

  D．在BBS中发布和转载未经证实的信息
  组卷：4引用：1难度：0.9

  解析

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

  A．在字符识别之前，都要对扫描件进行倾斜校正

  B．区域①处显示的是“烟雨江南．JPG”中的内容

  C．通过手动输入可将区域②处的文字“榭”修正为“树”

  D．对图象进行去噪声、滤波处理，有助于提高字符的识别率
  组卷：9引用：3难度：0.9

  解析

• 4．使用Access软件创建的“VR眼镜”数据表，其设计视图的部分界面如图所示，下列说法正确的是（　　）

  A．在当前设计视图中，可添加一条新的记录

  B．在该数据表的“编号”字段中可手动输入字段值

  C．删除该数据表中的记录，其设计视图的字段个数也会随之减少

  D．在该数据表中，“2016-11-11”可以是“生产日期”字段的有效输入值
  组卷：3引用：1难度：0.5

  解析

• 5．某算法的问供发流程图如图所示，执行这部分流程，输入m,n的值为21，14，则变量n的值是（　　）

  A．4

  B．7

  C．12

  D．18
  组卷：4引用：1难度：0.7

  解析

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

• 16．某数的平方与它的逆序数的平方互为逆序数，则该数被称为奇妙平方数。
  如12²=144，21²=441，12与21互逆，144与441互逆，12就是奇妙平方数，小明编写了一个找出200以内的所有奇妙平方数的VB程序，运行界面如图所示。实现上述功能 的VB程序如下，但加框处代码有误，请改正。
  Private Sub Commandl_-Click（　　）
  Dim a As Integer,b As Integer,al As Integer,sum As Integer
  Dim t1  As Long,t2 As Long
  sum=0
  For a=1 To 200
        b=0：a1=a
         Do While a1＞0
           b=b*10+a1 Mod 10
           a1=a1\10
      Loop
      t1=a^2Lt2=b^2
      If And a＜＞b   Then
        Listl.AddItem Str（a）  &“^2“&“=“&Str（t1）
        List2．AddItem Str（b）  &“^2“&“=“& Str（t2）
        sum=sum+1
      End    If
       Next a
       Labell.Caption=“共有“+Str（sum）+“个”
  End Sub
  Function compare（x As Long,y As Long） As Boolean
    Dim k1 As Integer,s1 As String,s2 As String
    s1=trim（Str（x））：s2=Trim（Str（y））'Trim（　　）函数用于删除字符串首尾空格
    k1=Len（s1）
    compare=True
    For i=1 to k1
       If Mid（s1，i,1）＜＞Then copare=False
    Next i
  End Function。
  组卷：0引用：1难度：0.3

  解析

• 17．小明编写了一个图书录入系统的VB程序，功能如下：单击“读数据库”按钮Commandl,从数据库中读取相应数据显示在列表框List1中，在文本框Textl中输入图书类别，在文本框Text2中，程序运行界面如图所示。实现上述功能的VB如下，请回答下列问题：
  （1）分析程序，可知数据库的文件名为

   

  。
  （2）请在划线填入合适的代码。
  Dim sType（1 to 200）As String'存放图书类别
  Dim sNumber（1 to 200）As Integer'存放图书数量
  Dim n As Integer
  Private Sub Commandl_-Click（　　）
    Dim conn As New ADODB．Connection
    Dim rs As New ADOB．Recordset
    conn.ConnectionString=“provider=Microsoft.ACE，OLEDB.12.0data source
  =“& App.Path  &“\Library.jye.ai“
      conn.Open
      Set rs.ActiveConnection=conn
       rs.Open“select*from Book“
  '本过程从灵长据库中读取图书数据，存储在相应的变量中，并在Listl 中显示
  '代码略
     End Sub
  Private Sub Command2_-Click（　　）
    Dim i As Integer,j As Integer,t As Integer,y As Integer
    Dim x As String,s As String
    Dim flag As Boolean
    List2．Clear
    x=Textl.Text
    y=Val（Text2．Text）
    For i=1 to n
     If sType（i）=x Then
  

   

  
          flag=False
        Exit For
    End If
  

   

  
        sType（n）=x
        sNumber（n）=y
    End If
    For i=1 to n-1
  Forj=i+1Ton
         If=

   

  Then
           t=sNumber（j）：sNumber（j）=sNumber（i）：sNumber（i）=t
          s=sType（j）：sType（j）=sType（i）：sType（i）=s
      End If
    Next j
  Next i
  List2．AddItem（“类别    数量“）
    FOr i=1 to n
      List2．AddItem sType（i） &““&Str（sUmber（i））
    Next i
  End Sub。
  组卷：0引用：1难度：0.2

  解析