2017年浙江省名校信息技术仿真试卷（二）

一、选择题（共12小题，每小题2分，满分24分）

• 1．某用户使用手机“导航”软件，从 A 地驶向 B 地，规划路线后开始行驶，途中“导航”提醒前 方道路拥堵，建议改变路线，并实时提供新的导航路径，该事例体现信息的（　　）

  A．载体依附性

  B．真伪性

  C．共享性

  D．时效性
  组卷：23引用：7难度：0.9

  解析

• 2．某同学利用百度搜索得到的部分界面如图所示，以下说法错误的是（　　）
  

  A．正在搜索的是关于“张家界”的地图资料

  B．可以通过该页面上的“路线”搜索去“张家界”的行车路线

  C．可以通过“文库”搜索关于“张家界”的文档资料

  D．该搜索采用的是“主题目录”形式
  组卷：10引用：5难度：0.9

  解析

• 3．Word字处理软件编辑某文档后，部分界面如图所：
  
  对于图中所示部分的文档，下列说法不正确的是（　　）

  A．共有2处修订

  B．共有2个用户添加了批注

  C．接受修订后，文档中的相关内容变为“家族地位显赫”

  D．拒绝修订后，文档中的相关内容变为“家族社会地位显赫”
  组卷：12引用：2难度：0.9

  解析

• 4．某数据表的设计视图如图所示，下列说法正确的是（　　）
  

  A．．“编号”字段的内容不能重复

  B．在“团员”字段中可以输入“否”

  C．“总分”字段的内容只能是整数

  D．只能在“总分”字段后面添加新字段
  组卷：6引用：2难度：0.7

  解析

• 5．某算法的流程图如图所示，执行该算法，输出y的值为（　　）
  
  

  A．15

  B．14

  C．10

  D．9
  组卷：5引用：2难度：0.7

  解析

二、解答题（共5小题，满分26分）

• 16．用VB编写程序，在文本框Text1中输入任意字符串s,统计s中数字字符串的数值和（如输入字符串“ab123dr34fg9de”则输出166，即123+34+9=166．）并在Labe13输出结果．程序设计界面如下：
  根据算法将下列程序补充完整．
  Private Sub Command1_Click（　　）
  Dim s As String,ch As String,s As Integer
  Dim ch2 As String,sum As Double
  Dim n As Integer,i As Integer
  s=Text1．Text
  

   

  
  i=1；sun=0
  Do While i=n
  ch=Mid（s,i,1）
  If ch＞=“0“And ch＜=“9“Then
  j=i
  ch2=Mid（s,j,1）
  Do While ch2＞=“0“And ch2“9“
  j=j+1
  ch2=Mid（s,j,1）
  Loop
  sum=sum+
  

   

  
  i=j
  End If
  i=i+1
  Loop
  Label3．Caption=Str（sum）
  End Sub.
  组卷：15引用：3难度：0.1

  解析

• 17．某字符串（字节数为3的倍数）编码规则如下：
  （1）将该字符串内码分成3个字节一组，顺次连接后得到24位二进制数；
  （2）将得到的24位二进制数字分成4组，每组6位；
  （3）在每组数字前补上两个0，得到4个字节的二进制数；
  （4）将（3）中得到的四个二进制数分别转换为十进制数；
  （5）将每个十进制数转换为1个加密字符，对应的“密码表”按数值由小到大依次为“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”
  小明按照上述方法，设计了一个字符串（仅包含ASCⅡ字符）加密的VB程序，功能如下：单击“加密按钮”Command1，程序依次将文本框Text1中每3个字符ASCⅡ码值按编码规则转换为四个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果．程序运行效果如下所示．
  实现上述功能的VB程序如下：
  （1）在上述加密算法步骤（4）中，得到的十进制数最大是

   

  ．
  （2）实现上述功能的VB程序如下．请在横线处填入合适代码．
  Function Code2Char（c As Integer）As String
     Dim s As String
     s=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/“
     Code2Char=

   

  
  End Function
  Private Sub Command1_Click（　　）'加密过程
     Dim n As Integer,s As String,i As Integer,ss As String
     Dim a1 As Integer,a2 As Integer,a3 As Integer'存储加密前字符的ASCII码
     Dim b1 As Integer,b2 As Integer'分别存储分割、转换后的前两个十进制数
     Dim b3 As Integer,b4 As Integer'分别存储分割、转换后的后两个十进制数
     s=Text1．Text
     n=Len（s）
     ss=““
     For i=1 To n

   

  
        a1=Asc（Mid（s,i,1））
        a2=Asc（Mid（s,i+1，1））
        a3=Asc（Mid（s,i+2，1））
        b1=a1\4
        b2=（a1 Mod4）*16+（a2\16）
        b3=

   

  
        b4=a3 Mod 64
        ss=ss+Code2Char（b1）+Code2Char（b2）+Code2Char（b3）+Code2Char（b4）
     Next i
     Text2．Text=ss
  End Sub.
  组卷：5引用：1难度：0.3

  解析