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

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

• 1．“口说无凭”指的是说过的话无据可查，在进行重大交易时，往往需要签订书面协议，这主要体现了信息的（　　）

  A．真伪性

  B．共享性

  C．价值性

  D．载体依附性
  组卷：25引用：6难度：0.9

  解析

• 2．为了保护上网账号密码，以下做法最安全的是（　　）

  A．使用自己的用户名作为密码

  B．使用无特殊规律的数字、英文及特殊符号作为密码

  C．使用常用英文单词作为密码

  D．使用自己或亲朋好友的生日作为密码
  组卷：3引用：1难度：0.9

  解析

• 3．处于编辑状态下的Microsoft Word文档如图所示，则下列说法错误的是（　　）
  

  A．文档中有1处批注，批注一般只能加在段落最后的句号上

  B．第一行的单词“come”下面有绿色波浪线，说明此处可能有语法错误

  C．第二行的单词“hometWon”下面有红色波浪线，说明此处可能有拼写错误

  D．由第三行的修订标记可知，此处原文单词是“come”
  组卷：6引用：1难度：0.9

  解析

• 4．下列VB表达式的值等于2016的是（　　）

  A．2016 Mod 2^20\10	B．Len（“2015”）+1
  C．Str（2008）+“8”	D．Mid（“20160501”，1，4）
  组卷：13引用：1难度：0.7

  解析

• 5．小明通过ATM机进行存款等操作，下列说法正确的是（　　）

  A．ATM机的操作界面属于数据库管理系统

  B．登录银行卡账户的过程是对数据库进行“查询记录”操作

  C．向账户进行存款的过程是对数据库进行“修改记录”操作

  D．修改短信通知的手机号码，是对手机号码相应的字段类型进行修改
  组卷：11引用：6难度：0.9

  解析

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

• 16．【加试题】小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0．程序运行界面如图所示：
  
  实现上述功能的VB程序如下：
  Private Sub Command1_Click （　　）
  Dim a（1To 1000）As String'数组a存储文中出现该指定单词（或字符串）的各个位置
  Dim s As String,c As String,ch As String
  Dim n As Integer,max As Integer,i As Integer
  s=Text1．Text
  c=Text2．Text
  n=0：Max=0
  For i=1To Len（s）-Len（c）+1
  ch=①
  If ch=c Then
  n=n+1
  a（n）=i
  If n＞=2Then
  If a（n）-a（n-1）-Len（c）＞Max Then Max=a（n）-a（n-1）-Len（c）
  End If
  End If
  Next i
  Text3．Text=②
  End Sub
  以上程序段运行时，为了实现上述功能，横线处①和②应填入的代码分别为：
  （1）

   

  ； （2）

   

  ．
  组卷：11引用：3难度：0.1

  解析

• 17．【加试题】小方同学使用VB编程研究素数问题，程序运行界面如图所示．他发现1～100之内的素数一共有25个，并且将这些素数全部保存到数组a中，在列表框List1中显示所有素数（按大小从低到高排列）．在文本框Text1中输入需要查找的数据，单击“查找”按钮Command2，在标签框Label3中显示查找结果．
  
  程序代码如下：
  Dim a（1To 25）As Integer'数组a用于存储1～100之内的素数
  Function search（k As Integer）As Integer
  i=1：j=25
  Do While i＜=j
  m=

   

  
  If a（m）=k Then
  search=m：Exit Function
  ElseIf k＜a（m）Then
  j=m-1
  Else
  i=m+1
  End If
  Loop
  search=0
  End Function
  Private Sub Command1_Click（　　）'生成素数事件过程
  Dim i As Integer,j As Integer,k As Integer
  List1．Clear
  k=0
  For i=2To 100
  For j=2To i-1
  If i Mod j=0Then
  Exit For
  End If
  Next j
  Next j
  If

   

  Then
  k=k+1
  a（k）=i
  List1．AddItem“a（”& k &“）=”& a（k）
  End If
  Next i
  End Sub
  Private Sub Command2_Click（　　）'查找数据事件过程
  Dim t As Integer,r As Integer
  t=Val（Text1．Text）
  r=

   

  
  If r=0Then
  Label3．Caption=“1～100中的素数无此数据！”
  Else
  Label3．Caption=“素数序列和第”&Str（r）&“个数！”
  End If
  End If
  End Sub
  （1）自定义函数search采用的算法是

   

  ．（填：顺序查找/对分查找）
  （2）程序中①横线处应填入

   

  ．
  （3）程序中②横线处应填入

   

  ．
  （4）程序中③横线处应填入

   

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

  解析