2016-2017学年浙江省温州市十校联合体联考高三（上）期末信息技术试卷

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

• 1．下列关于信息的说法中，不正确的是（　　）

  A．信息无处不在，我们每时每刻都离不开信息

  B．经过加工、处理，信息往往可以从一种形态转换为另一种形态

  C．要使用计算机进行处理，必须先对信息进行编码，使其转换成二进制代码

  D．信息必须依附于某种载体，所以它不可以脱离它所反映的事物被存储、保存和传播
  组卷：18引用：4难度：0.9

  解析

• 2．下列软件中，属于以页为基础的多媒体创作工具的是（　　）

  A．会场会影	B．PowerPoint
  C．Flash	D．Visual Basic
  组卷：6引用：2难度：0.9

  解析

• 3．下列应用中使用了光学字符识别（OCR）技术的是（　　）

  A．使用手机的手写输入功能编辑短信内容

  B．某手机App能够根据用户的语音指令自动执行相应的操作

  C．某停车场管理系统在车辆进入时可以自动识别并记录车牌号

  D．用手机摄像头拍下某旅游景点的名家题字照片，并发布到朋友圈
  组卷：5引用：3难度：0.9

  解析

• 4．关于Access数据表的操作，下列说法中正确的是（　　）

  A．任何时候都不可以将“自动编号”类型的字段修改为“数字”类型

  B．一旦在数据表中输入数据后，就不能再修改数据表的名称

  C．删除数据表中的某一条记录，该数据表的字段数也会减少

  D．不可以在“是/否”类型的字段中输入字符“是”
  组卷：9引用：2难度：0.7

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程后，变量a的值是（　　）
  

  A．4

  B．2

  C．1

  D．46
  组卷：2引用：2难度：0.7

  解析

【加试题】

• 16．编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中．所谓一个数n的连续整数固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n.这样a₁，a₂，…，a_n称为n的一个连续整数固定和．例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,sum As Integer
  Dim n As Integer
  n=Val（Text1．Text）
  sum=0
  List1．Clear
  For i=1To n'①
  j=i-1
  Do While  sum＜=n'②
  j=j+1
  sum=sum+j
  Loop
  If sum=n Then
  List1．AddItem Str（i） &“+…+“& Str（j） &“=“& Str（n）
  End If
  sum=0
  Next i
  End Sub.
  组卷：2引用：1难度：0.3

  解析

• 17．某移数字游戏的规则如下：有一个如图a所示的包含9个圆圈的数阵．将1～8这8个数字随机地填写到该数阵的外层圆圈中，只剩下中间的一个空圆圈．规定每个数字只能按照数阵中的直线从一个圆圈移动到另一个空的圆圈中．通过若干步的移动，要求将该数阵中的数字移动成为如图b所示的状态．
  小张编写了一个VB程序来解这个游戏，功能如下：点击“初始化”按钮Command1初始化游戏，程序随机地将1～8这8个整数填入到数阵的外层圆圈中，同时将该状态下的数阵显示在列表框List1中．点击“开始”按钮Command2，程序开始移数字，并将移动过程中的每一步输出在列表框List2中，最后统计总移动步数到标签Label1中．为了清楚地描述输出数字在数阵中的每一步移动步骤，小张给数阵中的每一个圆圈都进行了编号，具体编号方法如图c所示，因此1号圈中的数字移动到2号圈可以表示为“1#--＞2#”．程序运行界面如图d所示．
  
  实现上述功能的VB代码如下．
  （1）请在横线处填入合适代码
  Dim a（1To 8）As String
  Private Sub Command1_Click （　　）
  Dim temp As Integer,i As Integer,j As Integer
  Dim flag（1To 8）As Boolean
  For i=1To 8
  

   

  
  Next i
  Randomize
  For i=1To 8
  temp=Int（Rnd （　　）*8+1）'生成1～8之间的随机整数
  Do While flag（temp）
  temp=Int（Rnd （　　）*8+1）'生成1～8之间的随机整数
  Loop
  a（i）=temp
  flag（temp）=True
  Next i
  List1．Clear
  List1．AddItem“初始状态：“
  PrintCircle
  End Sub
  Private Sub Command2_Click （　　）
  Dim i As Integer,j As Integer,temp As String,n As Integer,moveStep As String
  moveStep=““
  List2．Clear
  n=0
  For i=1To 7'使用冒泡排序对圆圈中的数字进行移动
  For j=1To

   

  
  If a（j）＞=a（j+1）Then
  temp=a（j）：a（j）=a（j+1）：a（j+1）=temp
  moveStep=Str（j） &“#--＞0#“
  moveStep=moveStep &““& Str（j+1）&“#--＞“& Str（j） &“#“moveStep=moveStep &““&“0#--＞“& Str（j+1）&“#“
  List2．AddItem moveStep
  n=n+1
  End If
  Next j
  Next i
  List1．AddItem“移动数字后：“
  PrintCircle
  Label1．Caption=“总移动步数：“&

   

  
  End Sub
  '在列表框List1中输出当前的数阵状态
  Function PrintCircle （　　）
  List1．AddItem“-------------------------“
  List1．AddItem“[“& a（1）&“]-[“& a（2）&“]-[“& a（3）&“]“
  List1．AddItem“|\|/|“
  List1．AddItem“[“& a（8）&“]-[“&““&“]-[“& a（4）&“]“
  List1．AddItem“|/|\|“
  List1．AddItem“[“& a（7）&“]-[“& a（6）&“]-[“& a（5）&“]“
  List1．AddItem“-------------------------“
  End Function
  （2）分析代码和游戏规则，事件处理过程“Command2_Click”中的冒泡排序

   

  （填：能/不能）改为使用选择排序．
  组卷：7引用：1难度：0.3

  解析