2017年浙江省普通高校招生信息技術仿真試卷（選考）（2）（11月份）

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

• 1．三國赤壁之戰時黃蓋獻上詐降書，騙得曹操信任后防火燒船，這實例主要體現了信息的什么特征（　　）

  A．時效性

  B．真偽性

  C．載體依附性

  D．共享性
  組卷：14引用：3難度：0.9

  解析

• 2．亞馬遜最近推出了“Amazon Go”免排隊超市．在該超市中顧客拿了商品就可以走，無需排隊，付錢系統會自動結算．則下列哪個應用不是人工智能技術（　　）

  A．通過掃描顧客手機上事先用Amazon Go應用程序產生的二維碼，識別顧客身份信息

  B．通過攝像頭識別哪一個顧客拿了哪一樣商品，并累加到該顧客訂單中

  C．通過手機拍攝的商品包裝實物圖，在其他零售平臺上搜索同款商品并對比價格

  D．用語音方式將商品需求提交給Amazon Go系統，系統自動為你訂貨
  組卷：9引用：5難度：0.9

  解析

• 3．在Word的編輯窗口出現如下圖所示的樣式，則說明Word開啟了（　　）
  

  A．自動更正

  B．修訂

  C．批注

  D．拼寫和語法
  組卷：6引用：2難度：0.9

  解析

• 4．某算法的部分流程圖如圖所示，執行這部分流程后，變量a和b的值分別為（　　）
  

  A．5和6

  B．11和5

  C．6和5

  D．-3和-4
  組卷：7引用：4難度：0.7

  解析

• 5．有一Access數據表，其設計視圖如圖a所示，數據表如圖b所示，下列說法正確的是（　　）
   

  A．當前數據表的表名為“外幣儲備．accdb”

  B．該表一共有37條記錄，當前記錄為第33條

  C．刪除“2014年”字段后，“總計”字段中的各字段值不發生變化

  D．“排名”字段的字段類型可以更改為“自動編號”類型，且字段值不會改變
  組卷：8引用：1難度：0.7

  解析

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

• 16．數據插入．用VB設計程序，主要功能如下：隨機產生15個200以內的正整數數列，按升序排序后顯示在List1列表框中，在文本框Text1中輸入1個200以內的正整數，單擊“插入”按鈕Command1后將其插入到數列中，并保持數列仍然有序，顯示在列表List2中，同時在標簽Label4中顯示插入的位置，程序界面如圖所示．
  
  實現上述功能的VB程序代碼如下，請在橫線處填上合適的代碼．
  Dim a（ 1To 20）As Integer
  Private Sub Command1_Click （　　）
  Dim key As Integer
  key=①
  i=1
  Do While key＞a （ i ） And （ i＜=1 5 ）
  i=i+1
  Loop
  Label4．Caption=“該數插入的位置是：”+Str （ i ）
  If  i=16  Then
  a （ i ）=key
  Else
  For j=16  To  i+1Step-1
  ②
  Next j
  a （ i ）=key
  End  If
  List2．Clear
  For i=1To 16
  List2．AddItem a（ i）
  Next i
  End Sub
  Private Sub Form_Load （　　）
  '隨機生成15個200以內的正整數
  Randomize
  For i=1To 15
  a （ i ）=Int（Rnd*200）+1
  Next i
  '將15個數從小到大排序
  For i=1To 14
  k=i
  For j=i+1To 15
  If a （ k ）＞a （ j ） Then k=j
  Next j
  If  i＜＞k  Then
  t=a（i）；a（ i）=a （ k ）：a （ k ）
  End  If
  Next i
  '將排好序的數輸出在列表框Listl中
  Listl.Clear
  For i=1To 15
  Listl.AddItem str （ a （ i ） ）
  Next i
  End Sub
  程序中①橫線處應填入

   

  ，程序中②橫線處應填入

   

  ．
  組卷：5引用：1難度：0.1

  解析

• 17．如果一個自然數恰好等于它的各因數之和，則稱該數為完全數．這里的因素都是除去本身的正因數．例如：第一個完全數是6，它有因數1、2、3、6，除去它本身6外，其余3個數相加，1+2+3=6．尋找完全數并不是容易的事．經過不少數學家研究，到2013年2月6日為止，一共找到了48個完全數．
  小明設計了一個VB程序，用于求解10000以內的所有完全數．點擊按鈕Command1，標簽Label1顯示完全數的個數，并在列表框中顯示10000以內所有的完全數．
  程序運行效果如圖所示
  
  實現上述功能的VB程序如下，請在橫線處填入合適代碼．
  Private Sub Command1_Click （　　）
  Dim i As Integer,j  As Integer,c  As  Integer,s As Integer
  c=0‘用于存儲完全數的個數
  For i=1To 10000
  s=0‘用于存儲各因數之和
  For j=1To i-1
  If fac（i,j）  Then

   

  
  Next j
  If  i=s Then
  

   

  
  Listl.AddIltem Str（ i）
  End  If
  Next i
  Label.Caption=“10000 以內共有”+Str（c）+“個完全數!”
  End Sub
  
  Function fac（x As Integer,y As Integer） As Boolean
  '如果y是x的因數返回True,否則返回False
  If

   

  Then
  fac=True
  Else
  fac=False
  End  If
  End  Function.
  組卷：5引用：1難度：0.1

  解析