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

  解析