2016-2017學年浙江省稽陽聯誼學校高三（上）月考信息技術試卷

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

• 1．下列做法符合信息安全的是（　　）
  ①用智能手機隨意掃描商家發來的二維碼以便獲取優惠
  ②網上下載共享軟件后先查殺病毒再安裝使用
  ③不隨意打開陌生郵件中的exe格式的附件
  ④為方便記憶用自己的出生年月作為網上銀行登錄密碼
  ⑤定期安裝操作系統補丁并升級殺毒軟件．

  A．①②③

  B．②③④

  C．②③⑤

  D．①④⑤
  組卷：3引用：1難度：0.9

  解析

• 2．某人注冊電子郵箱，界面如圖所示，則下列說法不正確的是（　　）
  

  A．該郵箱地址為sxkqzx123@163．com,且未被注冊過

  B．為提高密碼強度，可增加密碼長度，但不能超過16個字符

  C．密碼不區分大小寫，兩次輸入的密碼必須保持一致

  D．需單擊“免費獲取驗證碼”按鈕，再將收到的短信驗證碼填入對應框內驗證
  組卷：4引用：1難度：0.9

  解析

• 3．下列應用不屬于人工智能的是（　　）

  A．在微信中掃一掃英文單詞顯示中文解釋

  B．在微信中發送一段語音給你的微信好友

  C．智能手機通過語音查詢某人的電話號碼

  D．停車場無卡收費系統拍攝識別汽車號牌
  組卷：2引用：1難度：0.9

  解析

• 4．下列關于數據庫描述不正確的是（　　）

  A．Access、FoxPro是小型數據庫管理軟件

  B．12306火車購票網站屬于數據庫應用系統

  C．一個數據庫管理系統可以管理多個數據庫，一個數據庫可以包含多張數據表

  D．一張數據表中不同記錄的字段數是相同的，不同字段的類型也一定是相同的
  組卷：7引用：1難度：0.5

  解析

• 5．某算法的部分流程圖如圖所示，執行該流程圖，下列描述正確的是（　　）

  A．s←s+x 執行了4次	B．s≤10？執行了4次
  C．s的值為15，x的值為6	D．s的值為10，x的值為5
  組卷：11引用：4難度：0.7

  解析

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

• 16．某人編寫了一個VB程序對一組隨機數進行排名．程序運行時，產生10個隨機整數，并在列表框List1中顯示，單擊按鈕Command1，在列表框List2中顯示降序排序后數據及名次，若數值相同則名次相同．實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
  Const　n=10
  Dim　d（1 To  n）As　Integer,pm（1 To n）As　Integer
  Private　Sub　From_-Load（　　）
  '代碼略，本過程功能：產生10個隨機整數，存儲在數組變量d中并在列表框'List1中顯示
  End　Sub
  Private　Sub　Command_Click （　　）
     Dim  i　As　Integer,j　As　Integer,k　As　Integer,t  As　Integer
     i=1
     Do　While  i＜=n-1
         k=i
         For　j=i+1 To n
            IfThen  k=j'（1）
            Next　j
            If  i＜＞k  Then  t=d（i）：d（i）=d（k）：d（k）=t
            i=i+1
       Loop
       pm（1）=l
       For　i=2 To n
            IfThen'（2）
                 pm（i）=i
             Else
                 pm（i）=pm（i-1）
              EndIf
        Next  i
        For　i=1  To n
             List2．AddItemStr（i）+““+Str（d（i）））+““+“第“+Str（pm（i）））+“名“
        Next i
  End　Sub
  （1）處應改為

   

  ；
  （2）處應改為

   

  ．
  組卷：1引用：1難度：0.3

  解析

