2016-2017学年浙江省台州市临海市白云高级中学高二（下）月考信息技术试卷（5月份）

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

• 1．作为信息时代的高中生，以下不符合网络道德规范行为的是（　　）

  A．在微信朋友圈中发布自己的学习经验，供他人学习

  B．在网上看到低俗的内容后马上向公安机关举报

  C．编写黑客程序并出售给他人

  D．在QQ中和老师探讨问题
  组卷：6引用：2难度：0.9

  解析

• 2．下列有关网上资源评价的说法不正确的是（　　）

  A．评价方式主要有三种，分别是：统计评价、个人推荐、专家或核心刊物评价

  B．个人推荐的评价方式可信度最高

  C．统计评价是一种常见的评价方式

  D．在网购时，要理性看待网上的评价信息
  组卷：7引用：2难度：0.9

  解析

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

  A．文档中有两处批注，其中w1、w2是指批注编号

  B．批注内容删除后，批注对象也将被删除

  C．修订前，第二行诗句为：山路本无雨，空翠湿人衣

  D．接受所有修订后，第二行诗句为：山路元无雨，空翠湿人衣
  组卷：5引用：2难度：0.9

  解析

• 4．使用UltraEdit软件观察字符的内码，部分界面如图所示。下列说法正确的是（　　）
  

  A．共占6个字节

  B．字符“a”的内码用二进制表示为1110001

  C．字符“+”的内码为A3 AB

  D．根据上述字符的内码可推算出字符“j”的内码为70H
  组卷：6引用：2难度：0.9

  解析

• 5．如图是一张使用Access软件创建的数据表：下列有关数据表的说法正确的是（　　）
  

  A．数据库的名称为“2010-2014全国供水用水情况年度数据”

  B．该表共有8个字段

  C．再添加一条记录，其“序号”字段的值可能为12

  D．将当前单元格中的值修改为“6500”时，当前记录“最大值”字段的值也将自动更改
  组卷：6引用：2难度：0.7

  解析

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

• 16．小明编写了一个求亲密数的VB程序。所谓亲密数是指如果整数x的全部因子（包括1，不包括x本身）之和等于y,且整数y的全部因子之和等于x,则将整数x和y称为亲密数。
  程序运行时，单击“开始”按钮Command1，则在列表框List1中显示100～5000间所有亲密数，在标签Label3中显示亲密数的对数。程序运行界面如图所示。
  
  实现上述功能的VB程序如下，但加框处代码有错，请改正。
  Private Sub Command1_Click （　　）
  Dim x As Integer,y As Integer,i As Integer,j As Integer,b As Integer,ans As Integer
  ans=0
  For x=100To 5000
  y=0
  b=0
  For i=1To x\2
  If x Mod i=0Then y=y+i
  Next i
  For j=1Toy\2
  If y Mod j=0Then b=b+j
  Next j
  If  Then'①
  List1．AddItem Str（x）+Str（y）
  ans=ans+1
  End If
  Next x
  '②
  End Sub
  组卷：2引用：1难度：0.6

  解析

• 17．小明编写了一个求背包最大价值的VB程序，现有n件物品和体积为M的背包，每件物品都有编号、体积和价值，且每件物品都可以任意分割（即可以取走宝贝的一部分），求装满后的背包的最大价值。
  程序运行时，在文本框Text1中输入物品的数量n,单击“数据读取”按钮，则从数据库读取前n件物品的编号、价值和体积，分别存储在数组id、jz、tj中，并显示在列表框List1中；在文本框Text2中输入背包的体积，单击“求解”按钮Command1后，在列表框List2中显示依次所取的物品的相关信息，最后，在列表框List2中最后一行显示背包的总价值。程序运行界面如图所示。
  
  算法思想：
  （1）首先计算出n件物品的单位价值（单位价值=价值/体积）；
  （2）将物品按单位价值降序排序；
  （3）然后依次从单位价值最大的物品开始装入背包，直到装满整个背包为止。
  （4）输出装入背包的物品的相关信息。
  实现上述功能的程序如下，请在程序横线处填入合适的语句或代码。
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim id（1To 20）As String'存储物品的id号
  Dim jz（1To 20）As Long,tj（1To 20）As Long'数组jz、tj分别存储物品的价值和体积
  Dim dwjz（1To 20）As Single'存储物品的单位价值
  Dim n As Integer'表示物品数
  Private Sub Command1_Click （　　）
  '读取数据库表中前n条记录的信息
  End Sub
  Private Sub Command2_Click （　　）
  Dim m As Integer,i As Integer,j As Integer,p As Integer,tp1As String,tp2As Integer Dim tp3As Single
  m=Val（Text2．Text）
  For i=1To n
  dwjz（i）=jz（i）/tj（i）
  Next i
  For i=1To n-1
  For j=n To i+1Step-1
  If ①Then
  tp1=id（j）：id（j）=id（j-1）：id（j-1）=tp1
  tp2=jz（j）：jz（j）=jz（j-1）：jz（j-1）=tp2
  tp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=tp2
  tp3=dwjz（j）：dwjz（j）=dwjz（j-1）：dwjz（j-1）=tp3
  End If
  Next j
  Next i
  i=1
  p=n
  ans=0
  List2．AddItem“编号“+“价值“+“体积“+“装入背包的体积“
  Do While m＞0Andp＞=1
  If m-tj（i）＞=0Then
  ans=ans+jz（i）
  List2．AddItem id（i）+““+Str（jz（i））+““+Str（tj（i））+““+Str（tj（i））
  Else
  ②
  List2．AddItem id（i）+““+Str（jz（i））+““+Str（tj（i））+““+Str（m）
  End If
  m=m-tj（i）
  i=i+1
  ③
  Loop
  List2．AddItem“背包总价值为：“+Str（ans）
  End Sub
  组卷：3引用：1难度：0.5

  解析