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

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

• 1．鸡年春晚启用了多个分会场，各会场的实况都通过处理变成了数字信号，以方便通过网络传送．这体现了信息的（　　）

  A．共享性	B．时效性
  C．可加工处理性	D．载体依附性
  组卷：13引用：1难度：0.9

  解析

• 2．张经理最近很烦，业务联系全靠邮箱，可最近邮箱爆满，绝大部分是自动回复的邮件，听说有一种方法可以在邮件发送时就避免收到自动回复，是下列方法中的（　　）
  

  A．将收件人邮箱地址放入“收件人”栏

  B．将收件人邮箱地址放入“抄送人”栏

  C．将收件人邮箱地址放入“密送人”栏

  D．点击“群发单显”功能
  组卷：8引用：1难度：0.9

  解析

• 3．小李家中新装修，准备安装智能居，希望可以通过语音来开启灯光、调节灯光的亮度、开关窗帘、控制家用电器等等．这主要采用的技术是（　　）

  A．光电控制技术	B．语音识别技术
  C．射频技术	D．虚拟现实技术
  组卷：6引用：1难度：0.9

  解析

• 4．如图所示，ID字段为自动编号，如果删除了ID为3的行，则（　　）
  

  A．倪利的ID不会变化，后面的各条记录ID也不会发生变化

  B．倪利的ID会变为3，后面的各条记录ID都会依次发生变化

  C．倪利的ID不会变化，前面的各条记录ID会发生变化

  D．前后各条记录的ID都会发生变化
  组卷：8引用：1难度：0.9

  解析

• 5．将输入的字符连接成字符串，直到输入-1为止（输入字符保存在C变量中），如果依次输入以下字符：3，S，2，D，1，-2，-1，f,-1则最后得到的字符串是（　　）

  A．”3S 2D 1-2-1f-1”	B．”3S 2D 1”
  C．”3S 2D 1-2”	D．”3S 2D 1-2-1”
  组卷：5引用：1难度：0.5

  解析

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

• 16．有一种压缩算法，基本原理是：特殊字符+重复次数+字符．
  比如有文本字符串：A A A A A B C C C C B C C C，编码后得到：B B 5A B B 4C B B 3C．编码串的最开始说明特殊字符B，以后B后面跟着的数字就表示出重复的次数．编程实现将从Text1输入的一个字符串，点压缩按钮后用上述方法压缩，压缩后的编码在Text2中输出，text3中输入特殊字符．压缩算法：
  a）给压缩串添加开关的特殊字符
  b）逐个判断输入字符串的字符（当前的字符与后一个比较），如果两个字符不同，则连到了压缩串中，如果有连续的重复字符则计数n+1
  c）最后一组重复字符或单个字符再连到压缩串中．
  •连入压缩串方法：单个的直接连入，有重复的连入特殊字符开头+数字+重复的字符
  
  程序如下：
  Private Sub Command1_Click （　　）
  Dim src As String,t As String‘src保存输入的字符串
  Dim desc As String‘desc保存压缩后的字符串
  Dim c As String‘c保存特殊字符
  Dim n As Integer‘n用来记连续重复字符个数
  src=Text1．Text
  c=Text3．Text
  n=0
  desc=①

   

  
  For i=1To②

   

  
  n=n+1
  t=Mid（src,i,1）
  If t＜＞③

   

   Then
  desc=desc & zipstring（n,c,t）
  n=0
  End If
  Next i
  Text2．Text=desc & zipstring（n,c,④

   

  ）
  End Sub
  Private Function zipstring（n As Integer,c As String,sr As String） As String
  If n＜=1Then
  zipstring=sr
  Else
  zipstring=c & Trim（Str（n）） & sr
  End If
  End Function
  ①

   

  
  ②

   

  
  ③

   

  
  ④

   

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

  解析

• 17．小丽在假期看到小朋友们在玩一个游戏，8个小朋友围成一圈，从某个小朋友开始报数，报到指定数时，该小朋友出圈，接着从出圈的位置开始再接着报．她希望通过VB程序模拟这个过程，思路如下：
  （1）用一个一维数组来模拟，编号1～N保存在数据a（1）～a（n）中，来代表N个小朋友．
  （2）K代表报数的起始位置，从数组的a（k）开始遍列，报到m出圈，将当前位置的元素删除，后面的元素依次往前移位．总数减1．
  （3）当报数报到数组元素的最后一个时，返回数组开头接着报数．
  （4）当总数只剩下一个数时，直接输出．
  界面如下：
  
  Private Sub Command1_Click （　　）
  Dim i As Integer
  Dim n As Integer
  Dim m As Integer,k As Integer
  Dim A（1To 50）As Integer'存放编号的数组
  n=Val（Text1．Text）'编号个数
  k=Val（Text2．Text）'报数起始位
  m=Val（Text3．Text）'报到出圈数
  If n＞0And k＞0And m＞0   （1）n＜=50Then
  For i=1To n'初始化编号a（1）=1，a（2）=2，…
  A（i）=i
  Next i
  Label1．Caption=（2）'调用出圈函数，得到返回的出圈顺序
  Else
  MsgBox“编号、起始位、报到出圈数都必须大于0！编号不能超过50！“
  End If
  End Sub
  Private Function chuquan（b As Integer,n As Integer,m As Integer,k As Integer） As String
  Dim i As Integer,j As Integer
  Dim s As String'出圈顺序存放
  i=k-1
  s=“出圈顺序为：“
  Do While n＞1
  i=i+1
  m=m-1
  If（3）Then
  s=s+Str（b（i））+“，“
  For j=i To n-1
  b（j）=b（j+1）
  Next j
  b（j）=0
  n=n-1
  i=i-1
  m=4
  End If
  If i=n  Then  i=0
  Loop
  chuquan=（4）
  End Function
  （1）

   

  
  （2）

   

  
  （3）

   

  
  （4）

   

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

  解析