2017-2018学年浙江省宁波市北仑中学高二（下）期中信息技术试卷

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

• 1．一段时长为10秒、1024×800像素、24位真彩色、NTSC制式（30帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为（　　）

  A．23MB

  B．70 MB

  C．703 MB

  D．5625 MB
  组卷：19引用：6难度：0.9

  解析

• 2．【加试题】将一幅未经压缩的1024×768像素、8位色BMP图片，转换成JPEG格式后存储容量为256KB，则压缩比约为（　　）

  A．3：1

  B．4：1

  C．5：1

  D．6：1
  组卷：7引用：2难度：0.9

  解析

• 3．【加试题】在Gold Wave软件中，对选定部分的音频进行剪裁操作，状态栏界面如图所示，剪裁后保存为MP3格式，文件大小为312KB（Wave格式压缩为MP3的压缩比为5.5：1），则原Wave格式可能的采样频率和量化位数分别为（　　）
  

  A．22050Hz     16位	B．22050Hz     8位
  C．44100Hz     16位	D．44100Hz     8位
  组卷：1引用：2难度：0.5

  解析

• 4．【加试题】某校举行“我心中最美的校服”展示活动，得票数依次为125，137，198，118，172．若采用选择排序算法对其进行从大到小排序，则第二遍排序的结果是（　　）

  A．198，137，125，118，172	B．198，172，125，118，137
  C．198，172，137，118，125	D．198，172，137，125，118
  组卷：18引用：2难度：0.9

  解析

二、非选择题（本大题共3小题，其中第11小题6分，第12小题6分，第13小题8分）

• 12．某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列．例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶有编号顺序读出旗子数量，没有旗子的桶略过，得到有序整数为“2，3，5，5，8”．
  为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0，9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Commandl,在列表框Lixt2中显示经过上述排序算法后的数据，运行结果如第如图2所示．
  实现上述功能 的VB代码如下，但加框代码有错，请改正．
  Dim a（10）As Integer’数组a表示桶的编号，如a（0）表示第0号桶
  Private Sub Commandl_-Click（　　）
      Dim i As Integer,j As Integer
      For i=0 to 10
          For j=1 to
              List2．AddItem CStr（i）
          Next j
      Next i
  End Sub
  Private Sub Form-Load
      Dim i As Integer
      Randomize
      For i=0 to 10’将数组初始化为0
          a（i）=0
      Next i
      For i=1 to 6’产生6个[0，9]的随机数
          t=Int（Rnd*10）
          a（t）=’第t桶中小旗子数量加1
          List1．AddItem  CStr（t）
      Next i
  End Sub.
  组卷：4引用：3难度：0.3

  解析

• 13．小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名。程序运行时，单击“显示”按钮Commmad1，学生选课数据显示在列表框list1中，各科编号及对应科目名称显示列表框list2中，单击“统计”按钮Commmad2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示。
  
  实现上述功能的VB程序如下，请回答下列问题：
  （1）学生选课的编码数据存储在数据表中，其字段名为。
  （2）请在横线处填入合适的代码。
  Dim ach（1To 500）As String'存储各学生选课编码
  Dim bno（1To 10）As Integer'存储各科目编号
  Dim bname（1To 10）As String'存储各科目名称
  Dim bnum（1To 10）As Integer'存储各科目被选次数
  Dim bmc（1To 10）As Integer'存储各科目被选的名次
  Dim n As Integer,num As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,km As String
  km=“物理化学生物政治历史地理技术“
  Dim cn As New ADODB．Connection,rs As New ADODB．Recordset,sql As String
  cn.Open“provider=Microsoft.Jet.jye.ai.4.0；Data Source=“+App.Path+“\students.jye.ai“
  rs.Open“select*from choose“，cn
  Do While Not rs.EOF
  n=n+1：ach（n）=rs.Fields（“subject“）：rs.MoveNext
  Loop
  rs.Close
  cn.Close
  Set rs=Nothing
  Set cn=Nothing
  For i=1To 7
  bno（i）=i
  bname（i）=Mid（km,（i-1）*2+1，2）
  List2．AddItem Str（bno（i））+“---“+bname（i）
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  Dim i As Integer,j As Integer,k As Integer
  Dim c As String,per As Integer
  For i=1To n
  If check（ach（i））=True Then
  For j=1To 3
  c=Mid（ach（i），j,1）
  bnum（Val（c））=①
  Next j
  num=num+1
  End If
  Next i
  i=1
  Do While i＜=7'该循环得到各学科被选人数的名次
  bmc（i）=1
  For j=1To 7
  If bnum（j）＞bnum（i） Then ②
  Next j
  i=i+1
  Loop
  For i=1To 7
  For j=1To 7
  If ③ Then
  per=Int（bnum（j）*100/num*100）/100
  List3．AddItem Str（bno（j））+“---“+bname（j）+“---“+Str（per）+“%“
  End If
  Next j
  Next i
  End Sub
  Function check（s As String） As Boolean
  '代码略!若学生选科代码有效，函数返回True,否则返回False
  End Function
  组卷：2引用：1难度：0.4

  解析