2016-2017学年浙江省嘉兴市桐乡市凤鸣高级中学高二（下）期中信息技术试卷

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

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

  A．用U盘保存文档资料，U盘也是信息

  B．发送电子邮件协议，既可以是POP3，也可以是SMTP

  C．现在网络造谣的很多，任何链接都不能点开来看

  D．网络支付也不一定安全，支付密码要设置的复杂一些
  组卷：2引用：1难度：0.6

  解析

• 2．某软件具有自动识别植物名称的功能。只要打开相机，对着花草等植物拍照，软件就会自动识别相片内容，显示多个可能的植物品种，用户可以挑选进行确认，还能将识别结果通过微信、微博分享出去。根据上述描述，以下说法错误的是（　　）

  A．相机拍照的过程了实现了模数转换

  B．该软件识别植物的过程使用了人工智能技术

  C．用户在软件上点击挑选确认，体现了多媒体的集成性

  D．微信、微博是信息的表达技术
  组卷：4引用：1难度：0.5

  解析

• 3．使用Word文件的审阅功能设置如图所示，下列说法正确的是（　　）
  

  A．添加批注的用户是“张三1”

  B．如果“接受对文档的所有修订”，文档第二行的内容将会是“……，于美国华盛顿举办了首届G20峰会，……”

  C．如果再添加一处批注，对象还是“张三1”

  D．在“审阅”选项卡下，可以设置不显示修订以前的内容
  组卷：3引用：1难度：0.5

  解析

• 4．使用Access软件创建的“球员资料”数据表，其设计视图的部分界面如图所示。在数据表试图中，以下操作能够实现的是（　　）

  A．在“id”字段中输入“2”

  B．在“身高”字段中输入“183CM”

  C．在“籍贯”字段中输入“嘉兴”

  D．在“出生日期”字段中输入“1985\3\25”
  组卷：2引用：1难度：0.4

  解析

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

  A．6，4

  B．8，13

  C．27，13

  D．8，27
  组卷：0引用：1难度：0.5

  解析

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

• 16．为了实现Word中“查找和替换”的功能，小张编写了VB程序，功能如下：在文本框Text1中输入原字符串，在文本框Text2中输入需要替换前的文字，在文本框Text3中输入替换后的文字。点击命令按钮Command1后，将替换后的结果输出在文本框Text4中。程序界面如图所示：
  
  实现上述功能的代码如下，但加框处代码有误，请改正。
  Private Sub Command1_Click （　　）
  Dim s1 As String,s2 As String,n1 As Integer,n2 As Integer
  Dim c1 As String,c2 As String
  s1=Text1．Text
  c1=Text2．Text
  c2=Text3．Text
  n1=Len（s1）
  n2=Len（c1）
  For i=1 To n1 Step  ‘错误①处
  If Mid（s1，i,n2）=c1 Then
  ‘错误②处
  Else
  s2=s2+Mid（s1，i,n2）
  End If
  Next i
  Text4．Text=s2
  End Sub
  组卷：0引用：1难度：0.3

  解析

• 17．编写一个VB程序，比较冒泡排序和选择排序的效率。功能如下：点击命令按钮Command1，在列表框List1中输出任意10个两位数，用数组a （　　）表示。点击命令按钮Command2，用冒泡排序的方法在列表框List2中将10个数降序输出，用数组b （　　）表示，并在标签Label1中显示交换次数。点击命令按钮Command3，用选择排序的方法在列表框List2中将10个数降序输出，用数组c （　　）表示，并在标签Label2中显示交换次数。程序界面如图所示：
  实现上述功能的VB程序如下，请在横线处填入适合的代码。
  Dim a（1 To 10）As Integer,b（1 To 10）As Integer,c（1 To 10）As Integer
  ‘数组a （　　）用于保存随机生成的10个数，数组b（　　）用于冒泡排序，数组c（　　） 用于选择排序
  Dim tj As Integer
  Private Sub Command1_Click （　　）
  For i=1 To 10
  a（i）=

   

  ‘填空（1）处
  b（i）=a（i）
  c（i）=a（i）
  List1．AddItem a（i）
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  tj=0
  List2．Clear
  For i=1 To 9
  For j=10 To

   

  ‘填空（2）处
  If b（j）＞b（j-1）Then
  temp=b（j）：b（j）=b（j-1）：b（j-1）=temp
  tj=tj+1
  End If
  Next j
  Next i
  For i=1 To 10
  List2．AddItem b（i）
  Next i
  Label1．Caption=“交换“+Str（tj）+“次“
  End Sub
  Private Sub Command3_Click （　　）
  tj=0
  List2．Clear
  For i=1 To 9
  k=i
  For j=i+1 To 10
  If c（j）＞c（k） Then

   

  ‘填空（3）处
  Next j
  If

   

  Then‘填空（4）处
  temp=c（i）：c（i）=c（k）：c（k）=temp
  tj=tj+1
  End If
  Next i
  For i=1 To 10
  List2．AddItem c（i）
  Next i
  Label2．Caption=“交换“+Str（tj）+“次“
  End Sub
  组卷：2引用：1难度：0.5

  解析