2019-2020學年浙江省紹興市諸暨市高二（下）期末信息技術試卷

一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）

• 1．小陳去某景點旅游，景點門票兩日內有效，首次入園需驗票（即掃描門票上的二維碼），然后采集人臉信息，若兩日內再次入園只需人臉識別即可，下列說法正確的是（　　）

  A．門票上的二維碼是信息

  B．景點門票兩日內有效，主要體現信息的時效性

  C．采集人臉信息的過程屬于信息的編碼過程

  D．使用人臉識別技術的主要目的是提高信息的共享性
  組卷：6引用：1難度：0.7

  解析

• 2．小周到某科技館游玩，經歷了下列事件，對于以上事件，下列選項中都體現人工智能技術應用的是（　　）
  ①使用紙質地圖查找該科技館的位置
  ②安裝科技館APP下載中文導游圖
  ③向“人機對話”導游機器人詢問景點位置
   ④和機器人進行象棋對弈
  ⑤在自動售貨機上使用刷臉支付
  ⑥把游玩感受發(fā)到“朋友圈”

  A．①③④

  B．②③⑤

  C．③④⑤

  D．②③④⑤
  組卷：1難度：0.6

  解析

• 3．用Access軟件設計某校圖書借閱信息管理系統(tǒng)的數據庫，其中“圖書表”中需要存儲如表所示的數據。
  

  序號	書名	類別 代碼	出版社	作者	價格	登記日期
  1	活著	001	北京十月文藝出版社	余華	￥23.30	2008年9月1日
  2	文化苦旅	001	長江文藝出版社	余秋雨	￥39.80	2015年3月1日
  3	百年孤獨	002	南海出版公司	加西亞?馬爾克斯	￥31.60	2012年8月2日
  …	…	…	…	…	…	…

  下列關于“圖書表”的描述，正確的是（　　）

  A．必須將“序號”字段設計為“自動編號”類型

  B．若數據表中已有記錄，則無法繼續(xù)修改字段類型

  C．不能將“類別代碼”字段設置為主鍵

  D．該數據表中各條記錄的字段數可以相同，也可以不同
  組卷：0引用：1難度：0.6

  解析

• 4．使用GoldWave軟件編輯某音頻文件，選中其中一段音頻后，部分界面如圖所示。
  
  下列說法正確的是（　?。?/h2>

  A．執(zhí)行“靜音”命令后直接保存，音頻文件的容量將變小

  B．執(zhí)行“刪除”操作后，該音頻文件變?yōu)閱温暤?/label>

  C．執(zhí)行“淡入”操作后，右聲道的聲音音量變?yōu)橛傻偷礁?/label>

  D．將該文件另存為mp3格式時容量約為313KB，則壓縮比約為11：1
  組卷：0引用：1難度：0.6

  解析

• 5．下列關于數制的說法，正確的是（　?。?/h2>

  A．8 位二進制數能表示的最大十進制數為 127

  B．若二進制數末尾是“0”則該數轉換的十進制數是偶數

  C．若十六進制數末尾是“0”，則該數轉換的十進制數末尾一定也是“0”

  D．某 3 位的十六進制數，轉換為二進制數后，有效位數有可能超過12位
  組卷：3引用：1難度：0.5

  解析

二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）