• 17．居民身份證號碼由十七位數字本體碼和一位數字校驗碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼．校驗碼生成步驟如下：
  （1）把身份證前17位的每個數字和加權因子相乘并累加求和，再與11做取余運算得到序號，即序號≡∑（ai×Wi）Mod11（i≡2～18）；i表示號碼字符的位置，身份證號左邊開始第1位的位置為18，最后一位的位置為1，ai表示第i位置上的號碼字符的值；Wi表示第i位置上的加權因子，通過公式w（i）=2^（i-1）Mod11計算得到．
  （2）根據步驟（1）得到的序號提取校驗碼字符．對應關系如下，如：0對應校驗碼“1”．
  
  

  余數	0	1	2	3	4	5	6	7	8	9	10
  校驗碼	1	0	X	9	8	7	6	5	4	3	2

  若步驟（2）中提取的校驗碼和身份證最后一位相同，則校驗通過，否則校驗失敗．某人根據上述原理設計了一個身份證校驗VB程序，功能如下：程序啟動時從數據庫student.jye.ai中讀入全校學生身份證數據（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學生的信息和出錯人數，若某班無出錯學生，則不顯示．程序界面如圖所示（身份證號、姓名中的部分內容不顯示）．
  
  實現上述功能的VB程序如下，請回答下列問題：
  （1）某人身份證號的前17位為“33062119910206004”，根據步驟（1）中的公式∑（ai×Wi）Mod11計算可得序號為2，則該身份證最后一位字符應該是

   

  ．
  （2）分析程序，可知存放學生身份證信息的數據表為

   

  ．
  （3）請在畫線處填入合適的代碼．
  Const　max=10 00
  Dim n　As　Integer'存放學生人數
  Dim　sfzh（1 To  max）　As　String,
  xm（1 To max）　As　String
  '數組sfzh、xm分別存放學生身份證號、姓名
  Dim　bj（1 To max）　As   Integer,flash（1 To max）　As  Boolean
  '數組bj、flash分別存放學生班級、身份證校驗結果
  Dim　cw（1 To 15）As Integer'數組cw存放各班身份證號出錯人數
  Function  check（x  As　String ） As Boolean'本函數功能：校驗身份證號x,若
  '校驗通過返回True；否則返回False
       Dim  i　As　Integer,sum　As　Integer,xh　As　Integer,jym  As　String
       Dim a（1 To  18）As　Integer,w（1 To 18）As　Integer
       jym=“10X98765432“：sum=0
       For  i=18 To 2 Step-1
           a（i）=Val（Mid（x,19-i,1））
       Next i
       For　i=18 To 1 Step-1
           w（i）=2^（i-1）Mod11
        Next i
        For　i=2 To  18
            sum=sum+a（i）*w（i）
         Next i
         xh=sum  Mod  11
         If

   

  Then  check=True  Else  check=False
   End  Function
  Private　Sub　From_-Load（　　）
  '本過程從數據庫中讀入指定數據到數組sfzh、xm、bj,并在List1中顯示
       Dim　conn　As　New　ADODB．Connection
       Dim    rs　As　New　ADODB．Recordset
       conn.ConnectionString=“provide=microsoft.ace.jye.ai.12.0；data
  source=“+App.Path+“\student.jye.ai“
       conn.Open
       Set　rs.ActiveConnection=conn
        rs.Open“select*from stu_-info“
  '本過程其他語句略，學生人數存變量n,數組cw各元素初值置為0
  End　Sub
  Private　Sub　Command1_Click （　　）
      Dim i　As　Integer,j　As　Integer
       For i=1 To n
         If

   

  Then  flag（i）=True Else  flag（i）=False
       Next  i
       For i=1 To 15
          For j=1 To n
              If  bj（j）=i  And  flash（j）=Flash  Then
  

   

  
                   Lise2．AddItem sfzh（j）+““+xm（j）
               EndIf
          Next j
          If  cw（i）＞0  Then
               Lise2．AddItem  Str（i）+“班共有以上“+Str（cw（i））+“個身份證號錯誤“
               Lise2．AddItem““
           EndIf
       Next  i
  End  Sub
  （1）①處應填

   

  ；
  （2）②處應填

   

  ；
  （3）③處應填

   

  ．
  組卷：1引用：1難度：0.3

  解析