2017年浙江省嘉兴市普通高校招生选考教学信息技术试卷

一、选择题（共12小题，每小题2分，满分24分）

• 1．天气预报的产生，一般先对探测数据进行收集、整理与汇总，最后由专家进行综合分析、研究得出结论．专家对气象资料进行综合分析、研究的过程表明信息具有（　　）

  A．载体依附性

  B．可加工性

  C．传递性

  D．共享性
  组卷：11引用：1难度：0.9

  解析

• 2．小明从网上下载了一个使用IE保存的网页，得到一个s1．html文件和一个sl_files文件夹，由此可知小明在下载网页时选择的保存类型为（　　）

  A．网页全部	B．Web档案，单个文件
  C．网页，仅HTML	D．文本文件
  组卷：8引用：1难度：0.9

  解析

• 3．下列应用中，体现了人工智能技术的有（　　）
  ①停车场车牌识别技术的应用
  ②Word软件的查找、替换功能
  ③手机延时30秒暗屏
  ④手机微信摇一摇识别歌曲名称
  ⑤二维码识别
  ⑥刷脸考勤

  A．①③④⑤⑥

  B．①②③⑥

  C．①③④⑥

  D．①④⑥
  组卷：15引用：8难度：0.9

  解析

• 4．使用Access软件编辑某数据库的“成绩表”如图a所示，其中“编号”字段数据类型为“自动编号”．在当前状态下，将图b所示A2：C11区域中的数据成功复制到成绩表中，此时“成绩表”中（　　）
  

  A．包含3条记录

  B．包含4个字段

  C．“张均”所在记录的“编号”值为1

  D．“编号”字段的值不能再修改
  组卷：10引用：3难度：0.7

  解析

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

  A．3  9

  B．4  18

  C．5  18

  D．6  43
  组卷：2引用：2难度：0.7

  解析

二、解答题（共5小题，满分26分）

• 16．【加试题】如图a所示，在Excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便．小明想用VB编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个[60，100]之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示．
  
  实现上述功能的VB程序如下，代码加框处有错，请改正．
  加框①处代码应改为：

   

  ；加框②处代码应改为：

   

  ．
  Dim a（1 To 10）As Integer'存放原始数据
  Dim b（1 To 10）As Integer'存放名次
  Private Sub Command1_Click（　　）
     Dim i As Integer,j As Integer,n As Integer
     For i=1 To 10
         n=0
         For j=1 To 10
            If Then n=n+1'①
  
         Next j'②
     Next i
     For i=1 To 10
         List2．AddItem a（i） &““& b（i）
     Next i
  End Sub
  Private Sub Form_Load（　　）
  '随机产生10个[60，100]之间的随机数，并显示在List1中，代码略
  End Sub.
  组卷：5引用：2难度：0.3

  解析

• 17．【加试题】从前有一位老渔夫，有一天他捕到了一只大金龟，在金龟的苦苦哀求下，老渔夫放走了金龟，为了报恩，大金龟给老渔夫准备了一份厚礼．大金龟拿出了n件宝贝，每件宝贝都标了编号、体积和价值，还给了他一个规定体积的背包，只要能装入背包的东西都归老渔夫所有，老渔夫如何装包得到的总价值才最大（每件宝贝都可以分割为最小1个单位体积．如：编号001的宝贝，价值100，体积50，最小可以分割为50份）．
  小林编写了一个VB程序，实现如下功能：程序运行时，首先从数据库读取每件宝贝的编号、价值和体积，分别存储在数组bh、value、volume中，并显示在列表框List1中；在文本框Text1中输入背包的体积，单击“求解”按钮Command1后，在列表框List2中显示依次所取的宝贝的相关信息，最后，在列表框List2中最后一行显示背包的总价值．程序运行界面如图所示．
  
  本题算法思想：
  （1）首先计算出每件宝贝的单位价值（单位价值=价值/体积）．
  （2）由于每件宝贝是可以任意分割的，因此，先将宝贝按单位价值降序排序，然后依次从单位价值最大的宝贝开始装入背包，直到装满整个背包为止．
  实现上述功能的程序如下，请在程序画线处填入合适的语句或代码．
  ①处代码应为

   

  ；
  ②处代码应为

   

  ；
  ③处代码应为

   

  ．
  Dim bh（1 To 20）As String,n As Integer'数组bh存储宝贝的编号，n表示宝贝数
  Dim volume（1 To 20）As Long,value（1 To 20）As Long,vpv（1 To 20）As Single'数组
  value、volume、vpv分别存储宝贝的价值、体积和单位体积的价格
  Private Sub Form_Load（　　）
  '本过程的功能是从数据库读取每件宝贝的信息，并存储在数组中，本过程其他语句略
  End Sub
  Private Sub Command1_Click（　　）
     Dim m As Integer,i As Integer,j  As Integer,ans As Single
     Dim temp1 As String,temp2 As Integer,temp3 As Integer,temp4 As Single
     m=Val（Text1．Text）
     For i=1 To n
         vpv（i）=

   

  
     Next i
     For i=1 To n-1
         For j=n To i+1 Step-1
             If vpv（j）＞vpv（j-1）Then
                 temp1=bh（j）：bh（j）=bh（j-1）：bh（j-1）=temp1
                 temp2=value（j）：value（j）=value（j-1）：value（j-1）=temp2
                 temp3=volume（j）：volume（j）=volume（j-1）：volume（j-1）=temp2
                 temp4=vpv（j）：vpv（j）=vpv（j-1）：vpv（j-1）=temp3
             EndIf
         Next j
     Next i
     i=1：j=n：ans=0
     List2．AddItem“编号“+“价值“+“体积“+“单位体积“+“装入背包的体积“
     Do While m＞0 And j＞=1
         If m-volume（i）＞=0 Then
  

   

  
            List.AddItem bh（i） &““& value（i） &““& volume（i） & vpv（i）+&““& volume（i））
         Else
            ans=ans+m*vpv（i）
            List2．AddItem bh（i） &““& value（i） &““& volume（i） &““& vpv（i） &““& m
         EndIf
  

   

  
         i=i+1；j=j-1
     Loop
     List2．AddItem“背包总价值为：“+Str（ans）
  End Sub.
  组卷：7引用：1难度：0.3

  解析