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

  解析