2017年浙江省普通高校高考信息技术模拟试卷（15）

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

• 1．下列有关信息安全的说法，正确的是（　　）

  A．任何一款杀毒软件都不能查杀所有的计算机病毒，因此不必安装杀毒软件

  B．有的计算机病毒能帮助查杀其他的病毒，因此计算机病毒的危害不大

  C．计算机黑客能轻松破解密码，因此经常更换计算机系统的密码没有必要

  D．计算机病毒和黑客都能给用户带来损失，因此我们必须高度关注计算机安全
  组卷：7引用：1难度：0.9

  解析

• 2．某小游戏界面如图所示，游戏随机生成由7行7列共49个小动物头像组成的状态，头像共分6个不同种类．对当前状态进行二进制编码，需要多少位二进制（　　）
  

  A．49

  B．147

  C．196

  D．294
  组卷：30引用：1难度：0.9

  解析

• 3．在研究性学习活动中，小强同学代表其小组书写了结题报告，文档名为“baogao.jye.ai”，发给小组成员要求进行修改，作为小组成员之一的你在修改文档时，应先启用的Word功能是（　　）

  A．修订

  B．批注

  C．查找和替换

  D．自动更正
  组卷：8引用：2难度：0.9

  解析

• 4．以下关于数据库的说法中，不正确的是（　　）

  A．一个数据库可以由若干张数据表组成，一张数据表用来存储同一类型的相关数据

  B．在数据表中，删除记录是不可恢复的

  C．数据库中保存的数据与应用程序是紧密关联的

  D．用户可以用数据库查询语言对数据库或数据表中的数据进行各种操作
  组卷：5引用：1难度：0.7

  解析

• 5．产生[a,b]（a,b都是整数且a＜b）范围内某一随机整数的VB表达式是（　　）

  A．Int（Rnd*a）+b	B．Int（Rnd*b）+a
  C．Int（Rnd*（b-a+1））+a	D．Int（Rnd*（b-a））+a
  组卷：12引用：5难度：0.7

  解析

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

• 16．【加试题】一个四位数，如果它各位上数字的4次方之和等于这个四位数本身，则称这个四位数为四叶玫瑰数．编写VB程序，实现功能如下：单击“四叶玫瑰数”按钮Command1，在标签Label1中显示四叶玫瑰数的个数，在列表框List1中显示所有四叶玫瑰数，运行界面如图1所示．
  
  （1）在设计应用程序界面时，可通过图2所示“控件工具箱”中的

   

  （填写相应编号）添加列表框List1对象．
  （2）为实现程序功能，请在①、②、③处填入合适代码．
  Private Sub Command1_Click（　　）
  Dim k As Integer'统计四叶玫瑰数个数
  Dim a,b,c,d As Integer
  Dim i As Integer
  k=0
  

   

  '查找范围是4位数
  a=i\1000'千位上的数字
  b=（i Mod 1000）\100'百位上的数字
  c=（i Mod 100）\10'十位上的数字
  d=

   

  '个位上的数字
  If a^4+b^4+c^4+d^4=i Then
  List1．AddItem str（i）'将找到的四叶玫瑰数添加到列表框
  k=k+1
  End If
  Next i
  

   

  =“一共找到”+Str（k）+“个四叶玫瑰数：”
  '显示四叶玫瑰数的个数
  End Sub
  （3）本程序通过循环语句逐一判断来查找出所有四叶玫瑰数，这种算法属于

   

  算法．（选项：解析/枚举）
  组卷：16引用：2难度：0.1

  解析

• 17．【加试题】课堂随机提问产生器．小叶同学发现老师在上课提问时喜欢叫座位靠前的同学回答问题，有时一节课会重复叫到某一位同学多次，为了实现每个同学被叫到回答问题的几率均等，且在一节课老师提问次数少于班级总人数时，被叫到过回答问题的同学本节课不再被叫到，小叶同学用VB设计了一个课堂随机提问产生器，功能如下：运行程序时，在列表框List1中显示班级学生数据，单击“随机叫号”按钮Command1，在文本框Text1、Text2中分别显示学生学号和姓名，其应用程序界面如图所示．
  
  班级学生的具体数据信息存放在数据库文件“student.jye.ai”的“stu”表中，班级学生数不超过60人．
  实现上述功能的VB程序代码如下：
  Dim xh（1To 60）As Integer'定义存储学生学号的数组xh
  Dim Xm（1To 60）As String'定义存储学生学号姓名的数组xm
  Dim flag（1To 60）As Boolean'定义存储学生是否被提问过
  flag
  Dim n As Integer'定义存储班级学生总数的变量n
  Dim num As Integer'定义存储产生的随机序号num
  Dim total As Integer
  Private Sub Command1_Click（　　）
  Randomize
  num=Int（Rnd*n）+1
  Do While

   

  
  num=Int（Rnd*n）+1
  Loop
  flag（num）=True
  total=total+1
  Text1．Text=xh（num）
  Text2．Text=xm（num）
  If total＞=n Then
  For i=1To n
  flag（i）=False
  n=0
  Next i
  End If
  End Sub
  Private Sub Form_Load（　　）
  Dim con As New ADODB．Connection'定义Connection对象实例conn
  Dim rs As New ADODB．Recordset'定义Recordset对象实例rs
  conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=”& App.Path &“\student.jye.ai”'设置conn的数据库链接字符串
  conn.Open'找开数据链接
  rs.ActiveConnection=conn'设置rs的ActiveConnection属性，关联conn
  rs.Open“SELECT*FROM stu”'打开记录集，获取数据
  n=0
  Do While Not rs.EOF
  n=n+1
  xh（n）=rs.Fields（0）'学生学号字段的序号为0
  xm（n）=rs.Fields（1）'学生姓名字段的序号为1
  List1．AddItem xh（n）&“--”& xm（n）
  rs.MoveNext
  Loop rs.Close
  

   

  
  For i=1To n'初始化flag数组的值
  flag（i）=Flase
  Next i
  total=0
  End Sub
  （1）请在横线处填上合适的代码．
  程序中①横线处应填入

   

  ．
  程序中②横线处应填入

   

  ．
  （2）如将产生随机数的程序代码“Int（Rnd*n）+1”中的变量n直接用xh数组下标60来替换，会出现没有学生回答问题的现象，请简要说明原因：

   

  
  

   

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

  解析