2017年浙江省杭州市萧山区高考信息技术模拟试卷（14）

一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．如图所示是一家银行的动态口令生成器，该口令一分钟变更一次．在进行手机银行转账超过5万时，不仅需要输入由手机短信获得的验证码，还需要输入该生成器生成的动态口令码．该事例体现了信息的（　　）

  A．可行性

  B．安全性

  C．传递和共享

  D．可加工处理
  组卷：4引用：2难度：0.9

  解析

• 2．用Word软件编辑某文档的部分界面如图所示
  
  对于图中所示部分的文档，下列说法正确的是（　　）

  A．图中有拼写与语法检查的操作

  B．图中有3处修订

  C．接受全部修订之后，文章第一句话为“寒假里，我迷上了动物小说，这些书里讲述了一个个人与动物之间发生的精彩故事．”

  D．该文章中批注的用户是a1
  组卷：9引用：2难度：0.9

  解析

• 3．如图所示的机器人叫小度，它是由百度开发研制，能以自然的方式与用户进行信息、服务、情感的交流．其主要采用的技术是（　　）

  A．人工智能

  B．虚拟现实

  C．3D显示技术

  D．机器翻译
  组卷：6引用：2难度：0.9

  解析

• 4．下列属于正确的VB表达式是（　　）

  A．mv^2/2	B．0＜=y＜=255
  C．a*[（b-c）/a+b]	D．3x+1
  组卷：11引用：2难度：0.9

  解析

• 5．王明在使用淘宝网购手机时，先找到手机这一类，再点击“小米”，再进去小米品牌中心逐级查找需要的手机．这种信息检索的方法属于（　　）
  

  A．关键词检索	B．全文检索
  C．搜索引擎检索	D．主题目录检索
  组卷：7引用：2难度：0.5

  解析

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）编辑：浙江省桐乡第一中学杜宗飞

• 16．某高中韵律操比赛，20支比赛队队伍的名称和比赛得分分别保存在数组a和数组b中，第i支队伍的名称保存在a（i）中，对应的得分保存在b（i）中．下面的程序段实现按积分降序排序，阅读程序段，并完成后面的几个问题：
  Private Sub Command1_Click （　　）
  Dim a（1To 20）As Integer                      ①
  Dim b（1To 20）As Integer
  Dim i As Integer,j As Integer,ta As Integer,tb As Integer,m As Integer
  For i=1To 19
  m=i
  For j=i+1To 20
  If  b（j）＜b（m）  Then m=j             ②
  Next j
  If m＜＞i Then
  ta=a（m）：a（i）=a（m）：a（i）=ta             ③
  tb=b（m）：b（m）=b（i）：b（i）=tb
  End If
  Next i
  End Sub
  （1）该程序段算法采用的是

   

  （填“冒泡排序”或“选择排序”）
  （2）程序中横线处的语句或表达式应更正为
  ①

   

  
  ②

   

  
  ③

   

  ．
  组卷：6引用：2难度：0.1

  解析

• 17．素数又称质数，指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数．超级素数的定义：当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数，则此数为超级素数．例如：7331、733、73、7均为素数，所以7331为超级素数．小明设计了一个程序查找四位正整数中的超级素数．程序运行时，单击Command1，则在列表框List1中显示所有四位数的超级素数，并在标签Label1中显示超级素数的数量．程序运行效果如第17题图所示．实现上述功能的VB程序如下：
  Private Sub Command1_Click （　　）
  Dim i As Integer,tmp As Integer,c As Integer
  Dim flag As Boolean
  c=0
  For i=1001To 9999Step 2
  ①
  flag=True
  Do While tmp＜＞0
  If Not prime（tem） Then
  flag=False
  Exit Do
  End If
  tmp=tmp\10
  Loop
  If flag Then
  List1．AddItem Str（i）
  ②
  End If
  Next i
  Label1．Caption=“四位超级素数共有“+Str（c）+“个“
  End Sub
  Function prime（x As Integer） As Boolean'判断是否是素数
  Dim i As Integer
  prime=True
  For i=2To x-1
  If     ③Then
  prime=False
  Exit Function
  End If
  Next i
  End Function
  请在横线处填入对应①②③处的合适代码．
  ①

   

  
  ②

   

  
  ③

   

  ．
  组卷：7引用：2难度：0.1

  解析