2017年浙江省普通高校招生信息技术仿真模拟试卷（选考）（三）（4月份）

一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）

• 1．湖南卫视播出了很多真人秀节目，比如目前新上的《向往的生活》明星们一天24小时都生活在摄像头底下，在蘑菇屋里屋外有很多摄像头，还有跟拍的、无人机航拍的等等．装这么多摄像头是为了更好的（　　）

  A．采集信息

  B．传递信息

  C．存储信息

  D．加工信息
  组卷：17引用：2难度：0.9

  解析

• 2．小李正在学习网页制作，在上网浏览网页时看到一个非常中意的网页，想把它保存到本地计算机上以方便学习．则最好选择保存的文件类型是（　　）

  A．仅HTML文档	B．网页，全部
  C．文本文件	D．Web档案（．mht）
  组卷：11引用：1难度：0.9

  解析

• 3．大年三十，支付宝推出扫福集福参加抽奖活动，用户只要用手机扫一下任何一个福字，会随机得到一张福卡，集齐五种福就能参加抽奖．如果你扫的不是福字，系统不会生成福卡．这种扫一下就能判断是否为福主要使用了（　　）技术．

  A．数码成像

  B．扫描

  C．OCR

  D．全息投影
  组卷：5引用：1难度：0.9

  解析

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

  A．本数据表至少有7个字段，11条记录

  B．图书编号应该为自动编号，单价为数字型，是否优惠为是否型

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

  D．当前是第12条记录
  组卷：8引用：1难度：0.9

  解析

• 5．如果要判断输入的年份是否为润年（不能被100整除但能被4整除，或者能被400整除），下面流程图还缺少（　　）
  

  A．	B．
  C．	D．
  组卷：5引用：1难度：0.7

  解析

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

• 16．完善如下功能的Visual Basic程序：在文本框Text1中输入一个偶数，单击“求解”按钮Command1，将这个偶数拆分成二个素数之和．请完成下面两个小题．
  程序代码如下：
  Private Sub Command1_Click （　　）
  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）+“不是偶数！“
  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）结合程序代码，窗体界面中还缺少

   

  对象（名为list1的文本框|名为list1的标签框|名为list1的列表框）
  （2）上述代码有下划线的语句有错误，正确的应该是：
  ①

   

  
  ②

   

  ．
  组卷：16引用：1难度：0.1

  解析

• 17．从产品库里面的product数据表中读出产品信息（ID，类别，产品名，图片路径，格式5个字段）．已知product表中已经按ID排序，读出后的数据直接连接成字符串在List1中显示，现在希望能不改变原有列表顺序的情况下，在list2中显示按产品名排序的结果．一般的方法是按产品名建立索引（不存在重复的产品名）．基本思路如下：
  1、用一个数组product 来存放产品名．
  2、用另一个数组a 来存放产品名数据的下标（已经按产品名排序的）．按产品名排序的方法是：取第一个产品名product（0），与后面所有的产品名比较一遍，如果有比第一个产品名大的，M+1，M用来计该产品名的位次．一轮结束后在a（M）元素记下第一个产品名的下标0．然后再取product（1）与其它所有产品名比较一遍，其余同第一个产品名．依次完成每一个产品名位次的计算并记录在a 数组中．
  3、最后按a 数组指定的位置取出list1中的项添加到list2中．
  
  程序代码如下，请补充完整下面的空缺．
  Dim products（100）As String'存放产品名的数组
  Dim num As Integer'从数据库中读出的记录数
  Private Sub Command1_Click （　　）
  Dim a（100）As Integer'存放按产品名索引的产品数组下标
  Dim i As Integer,j As Integer,m As Integer'm比当前产品名大的产品名个数
  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数组的索引从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 &“\产品库．accdb“
  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）'读出当前记录的产品名保存到products数组
  s=s & rs.Fields（i-1）&“，“'将一条记录的各字段内容连接成字符串
  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

  解析