2019年浙江省余姚市高考信息技術二模試卷

一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求．）

• 1．下列有關信息的說法，正確的是（　?。?/h2>

  A．信息無處不在，很多時候可以被輕易感知

  B．因特網(wǎng)是目前主流的信息表達方式

  C．信息的來源多種多樣，信息的獲取方法卻大同小異

  D．信息技術是以高科技手段采集、存儲、傳輸和處理信息的過程
  組卷：31引用：2難度：0.5

  解析

• 2．下列有關電子郵件的說法，不正確的是（　　）

  A．POP3 協(xié)議可以將郵件服務器上的郵件接收到本地計算機上

  B．網(wǎng)頁版電子郵箱在瀏覽器中顯示時的內(nèi)容實質(zhì)上是 HTML 代碼

  C．可以通過“收件人”、“抄送”和“密送”添加多個收件人

  D．電子郵件一旦發(fā)送便會通過 FTP 協(xié)議傳送至對方的郵件服務器
  組卷：4引用：2難度：0.6

  解析

• 3．下列應用中，體現(xiàn)人工智能技術的有（　　）
  ①UPS（不間斷電源）在停電后會自動切換為后備電源
  ②某款產(chǎn)品能實現(xiàn)對全屋電器的聲控，解放雙手
  ③手機通過安裝某APP能實現(xiàn)對各種電器的遙控
  ④某APP根據(jù)拍攝的作業(yè)照片給出相應的解題信息
  ⑤公安部門通過“天眼”系統(tǒng)快速查找、定位到犯罪嫌疑人

  A．①②④

  B．①④⑤

  C．②④⑤

  D．③④⑤
  組卷：29引用：5難度：0.7

  解析

• 4．用Access軟件打開數(shù)據(jù)庫，部分界面如圖所示。下列說法正確的是（　　）
  

  A．“班級”字段的數(shù)據(jù)類型為數(shù)字型

  B．將“姓名”字段名稱改為“NAME”，該字段的值不會丟失

  C．刪除“信息”和“通用”兩個字段后無法恢復，并且會影響總分

  D．在“學號”字段輸入220509后提示有重復數(shù)據(jù)，說明該字段為“自動編號”型
  組卷：8引用：2難度：0.6

  解析

• 5．用 UltraEdit 軟件觀察字符內(nèi)碼，下列說法正確的是（　?。?br />

  A．圖中的 ASCII 碼字符共有 5 個

  B．空格字符“”的內(nèi)碼用十六進制表示為“AE”

  C．大寫字母“P”的內(nèi)碼用二進制表示為“01010000”

  D．將內(nèi)碼“31”改成“40”，后面的文字“1”將會變成“10”
  組卷：19引用：2難度：0.5

  解析

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

• 16．小吳為了研究排序后的各數(shù)據(jù)在排序前的位置，編寫了一個 VB 程序，功能如下：在列表框 List1中顯示排序前數(shù)據(jù)（存儲在數(shù)組a中），單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示排序后的數(shù)據(jù)及該數(shù)據(jù)在排序前的位置。程序運行界面如圖所示：
  實現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯，請改正。
  Dim d（1 To 12）As Integer'存儲排序前的數(shù)據(jù)
  Private Sub Form_Load （　?。?br />d（1）=13：d（2）=49：d（3）=26：d（4）=35：d（5）=73：d（6）=15：d（7）=22：d（8）=86
  d（9）=31：d（10）=10：d（11）=41：d（12）=44
  Dim i As Integer,j As Integer
  For i=1 To 12
  List1．AddItem d（i）
  Next i
  End Sub
  Private Sub Command1_Click （　?。?br />Dim a（1 To 12）As Integer'存儲排序后的數(shù)據(jù)
  Dim b（1 To 12）As Integer'存儲排序前各數(shù)據(jù)所在位置
  Dim c（1 To 12）As Boolean'數(shù)組 c 用來判斷排序的數(shù)據(jù)是否已篩選出
  Dim i As Integer,k As Integer,j As Integer
  For i=1 To 12
  a（i）=0
  b（i）=0
  c（i）=false
  Next i
  k=0
  For i=1 To 12
  For j=1 To 12
  If   Then‘（1）
  a（i）=d（j）
  k=j
  End If
  Next j
  ‘（2）
  c（k）=True
  Next i
  For i=1 To 12
  List2．Addltem Str（a（i））+““+Str（b（i）
  Next i
  End Sub
  組卷：5引用：1難度：0.5

  解析

• 17．小張利用 VB 給教務處老師編寫了“排監(jiān)考表”的小程序。該程序的執(zhí)行過程如下：
  ①從數(shù)據(jù)庫中讀取待排監(jiān)考的老師姓名信息存入數(shù)組 teachers,每個考試科目的學生數(shù)（新高考7選3，每個考試科目學生數(shù)不一樣）存入數(shù)組xkStudSum（其中xkStudSum（1）存放語文學科的學生數(shù)，按“語文數(shù)學英語物理化學生物政治歷史地理技術”依此類推）；
  ②根據(jù)每個試場的人數(shù)（30 人）計算出各個考試科目的試場數(shù)存入數(shù)組 xkSc（其中 xkSc（1）存放語文學科的試場數(shù)，依此類推）；
  ③將待排教師分配到每一個考場，并存入數(shù)組scTeacher（每個老師只能排1場，教師 數(shù)量100保證大于所有的試場數(shù)）；
  ④按考試科目將監(jiān)考教師姓名顯示在list1中。運行界面如圖所示：
  
  （1）實現(xiàn)上述功能的VB程序如下，請完善橫線處的代碼。
  Const XKMC=“語文數(shù)學英語物理化學生物政治歷史地理技術“
  Dim xkStudSum（1 To 10）As Integer'各個考試科目學生數(shù)
  Dim teachers（1 To 100）As String'存放待排監(jiān)考的教師姓名
  Dim scTeacher（1 To 100）As String'存放已排監(jiān)考的教師姓名
  Dim xkSc（1 To 10）As Integer'各個學科試場數(shù)
  Private Sub form_Load （　?。?br />‘本過程從數(shù)據(jù)庫中讀取各考試科目學生數(shù)并存放在數(shù)組 xkStudSum‘讀取教師姓名并存放在數(shù)組teachers
  ‘本過程代碼略
  End Sub
  Private Sub Command1_Click （　?。?br />Dim index As Integer
  Dim totalSc As Integer‘存放總試場數(shù)量
  Dim book（1 To 100）As Boolean
  Randomize
  For　i=1 To 10
  xkSc（i）=①

   

  
  totalSc=totalSc+xkSc（i）
  Next i
  For i=1 To totalSc
  t=Int（Rnd

   

  *100）+1‘隨機生成待排監(jiān)考老師的編號
  If  not book（t）  Then
  scTeacher（i）=teachers（t）
  book（t）=True
  Else
  ②

   

  
  End If
  Next i
  ‘按考試科目顯示監(jiān)考老師
  For i=1 To 10
  s=Mid（xkmc,2*i-1，2）+“：“
  For j=1 To xkSc（i）
  ③

   

  
  s=s+scTeacher（index）+“，“
  Next j
  List1．AddItem s
  Next i
  End Sub
  （2）根據(jù)問題描述和分析代碼，寫出數(shù)組scTeacher中存放“數(shù)學學科”第2個監(jiān)考教師姓名的下標的vb表達式

   

  。
  組卷：8引用：1難度：0.3

  解析