2017-2018学年浙江省绍兴市越城区蕺山外国语学校高二（下）期末信息技术试卷

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

• 1．下列描述中正确的是（　　）

  A．信息无处不在，但并不一定都是真实的

  B．利用电视发布信息，其中电视是信息的表达方式

  C．在因特网信息资源评价中，个人推荐方式具有较高的参考价值

  D．《信息技术教材》既可以是载体，也可以是信息
  组卷：10引用：1难度：0.6

  解析

• 2．下列应用中，体现了人工智能技术的有（　　）
  ①家里用扫地机器人扫地
  ②电脑开机后自动播放音乐
  ③通过人脸识别进行住宿登记
  ④通过网络与远在外地的网友在线对弈
  ⑤微信聊天时通过语音进行汉字输入

  A．①③④

  B．①③⑤

  C．②③⑤

  D．②④⑤
  组卷：7引用：1难度：0.4

  解析

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

  A．第一条批注的对象是“人工智能”

  B．文档中共有 2 处批注

  C．修订前，第一行文字是“2018 年《麻省理工科技评论》中文网报道，全球十大突”

  D．接受所有修订后，第四行文字是“网络隐私、材料的量子飞跃、实用型 3D 金属打印机”
  组卷：7引用：1难度：0.2

  解析

• 4．某算法的部分流程图如图所示。执行这部分流程，依次输入 21，6，则下面说法错误的是（　　）

  A．n 的值最终为 3

  B．语句“m←n”共执行了 1 次

  C．语句“r=0”共判断了 2 次

  D．r的值最终为2
  组卷：0引用：2难度：0.3

  解析

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

  A．修改字段的数据类型一定只能在设计视图中进行

  B．在数据表视图下，删除记录后不可以通过“撤销”命令恢复

  C．对于数据类型为“日期/时间”的字段，“20180501”符合输入式

  D．自动编号字段的值一定是连续的
  组卷：4引用：1难度：0.4

  解析

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

• 16．小李基于冒泡排序算法编写了一个 VB 程序，功能如下：在文本框 Text1 中输入产生随机数的个数 n,单击“随机产生”按钮 Command1，在列表框 list1 中显示 n 个两位数（不重复）的排序前数据，单击“数据排序”按钮 Command2，在列表框 list2 中显示数据升序排序结果。程序运行界面如图所示。
  
  实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
  Dim a（1To 100）As Integer
  Dim n As Integer
  Private Sub Command1_Click（　　）
  Dim i As Integer,j As Integer,temp As Integer
  Dim flag As Boolean
  n=Val（Text1．Text）
  Randomize
  For i=1 To n
  ‘（1）
  flag=False
  For j=1 To i-1
  If temp=a（j） Then
  i=i-1
  flag=True
  Exit For
  End If
  Next j
  If flag=False Then
  a（i）=temp
  List1．AddItem Str（a（i）
  End If
  Next i
  End Sub
  Private Sub Command2_Click（　　）
  Dim i As Integer,j As Integer
  i=1
  Do While i＜=n-1
  j=i+1
  Do While j＜=n
  If  Then‘（2）
  t=a（i）：a（i）=a（j）：a（j）=t
  End If
  j=j+1
  Loop
  i=i+1
  Loop
  For m=1To n
  List2．AddItem Str（a（m））
  Next m
  End Sub
  组卷：0引用：1难度：0.3

  解析

• 17．小明编写了一个寻找奇妙整数的 VB 程序。此整数的平方与立方正好用了 0～9 的 10 个数且每个数只用一次，例如 69 的平方为 4761，69 的立方为 328509，4761 和 328509 刚好用了 0～9的10 数，并且没有重复使用。现需从 1 至 1000 寻找这样的奇妙整数并在列表框 list1 中显示，设计界面如第 17 题图所示。实现上述功能的 VB 程序段如下：
  （1）请在横线处填入合适代码
  Dim a（0 To 9）As Boolean'判断 0-9 的 10 个数是否使用
  Private Sub Command1_Click（　　）
  Dim n As Integer
  Dim k As Integer
  '存储从字符串 s1
  或 s2中提取的字符
  Dim f As Boolean
  '判断字符 k 是否重复出现
  Dim s1As String'存储字符串（平方数）
  Dim s2As String'存储字符串（立方数）
  Dim i As Integer,j As Integer
  For n=1To 1000
  For i=0To 9
  a（i）=True
  Next i
  f=True
  s1=CStr（n^2）
  s2=CStr（n^3）'Cstr （　　）函数的作用是将数字型变量改变成字符型变量
  For j=1To Len（s1）
  ①

   

  
  If a（k）=True Then
  a（k）=False
  Else
  f=False
  Exit For
  End If
  Next j
  If
  ②

   

  
  Then
  j=0
  Do While j＜=9
  If a（j）=True Then
  f=False
  Exit Do
  End If
  j=j+1
  Loop
  If f=True Then List1．AddItem Str（n）
  End If
  Next n
  End Sub
  Function Judge（s As String） As Boolean
  Dim i As Integer,k As Integer
  i=1：judge=True
  Do While
  ③

   

  
  k=Val（Mid（s,i,1））
  If a（k）=True Then
  a（k）=False
  Else
  Judge=False
  Exit Do
  End If
  i=i+1
  Loop
  End Function
  （2）根据程序可以判断数字 43

   

  （ 填，能/不能）在 List1 列表中显示。
  组卷：2引用：1难度：0.4

  解析