2017-2018学年浙江省绍兴高级中学高二（上）期末信息技术试卷

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

• 1．中国某即时通信软件的“红包”服务功能，有一项规定：红包在发起后的24小时内没有被领取，将自动退款．这个规定主要是保证信息的（　　）

  A．时效性

  B．共享性

  C．交互性

  D．载体依附性
  组卷：26引用：6难度：0.9

  解析

• 2．“饿了么”是中国知名的在线外卖订餐平台，为中国广泛地区的用户提供丰富多样的便捷生活服务。该软件商家版下载界面部分截图如图所示：根据图中信息，下列关于该软件的说法不正确的是（　　）

  A．存储容量约为50MB

  B．该软件可以在Windows10系统中运行

  C．评价方法采用了个人推荐的方式

  D．通过扫描图中的二维码可以在手机端下载该软件
  组卷：24引用：1难度：0.9

  解析

• 3．某文档在Word修订模式下修改后的部分界面如图所示：
  
  拒绝其中所有的修订和删除所有的批注后文字内容将变为（　　）

  A．梅花，冰枝嫩绿，疏影清雅，花色美秀，幽香宜人。它，桃红，鹅黄，雪白…数不胜数。红如朝霞，白似瑞雪，宛如碧玉。这儿一簇，那儿一簇，真可谓“梅开春烂漫”

  B．梅花，冰枝嫩绿，疏影清雅，花色美秀，幽香宜人。它五彩斑斓，桃红，鹅黄，雪白…数不胜数。红如朝霞，白似瑞雪，绿如碧玉。这儿一簇，那儿一簇，真可谓“梅开春烂漫”

  C．冰枝嫩绿，疏影清雅，花色美秀，幽香宜人。它，桃红，鹅黄，雪白…数不胜数。红如朝霞，白似瑞雪，如碧玉。这儿一簇，那儿一簇，真可谓“梅开春烂漫”

  D．梅花，冰枝嫩绿，疏影清雅，花色美秀，幽香宜人。它五彩斑斓，桃红，鹅黄，雪白…数不胜数。红如朝霞，白似瑞雪，宛如碧玉。这儿一簇，那儿一簇，真可谓“梅开春烂漫”
  组卷：23引用：1难度：0.9

  解析

• 4．下列关于Access数据库的说法错误的是（　　）

  A．删除记录操作是不可恢复的操作，在删除记录前必须要确认是否真的要删除该记录

  B．数据类型为自动编号的字段数据不一定是连续的

  C．删除字段操作是不可恢复的操作，删除字段后不会减少记录数

  D．复制记录时，通过【粘贴】命令，只能将记录添加到数据表的末尾
  组卷：10引用：1难度：0.5

  解析

• 5．如图所示是一个8*8像素的黑白二色位图，加入使用0表示白色、1表示黑色，按照行从左向右的次序对该图象信息进行编码（不考虑压缩），将该图象编码信息的字节数基座X，表示第一行图象信息的十六进制编码记做Y．下列选项中正确的X，Y组合是（　　）

  A．64，44H

  B．8，BBH

  C．8，9CH

  D．16，A7H
  组卷：25引用：1难度：0.7

  解析

【加试题】

• 16．小李编写VB程序模拟“中国福利彩票双色球”抽奖，实现如下功能：双色球投注区分为红色球号码区和蓝色球号码区，红色球号码区由1-33共33个号码组成，蓝色球号码区由1-16共16个号码组成。每次随机选择6个红色球号码（红球号码不能重复出现）和1个蓝色球号码（可以和红色号码相同），界面如图所示。单击“产生号码”按钮（Command1）在Text1中产生红球号码，在Text2中产生蓝球号码。单击“退出”按钮（Command2）结束程序。
  
  实现上述功能的VB程序如下，但加框处代码有错误，请改正。
  Dim a（1To 6）As Integer
  Private Sub Command1_Click （　　）
  Dim y As Integer,i As Integer
  Text1．Text=““
  Randomize
  For i=1To 6
  a（i）=Int（Rnd*33）+1
  Do While And i＞1
  a（i）=Int（Rnd*33）+1
  Loop
  Next i
  For i=1To 6
  Text1．Text=Text1．Text+Str（a（i））
  Next i
  y=
  Text2．Text=Str（y）
  End Sub
  Function check（m As Integer,n As Integer） As Boolean
  Dim j As Integer
  check=False
  For j=1To n-1
  If m=a（j） Then
  check=True
  Exit For
  End If
  Next j
  End Function
  Private Sub Command2_Click （　　）
  End
  End Sub
  组卷：0引用：1难度：0.5

  解析

【加试题】

• 17．某农科所研究不同品种生猪产肉量比，数据利用Visual Basic 进行数据处理，生猪的品种编号、产肉比等数据存储在某数据库文件中，程序运行界面如下：
  
  程序运行后，在列表框List1中显示生猪品种编号以及对应的产肉比，单击“排序”按钮（Command1）后，在列表框List2中显示以产肉比的高低，进行降序排列后的生猪品种编号以及对应的产肉比；单击“查找”按钮（Command2）后，在列表框List3中显示产肉比相同的品种编号。
  请在横线处填入合适的代码。
  Dim conn As New ADODB．Connection
  Dim cmd As New ADODB．Command
  Dim rs As New ADODB．Recordset
  Dim NO（1To 20）As String‘品种编号
  Dim Crb（1To 20）As Single‘产肉比
  Dim n As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t1As String,t2As Single
  For i=1To 19
      For j=20To i+1Step-1
  If①

   

   Then
  t1=NO（j）：NO（j）=NO（j-1）：NO（j-1）=t1
  t2=Crb（j）：Crb（j）=Crb（j-1）：Crb（j-1）=t2
  End If
  Next j
  Next i
  List2．Clear
  For i=1To 20
  List2．AddItem NO（i） &““& Str（Crb（i））
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  Dim s As String,k As Integer,flag As Boolean
  For i=1To 19
  s=““
      k=i
  s=②

   

  
  flag=False
      For j=i+1To 20
  If ③

   

   Then
  s=s+“和“+NO（j）
  flag=True
  End If
  Next j
  If flag=True Then List3．AddItem s
  Next i
  End Sub
  Private Sub Form_Load （　　）
  conn.ConnectionString=“Provider=microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\szcrb.jye.ai“
  conn.Open
  strsql=“select*from crb“
  Set rs.ActiveConnection=conn
  本过程其他代码略
  End Sub
  组卷：3引用：1难度：0.5

  解析