2018-2019学年浙江省杭州市塘栖中学高三（上）选考模拟信息技术试卷（12月份）

一、选择题（本题包括12小题，每小题2分，共24分）

• 1．某日收到如图所示的微信短信，收到此条短信后正确的做法是（　　）
  

  A．马上登陆微信，一直保持登录状态，防止他人登录成功

  B．马上修改微信密码，提高安全等级

  C．马上将手机换成samsung-GT-I9000

  D．马上将手机关机
  组卷：3引用：3难度：0.9

  解析

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

  A．用户s1添加批注的对象为“闻”

  B．文档中，图片的环绕方式是“嵌入型”

  C．图中共有3处修订

  D．若接收修订，最后一句话的显示为“是故无贵无贱，无长无少，道之所存，师之所存也。”
  组卷：8引用：1难度：0.4

  解析

• 3．某软件部分运行界面如图所示。该软件能连续记录并及时反馈用户在步行过程中的步数、距离和消耗的热量。这主要体现了多媒体技术的（　　）

  A．安全性

  B．集成性

  C．实时性

  D．交互性
  组卷：11引用：3难度：0.7

  解析

• 4．使用Access软件创建的“图书”数据表，其设计视图和数据表视图的部分界面如图所示。
  
  下列说法正确的是（　　）

  A．该数据表共有15条记录，在当前状态下若要快速浏览第12条记录，可在“搜索”处输入“12”，然后按回车键

  B．在当前记录上选择右键菜单中的“新记录”命令，则新记录是第16条记录

  C．可在当前数据表中添加一条如“5 高中三年我的奋斗我的梦 和云峰 2018/3/27 28”的新记录

  D．当前数据表中“书名”字段最多可以输入63999个字符
  组卷：4引用：1难度：0.4

  解析

• 5．某算法流程图如图所示，最后输出s的值是（　　）
  

  A．0.25

  B．1

  C．2

  D．8
  组卷：3引用：2难度：0.5

  解析

二、非选择题（第16小题8分，第17小题5分，第18小题7分共20分）

• 16．查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）．
  
  编写VB程序，实现上述算法．程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如第16题图所示．
  实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Const maxn=10
  Dim a（1To maxn） As Integer
  Private Sub Form_Load （　　）
  'maxn个数据存储在数组a中，并在列表框List1中显示
  '代码略
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,n As Integer'n用于存储当前查找的数组长度
  Dim j As Integer,key As Integer'key用于存储本次查找关键字的数据位置
  key=1：n=maxn
  Do While key＜=n
  i=n
  Do While  '（1）
  i=i-1
  Loop
  If i=key Then'找到重复数据，删除；未找到，设定下一查找关键字
  key=key+1
  Else
  For j=i To n-1
  a（j）=a（j+1）
  Next j
  n=n-1
  End If
  Loop
  For i=1To n
  List2．AddItem a（i）
  Next i
  Label1．Caption=“共删除重复数据：“&    &“个“'（2）
  End Sub.
  组卷：2引用：2难度：0.3

  解析

• 17．如果一个正整数从＜imgsrc=“image6．png“style=“vertical-align：middle；border：0“/＞左到右读与从右到左读是一样的，就称它为回文式数（简称回数），如12321．“回数猜想”的主要思想是，对任意正整数，若它不是回数，则按下列算法即可获得一个回数：
  （1）把该整数的数字顺序颠倒，求得该数的逆序数；
  （2）将该整数和其对应的逆序数相加；
  （3）若相加结果不是回数，则将结果作为新的整数，返回步骤（1）。
  小林按照上述算法，设计了验证回数猜想的VB程序（猜想次数不超过10次），程序功能如下：在文本框Text1中输入一个正整数，单击“验证”按钮（Command1），获取文本框Text1中的数，当该数不是回数时，采用回数猜想的方法进行验证，并在列表框List1中输出每次验证的过程，若验证成功或验证次数超过10次，则停止验证，最后在列表框List1中输出验证结果。程序运行效果如图所示。
  实现上述功能的VB程序如下：
  Private Sub Command1_Click（　　）
     Dim t As String,a As Long,b As Long
     Dim count As Integer'count用于存储回数猜想的验证次数
     t=Text1．Text
     count=1
     Do While Check（t）=False And count＜=10
       a=Val（t）
  

   

  b=turn（t）
       c=a+b
      List1．AddItem Str（a） &“+“& Str（b） &“=“& Str（c）
       count=count+1
       t=c
     Loop
     If Check（t） Then
        Lis t1．AddItem“验证成功！“
     Else
        List1．AddItem“10次内未验证成功！“
     End If
  End Sub
  '自定义函数Turn
  Function Turn（x As String） As Long
     Dim s As String,i As Integer
     s=““
     For i=Len（x） To 1 Step-1
        s=s & Mid（x,i,1）
     Next i
     Turn=

   

  Val（s）
  End Function
  '自定义函数Check,检查x是否为回文数
  Function Check（x As String） As Boolean
     Dim i As Integer
     Check=True
     For i=1 To Len（x）\2 Step 1
        If Mid（x,i,1）＜＞

   

   Then Check=Falsemid（x,len（x）+1-i,1）
     Next i
  End Function
  （1）程 序代码中，自定义函数Turn（x）的功能是求x的逆序数。
  （2）请在横线处填入合适代码。
  组卷：2引用：1难度：0.3

  解析