2018年浙江省臺州市高考信息技術模擬試卷（3月份）

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

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

  A．網絡是人們獲取信息的重要來源

  B．錯誤的信息加工，可能會導致虛假信息的產生

  C．同一種信息只能存在一種傳播載體

  D．信息表達的規范化有利于信息的交流
  組卷：1難度：0.6

  解析

• 2．小馬利用瀏覽器給同學發送電子郵件，該過程可能沒用到的協議是（　?。?/h2>

  A．HTTP

  B．TCP/IP

  C．POP3

  D．SMTP
  組卷：0引用：1難度：0.7

  解析

• 3．下列應用中，體現了人工智能技術的有（　?。?br />①微信聊天時發送語音
  ②通過人臉識別進行會場簽到
  ③電腦開機后自動播放音樂
  ④用語音方式輸入文字
  ⑤在線中英文互譯
  ⑥通過手機手寫方式輸入文字

  A．①②③⑤

  B．①②④⑥

  C．②③④⑤

  D．②④⑤⑥
  組卷：4引用：2難度：0.5

  解析

• 4．某算法的部分流程圖如圖所示：執行這部分流程后，輸出變量n的值是（　?。?/h2>

  A．4

  B．22

  C．46

  D．94
  組卷：0引用：1難度：0.6

  解析

• 5．使用Access軟件打開數據庫，部分界面如圖所示，下列說法正確的是（　　）
  

  A．可以直接在當前記錄前插入一條新記錄

  B．“編號”字段數據類型為“自動編號”

  C．當前狀態下，可直接將數據表“藏書”重命名為“班級藏書”

  D．當前數據庫的文件名為“藏書。accdb”
  組卷：0引用：1難度：0.6

  解析

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

• 16．小李基于對分查找算法編寫了一個VB程序，功能如下：在文本框Text1中顯示隨機產生n個整數（n為奇數），單擊“查找”按鈕Command1，在標簽Label1中顯示這n個整數的中位數。（注：中位數是指將這n個數排序之后，排在正中間的數。）程序運行界面如圖所示。
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
  Const n=9
  Const m=50
  Dim a（l To n） As Integer
  Private Sub Form_Load （　　）
  '隨機產生n個[l,m]之間的隨機整數，依次存儲在數組a中，并顯示在文本框Text1中。
  '代碼略。
  End Sub
  Private Sub Command1_Click （　?。?br />Dim low As Integer,high As Integer,mid1 As Integer
  Dim count As Integer,i As Integer
  low=1：high=m
  Do While low＜high
  mid1=（low+high）\2
  count=0
  For i=1 To n
  IfThen count=count+1'（1）
  Next i
  If count＞n\2 Then
  '（2）
  Else
  high=mid1
  End If
  Loop
  Label1．Caption=Str（high）
  End Sub
  組卷：0引用：1難度：0.5

  解析

• 17．某數據分組方法描述如下：
  基于冒泡排序算法對數據進行排序，剔除重復數據后，得到一組從大到小排序的不重復數據。再對被剔除數據按以上方法進行分組，直到無被剔除數據。
  例如對數據“3，5，7，7，3，5，7，3，7”進行分組：
  小馬基于以上算法編寫了一個VB程序，功能如下：從文本框Text1中輸入一組數據，單擊“數據分組”按鈕Command1．在列表框List1中顯示每次分組的數據和剩余數據。程序運行界面如圖b所示。
  實現上述功能的VB程序如下，請回答下列問題：
  （1）根據題意，若文本框Text1中輸入的內容是“7，5，3，4，2，5，3，7，5”，則第2組數據依次是

   

  。
  （2）請在橫線處填入合適的代碼。
  Dim n As Integer,k As Integer
  Dim a（1 To 100）As Integer
  '本函數將返回第k次分組信息：根據sleft和smid參數值，返回當前挑選的數據及剩余數據
  Function prints（sleft As Integer,smid As Integer） As String
  '代碼略
  End Function
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As Integer
  Dim top As Integer'當前分組數據的起始位置
  Dim bottom As Integer'當前分組數據的結束位置
  '從文本框Text1中讀取n個原始數據，依次存儲到a（1）、a（2）、……a（n）中，代碼略
  i=1：k=0
  top=1
  

   

  
  List1．Clear
  Do While top＜=bottom
  For j=bottom To i+1 Step-1
  Ifa（j-l）＜a（j）Then
  t=a（j）：a（j）=a（j-1）：a（j-1）=t
  Else If

   

   Then
  t=a（j）：a（j）=a（bottom）：a（bottom）=t
  bottom=bottom-1
  End If
  Next j
  If i＞=bottom Then
  List1．AddItem prints（top,bottom）'輸出第k組數據及剩余數據
  top=

   

  bottom=n
  End If
  i=i+1
  Loop
  End Sub
  組卷：0引用：1難度：0.5

  解析