2016-2017學(xué)年浙江省衢州市高三（上）質(zhì)檢信息技術(shù)試卷

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

• 1．在微信朋友圈給好友發(fā)布的信息點贊，屬于信息評價中的（　?。?/h2>

  A．統(tǒng)計評價	B．專家評價
  C．個人推薦	D．核心刊物評價
  組卷：5引用：2難度：0.9

  解析

• 2．2016年9月，搜狗CEO王小川在世界第三屆互聯(lián)網(wǎng)大會上發(fā)布了機器同傳新產(chǎn)品，該產(chǎn)品能將演講嘉賓的中文實時同步翻譯為英文，并顯示在屏幕上．這一產(chǎn)品主要應(yīng)用的技術(shù)是（　　）

  A．字符識別

  B．?dāng)?shù)據(jù)庫技術(shù)

  C．圖象處理

  D．機器翻譯
  組卷：3引用：1難度：0.9

  解析

• 3．在某網(wǎng)站上注冊會員時，手機收到一個驗證碼短信，內(nèi)容為：“尊敬的顧客，您在××網(wǎng)站注冊，驗證碼為：******”．注冊人填寫該驗證碼，表明手機為注冊人所有，才能通過注冊，這一過程是確保信息的（　　）

  A．共享性

  B．安全性

  C．可加工處理

  D．時效性
  組卷：3引用：1難度：0.9

  解析

• 4．小王想買一臺筆記本電腦，在某網(wǎng)站瀏覽時的部分頁面如圖所示．由圖可知，小王對筆記本電腦的篩選條件是
  （　?。?/h2>

  A．品牌為聯(lián)想和蘋果，其他不限

  B．價格區(qū)間在4000～4999元，屏幕尺寸為14英寸，其他不限

  C．品牌為惠普，價格區(qū)間在4000～4999元，其他不限

  D．品牌為華碩，價格區(qū)間在4000～4999元，屏幕尺寸為14英寸，其他不限
  組卷：4引用：1難度：0.5

  解析

• 5．小明使用Access創(chuàng)建“檔案”數(shù)據(jù)表，其設(shè)計視圖的部分界面如圖所示．下列說法正確的是（　　）
  

  A．將字段名“名字”修改為“姓名”，該列中的數(shù)據(jù)會丟失

  B．刪除字段“學(xué)號”，該數(shù)據(jù)表中“學(xué)號”列數(shù)據(jù)將全部被刪除

  C．?dāng)?shù)據(jù)表添加記錄后，不可以再增加字段

  D．錄入數(shù)據(jù)時，不能有兩條記錄的“學(xué)號”字段值相同
  組卷：2引用：1難度：0.7

  解析

二、解答題（共5小題，滿分26分）

• 16．一個整數(shù)n（n≥11）從左向右和從右向左讀其結(jié)果相同，且是素數(shù)，則稱n為回文素數(shù)，例如133 020 331是回文素數(shù)．小張設(shè)計一個VB程序用于找出1000以內(nèi)的所有回文素數(shù)，程序運行界面如圖所示．實現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請改正．
  
  Private Sub Command1_Click（　?。?br />    Dim n As Interger,j As Integer,m As Integer
       '（1）
        Do While n＜1000'判斷是否為素數(shù)
            m=Int（Sqr（n））
             For j=2  To m
                 If  n  Mod j=0 Then Exit For
              Next  j
               If  j＞m  Then
                    If  hws（n）=Ture Then
                         List 1．AddItemStr（n）
                     EndIf
                 EndIf
                  n=n+2
        Loop
  End   Sub
  Function  hws（n  As  Integer）As　Boolean'判斷所給n是不是回文數(shù)
       Dim　j,k　As　Integer 
       Dim　m　As  String
       Dim　a　As　Integer,b　As　Integer  
        hws=True
        m=Str（n）
        k=Len（m）
        For j=1 To  k\2
             a=Val（Mid（m,j,l）
             b='（2）
              If  a＜＞b  Then
                   hws=False
                    Exit  For 
              EndIf
         Next j
  End  Function.
  組卷：2引用：1難度：0.3

  解析

• 17．小李設(shè)計了一個插入排序的VB程序，功能如下：在列表框List1中按成績從低到高顯示每個學(xué)生的姓名和成績，在文本框Text1中輸入一個學(xué)生的姓名，在文本框Text2中輸入這位學(xué)生的成績，單擊“插入排序”按鈕Command1，檢查數(shù)組列表中的學(xué)生成績，將其插入到適當(dāng)位置，保持成績有序，并在列表框List2中顯示插入后的學(xué)生姓名和成績序列．程序運行界面如圖所示．
  
  實現(xiàn)以上功能的VB程序如下，請回答下列問題：
  （1）小李使用的查找算法是

   

  （填：順序查找/對分查找）．
  （2）分析程序，可知關(guān)閉記錄集對象的語句為

   

  ．
  （3）請在畫線處填入合適的代碼．
       Dim  m（1 To  20）As　String
       Dim   s（1 To  20）As　Integer
       Dim　n　As　Integer
   Private　Sub　Form_Load（　?。?br />     Dim　conn　As　New　ADODB．Connection'定義新的數(shù)據(jù)庫連接
       Dim　rs　As　New　ADODB．Recordset'定義數(shù)據(jù)庫的一個對象
       conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data   source=“&   App.Path　&“\fwdh.jye.ai“'設(shè)置conn的數(shù)據(jù)庫鏈接字符串
        conn.Open'找開數(shù)據(jù)庫鏈接
        Set  rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
        rs.Open“select ^_* from  fwdh“'打開數(shù)據(jù)庫中的表 fwdh
        n=0
        Do　While　Not　rs.EOF
           n=n+1
           m（n）=rs.Fields（0）
           s（n）=rs.Fields（1）
           List1．AddItem  rs.Fields（“姓名“）&““&  rs.Fields（“成績“）
           rs.MoveNext
         Loop
         rs.Close
         conn.Close
  End　Sub
  Private　Sub　command1_click （　?。?br />     Dim x  As　String,y  As　Integer
        x=Text1．Text
        y=Val（Text2．Text）
        i=n
        Do　While

   

  '①
            s（i+1）=s（i）
            m（i+1）=m（i）
             i=i-1
         Loop
  

   

  '②
  

   

  '③
          For  i=1  To  n+1
              List2．AddItem  m（i）&““&Str（s（i））
          Next  i
  End　Sub.
  組卷：3引用：1難度：0.1

  解析