2017-2018學(xué)年浙江省湖州市、麗水市、衢州市高三（上）質(zhì)檢信息技術(shù)試卷（9月份）

一、選擇題（共12小題，每小題2分，滿分24分）

• 1．下列說法中不正確的是（　　）

  A．為提高信息檢索效率可用邏輯運(yùn)算符限定檢索范圍

  B．根據(jù)信息的特點(diǎn)及應(yīng)用霜求選擇合適的表達(dá)方式來表達(dá)

  C．POP3協(xié)議出錯(cuò)，則無法將電子郵件發(fā)送到收件人的郵件服務(wù)器中

  D．為了提高存儲(chǔ)和傳輸效率，往往對數(shù)字化了的多媒體信息進(jìn)行壓縮處理
  組卷：9引用：1難度：0.9

  解析

• 2．有關(guān)瀏覽網(wǎng)頁，下列做法合適的是（　?。?/h2>

  A．在公共計(jì)算機(jī)上瀏覽網(wǎng)頁保存用戶名和密碼

  B．使用安全防護(hù)軟件鎖定IE瀏覽器的主頁

  C．點(diǎn)擊網(wǎng)頁中的任意超鏈接，實(shí)現(xiàn)頁面之間的跳轉(zhuǎn)

  D．在BBS中發(fā)布和轉(zhuǎn)載未經(jīng)證實(shí)的信息
  組卷：4引用：1難度：0.9

  解析

• 3．使用OCR軟件進(jìn)行字符識別，部分界面如圖所示，下列說法正確的是（　?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/202102/76/60a47fd7.png" style="vertical-align:middle" />

  A．在字符識別之前，都要對掃描件進(jìn)行傾斜校正

  B．區(qū)域①處顯示的是“煙雨江南．JPG”中的內(nèi)容

  C．通過手動(dòng)輸入可將區(qū)域②處的文字“榭”修正為“樹”

  D．對圖象進(jìn)行去噪聲、濾波處理，有助于提高字符的識別率
  組卷：9引用：3難度：0.9

  解析

• 4．使用Access軟件創(chuàng)建的“VR眼鏡”數(shù)據(jù)表，其設(shè)計(jì)視圖的部分界面如圖所示，下列說法正確的是（　?。?/h2>

  A．在當(dāng)前設(shè)計(jì)視圖中，可添加一條新的記錄

  B．在該數(shù)據(jù)表的“編號”字段中可手動(dòng)輸入字段值

  C．刪除該數(shù)據(jù)表中的記錄，其設(shè)計(jì)視圖的字段個(gè)數(shù)也會(huì)隨之減少

  D．在該數(shù)據(jù)表中，“2016-11-11”可以是“生產(chǎn)日期”字段的有效輸入值
  組卷：3引用：1難度：0.5

  解析

• 5．某算法的問供發(fā)流程圖如圖所示，執(zhí)行這部分流程，輸入m,n的值為21，14，則變量n的值是（　?。?/h2>

  A．4

  B．7

  C．12

  D．18
  組卷：4引用：1難度：0.7

  解析

二、非選擇題（共5小題，滿分26分）

• 16．某數(shù)的平方與它的逆序數(shù)的平方互為逆序數(shù)，則該數(shù)被稱為奇妙平方數(shù)。
  如12²=144，21²=441，12與21互逆，144與441互逆，12就是奇妙平方數(shù)，小明編寫了一個(gè)找出200以內(nèi)的所有奇妙平方數(shù)的VB程序，運(yùn)行界面如圖所示。實(shí)現(xiàn)上述功能 的VB程序如下，但加框處代碼有誤，請改正。
  Private Sub Commandl_-Click（　?。?br />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）+“個(gè)”
  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（　?。┖瘮?shù)用于刪除字符串首尾空格
    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．小明編寫了一個(gè)圖書錄入系統(tǒng)的VB程序，功能如下：單擊“讀數(shù)據(jù)庫”按鈕Commandl,從數(shù)據(jù)庫中讀取相應(yīng)數(shù)據(jù)顯示在列表框List1中，在文本框Textl中輸入圖書類別，在文本框Text2中，程序運(yùn)行界面如圖所示。實(shí)現(xiàn)上述功能的VB如下，請回答下列問題：
  （1）分析程序，可知數(shù)據(jù)庫的文件名為

   

  。
  （2）請?jiān)趧澗€填入合適的代碼。
  Dim sType（1 to 200）As String'存放圖書類別
  Dim sNumber（1 to 200）As Integer'存放圖書數(shù)量
  Dim n As Integer
  Private Sub Commandl_-Click（　?。?br />  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“
  '本過程從靈長據(jù)庫中讀取圖書數(shù)據(jù)，存儲(chǔ)在相應(yīng)的變量中，并在Listl 中顯示
  '代碼略
     End Sub
  Private Sub Command2_-Click（　?。?br />  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（“類別    數(shù)量“）
    FOr i=1 to n
      List2．AddItem sType（i） &““&Str（sUmber（i））
    Next i
  End Sub。
  組卷：0引用：1難度：0.2

  解析