2017-2018学年浙江省温州市十五校联合体高二（下）期末信息技术试卷

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

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

  A．物质、能源和信息是人类社会的三大要素

  B．微信朋友圈主要体现了信息的传递与共享性

  C．从出土文物推断当时社会的发展水平，这主要体现了信息的载体依附性

  D．天气预报说明天下雨，结果却是晴天，这说明天气预报这种信息没什么价值
  组卷：21引用：1难度：0.1

  解析

• 2．下列有关计算机网络和安全的说法中，正确的是（　　）

  A．发现电脑感染了计算机病毒，立即删除可疑文件以清除病毒

  B．电子邮件中“密送”的目的是防止邮件在发送过程中丢失

  C．HTML 是超文本标记语言的简称，网页文件可以用记事本进行编辑

  D．只要密码长度足够且复杂程度高，就没有必要定期更改系统的密码
  组卷：4引用：1难度：0.5

  解析

• 3．用 OCR 软件进行字符识别，主要包括以下操作步骤：①保存 ②扫描 ③识别 ④倾斜校正 ⑤版 面分析⑥校对，其合理的操作顺序为（　　）

  A．②⑤④③⑥①

  B．②④⑤③⑥①

  C．②④⑤⑥③①

  D．②⑤④⑥③①
  组卷：12引用：1难度：0.8

  解析

• 4．某算法的部分流程图如图所示，执行这部分流程后，输出 a,b 的值分别是（　　）

  A．5，5

  B．8，11

  C．11，8

  D．11，17
  组卷：0引用：2难度：0.5

  解析

• 5．使用 Access 打开某数据库，其部分界面如图所示，下列 说法正确的是（　　）
  

  A．“缺考”字段属于“是/否”类型

  B．该数据表一共有 7 个字段，8 条记录

  C．当前打开的数据表名称是“学生成绩”表

  D．可以将该数据表的“考号”字段类型修改为“自动编号”
  组卷：3引用：1难度：0.4

  解析

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

• 16．若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如 11、121 均是回文数。请你编写程序，输出 10 至 n 之间的所有回文数。程序运行界面如图所示，在文本框 Text1 中输入一个正整数 n,单击“查找”按钮 Command1，在列表框 List1 中显示 10-n 之间的所有回文数，并且在标签 Label1 中输出查找到回文数的总数。
  问题：实现上述功能的 VB 代码如下，但加框处代码有错，请改正。 Private Sub Command1_Click（　　）
  Dim n as long,sum as long,i As Long Dim x as long,y as long
  List1．Clear
  n=Val（Text1．Text） sum=0
  For i=10To n    
  y=0
  Do While x＞0 
  x=x\10
  Loop
  If y=i Then
  List1．additem  Str（i）
  sum=sum+1
  End if Next i
  Label1．caption=“共有”& Str（sum） &“个回文数”End Sub
  组卷：2引用：1难度：0.5

  解析

• 17．小王用 VB 编写一个自动统计离散数据的“极大值”（如图 a 所示）个数的程序。功能如下：在列表框 List1 中随机产生 n 个介于[1，99]的正整数，单击“统计极大值”命令按钮 Command1，程序自动统计出极大值，并将其输出到列表框 List2，且将其中的最大值输出在标签 Label1 中。程序界面如图 b 所示，实现上述功能的 VB 程序如下。（假设：数据的左右两个端点不 计入极大值，且相等的两个值也不计入极大值）。请回答以下问题：
  
   （1）当 n=6，原始数据为“8 39 24 5 71 25”，此时极大值有：

   

  。
  （2）请在横线处填入合适的代码。Const n=10
  Dim a（1To n） As Integer'存储原始数据 Dim Max（1To n） As Integer'存储极大值数据
  Private Sub Form_Load （　　）'原始数据初始化
  Randomize
  For i=1To n
  a（i）=

   

  '产生[1，99]间随机整数
  List1．AddItem Str（a（i））
  Next i End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer
  Dim count As Integer,Maxa As Integer
  count=0
  List2．Clear
  For i=2To n-1'统计极大值，左右两边端点值除外
  If

   

  Then
  count=count+1
  

   

  =a（i）
  End If
  Next i
  Maxa=0
  For i=1To count
  List2．AddItem Str（Max（i））
  If Maxa＜Max（i） Then
  Maxa=Max（i）
  End If
  Next i
  Label1．Caption=“极大值中的最大值为：“+Str（Maxa） End Sub
  组卷：2引用：1难度：0.5

  解析