2017年浙江省普通高校招生信息技術(shù)仿真模擬試卷（選考）（三）（4月份）

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

• 1．湖南衛(wèi)視播出了很多真人秀節(jié)目，比如目前新上的《向往的生活》明星們一天24小時都生活在攝像頭底下，在蘑菇屋里屋外有很多攝像頭，還有跟拍的、無人機航拍的等等．裝這么多攝像頭是為了更好的（　?。?/h2>

  A．采集信息

  B．傳遞信息

  C．存儲信息

  D．加工信息
  組卷：17引用：2難度：0.9

  解析

• 2．小李正在學(xué)習(xí)網(wǎng)頁制作，在上網(wǎng)瀏覽網(wǎng)頁時看到一個非常中意的網(wǎng)頁，想把它保存到本地計算機上以方便學(xué)習(xí)．則最好選擇保存的文件類型是（　?。?/h2>

  A．僅HTML文檔	B．網(wǎng)頁，全部
  C．文本文件	D．Web檔案（．mht）
  組卷：11引用：1難度：0.9

  解析

• 3．大年三十，支付寶推出掃福集福參加抽獎活動，用戶只要用手機掃一下任何一個福字，會隨機得到一張?？ǎR五種福就能參加抽獎．如果你掃的不是福字，系統(tǒng)不會生成?？ǎ@種掃一下就能判斷是否為福主要使用了（　?。┘夹g(shù)．

  A．?dāng)?shù)碼成像

  B．掃描

  C．OCR

  D．全息投影
  組卷：5引用：1難度：0.9

  解析

• 4．觀察圖，下列描述符合圖意的是（　　）
  

  A．本數(shù)據(jù)表至少有7個字段，11條記錄

  B．圖書編號應(yīng)該為自動編號，單價為數(shù)字型，是否優(yōu)惠為是否型

  C．作者字段名后有個表示按作者姓名降序排列

  D．當(dāng)前是第12條記錄
  組卷：8引用：1難度：0.9

  解析

• 5．如果要判斷輸入的年份是否為潤年（不能被100整除但能被4整除，或者能被400整除），下面流程圖還缺少（　?。?br />

  A．	B．
  C．	D．
  組卷：5引用：1難度：0.7

  解析

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

• 16．完善如下功能的Visual Basic程序：在文本框Text1中輸入一個偶數(shù)，單擊“求解”按鈕Command1，將這個偶數(shù)拆分成二個素數(shù)之和．請完成下面兩個小題．
  程序代碼如下：
  Private Sub Command1_Click （　?。?br />Dim n As Integer,i As Integer
  List1．Clear
  n=Val（Text1．Text）
  If n Mod 2=0Then
  For i=2To Int（n/2）
  If isodd（i）=（isodd（n-i）） Then
  List1．AddItem Str（n）+“=“+Str（i）+“+“+Str（n-i）
  End If
  Next i
  Else
  Text1．Text=Str（n）+“不是偶數(shù)！“
  End If
  End Sub
  Private Function isodd（n As Integer） as boolean
  Dim f As integer
  f=0
  For i=2To Sqr（n）
  If n Mod i=0Then f=1：Exit For
  Next i
  isodd=f
  End Function
  （1）結(jié)合程序代碼，窗體界面中還缺少

   

  對象（名為list1的文本框|名為list1的標(biāo)簽框|名為list1的列表框）
  （2）上述代碼有下劃線的語句有錯誤，正確的應(yīng)該是：
  ①

   

  
  ②

   

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

  解析

• 17．從產(chǎn)品庫里面的product數(shù)據(jù)表中讀出產(chǎn)品信息（ID，類別，產(chǎn)品名，圖片路徑，格式5個字段）．已知product表中已經(jīng)按ID排序，讀出后的數(shù)據(jù)直接連接成字符串在List1中顯示，現(xiàn)在希望能不改變原有列表順序的情況下，在list2中顯示按產(chǎn)品名排序的結(jié)果．一般的方法是按產(chǎn)品名建立索引（不存在重復(fù)的產(chǎn)品名）．基本思路如下：
  1、用一個數(shù)組product 來存放產(chǎn)品名．
  2、用另一個數(shù)組a 來存放產(chǎn)品名數(shù)據(jù)的下標(biāo)（已經(jīng)按產(chǎn)品名排序的）．按產(chǎn)品名排序的方法是：取第一個產(chǎn)品名product（0），與后面所有的產(chǎn)品名比較一遍，如果有比第一個產(chǎn)品名大的，M+1，M用來計該產(chǎn)品名的位次．一輪結(jié)束后在a（M）元素記下第一個產(chǎn)品名的下標(biāo)0．然后再取product（1）與其它所有產(chǎn)品名比較一遍，其余同第一個產(chǎn)品名．依次完成每一個產(chǎn)品名位次的計算并記錄在a 數(shù)組中．
  3、最后按a 數(shù)組指定的位置取出list1中的項添加到list2中．
  
  程序代碼如下，請補充完整下面的空缺．
  Dim products（100）As String'存放產(chǎn)品名的數(shù)組
  Dim num As Integer'從數(shù)據(jù)庫中讀出的記錄數(shù)
  Private Sub Command1_Click （　?。?br />Dim a（100）As Integer'存放按產(chǎn)品名索引的產(chǎn)品數(shù)組下標(biāo)
  Dim i As Integer,j As Integer,m As Integer'm比當(dāng)前產(chǎn)品名大的產(chǎn)品名個數(shù)
  For i=0To 100
  a（i）=0
  Next i
  For i=0To num
  m=0
  For j=（1）

   

  
  If i＜＞j And products（i）＞products（j） Then m=m+1
  Next j
   （2）

   

  
  Next i
  For i=1To num
  List2．AddItem   （3）

   

  '按a數(shù)組的索引從list1中取出項添加到list2
  Next i
  End Sub
  Private Sub Form_Load （　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim s As String,i As Integer
  conn.ConnectionString=“provider=microsoft.ace.oledB．12.0；data source=“& App.Path &“\產(chǎn)品庫．a(chǎn)ccdb“
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open“select*from product“
  num=0
  Do While Not rs.EOF And num＜=100
  s=““
  For i=1To 5
  products（num）=rs.Fields（2）'讀出當(dāng)前記錄的產(chǎn)品名保存到products數(shù)組
  s=s & rs.Fields（i-1）&“，“'將一條記錄的各字段內(nèi)容連接成字符串
  Next i
  List1．AddItem s
  （4）

   

  
  num=num+1
  Loop
  num=num-1
  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  End Sub.
  組卷：7引用：1難度：0.1

  解析