• 15．小李設計的一VB程序功能如下：在文本框Text1中輸入隨機數的個數n（個數不超過100），單擊“生成”按鈕Command1，生成n個隨機整數，奇數位置產生奇數，偶數位置產生偶數，并將它們依次存儲在數組a中。單擊“排序”按鈕Command2，對數組各元素中的奇數實現升序排序，偶數實現降序排序。部分運行界面如圖所示。
  
  （1）下列對象不具有 Caption 屬性的是

   

  （單選，填字母：A．Form1/B．Text1/C．Label1）
  （2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼。
  （3）程序代碼中的加框處代碼有誤，請改正。
  Dim n As Integer
  Dim a（1 To 100）As Integer
  Private Sub create_Click （　?。?br />Dim i As Integer
  Randomize
  n=Val（Text1．Text）
  For i=1 To n
  a（i）=Int（Rnd （　?。?45）*2+11
  If ①

   

   Then a（i）=a（i）-1
  List1．AddItem Str（a（i））
  Next i
  End Sub
  Private Sub sort_Click （　?。?br />For i=1 To n\2
  For j=1 To n-2*i Step 2
  If ②

   

   Then
  t=a（j）：a（j）=a（j+2）：a（j+2）=t
  End If
  Next j
  
  k=c
  For j=k+2 To n Step 2
  If a（j）＞a（k）Then  ③

   

  
  Next j
  If k＜＞c Then
  t=a（k）：a（k）=a（c）：a（c）=t
  End If
  Next i
  For i=1 To n
  List2．AddItem Str（a（i））
  Next i
  End Sub
  組卷：0引用：1難度：0.5

  解析

• 16．小李上網時發(fā)現詞云圖很有意思，出現頻率越高的文字越會突出顯示。他以此獲得靈感，編寫了一個“詞云榜”的VB程序，功能如下：單擊“讀取”按鈕command1，從數據庫中讀取英文名言的相關數據，將各條名言存儲在數組st中，并將各元素顯示在列表框List1；在文本框Text1中輸入需要輸出的行數，單擊“統(tǒng)計”按鈕command2，先在數組st各元素中提取單詞（單詞間隔符號只可能是空格、逗號和句號）存儲到數組word中，再將word數組各元素值進行整理和歸類，把不同的單詞分別存儲到數組term中，同時統(tǒng)計各單詞的出現次數，接著按照各單詞出現次數從高到低排序，最后在列表框List1中的第一行顯示出現次數最多的一個單詞，第二行顯示出現次數第二、第三多的兩個單詞，第三行顯示出現次數第四、第五、第六多的三個單詞……以此類推。程序運行界面如圖所示。
  
  （1）分析程序，可知數據庫的文件名為

   

  。
  （2）請在橫線處填入合適的代碼。
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim st（1 To 100）As String
  Dim n As Integer
  Private Sub Command1_Click

   

  
  conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\名言．accdb“
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open“Select*From sayings“
  n=0
  Do While Not rs.EOF
  n=n+1
  st（n）=rs.Fields（“sentence“）
  rs.MoveNext
  Loop
  rs.Close
  conn.Close
  Set conn=Nothing
  For i=1 To n
  List1．AddItem st（i）
  Next i
  End Sub
  Private Sub Command2_Click

   

  
  Dim word（1 To 1000）As String
  Dim term（1 To 1000）As String
  Dim num（1 To 1000）As Integer
  k=1
  For i=1 To n
  For j=1 To Len（st（i））
  

   

  
  If c＞=“A“And c＜=“Z“Then c=Chr（Asc（c）+32）
  If c＜＞““And c＜＞“，“And c＜＞“．“Then
  temp=temp+c
  Else
  word（k）=temp
  k=k+1
  temp=““
  End If
  Next j
  Next i
  t=1
  term（1）=word（1）：num（1）=1
  For i=2 To k-1
  For j=1 To t
  If 

   

   Then Exit For
  Next j
  If j＞t Then
  t=t+1
  term（t）=word（i）
  num（t）=1
  Else
  num（j）=num（j）+1
  End If
  Next i
  ’數組term按照單詞出現次數從高到低進行排序，代碼略
  List2．AddItem““+term（1）
  x=2：w=1：v=1：txt=““
  Do While x＜=Val（Text1．Text）
  w=w+1
  For y=1 To w
  

   

  
  txt=txt+““+term（z）
  Next y
  List2．AddItem txt
  txt=““
  x=x+1
  v=z
  Loop
  End Sub
  組卷：0難度：0.3

  解析