2015-2016学年浙江省杭州二中高二（下）期中信息技术试卷

一、选择题（本大题共9小题，每小题2分，共50分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．在春节期间，小李通过手机微信群给同学们发红包，群中所有人看到后都能争抢红包，微信群中这一现象主要体现了信息的（　　）

  A．共享性

  B．真伪性

  C．可处理性

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

  解析

• 2．如图所示为某动画序列的4幅相邻图象，这些图象之间存在一定的相关性，下列说法正确的是（　　）
  

  A．该相关性表现为视觉冗余

  B．该相关性表现为结构冗余

  C．由该序列组成的gif文件导入flash舞台，能直接生成逐帧动画

  D．由该序列组成的gif文件导入flash舞台，能直接生成补间动画
  组卷：9引用：7难度：0.9

  解析

• 3．王林平时关注手机电池的正确使用，有关锂电池的文章截图如图所示：
  
  下列说法正确的是（　　）

  A．图中只有1处批注，批注内容为“锂电池”

  B．图中共有2处修订，修订选项的标记是可以自定义的

  C．最后一句修订之前的文字应为“不宜过充和过放，否则对锂电池造成较大伤害”

  D．接受修订之后图中最后一句文字应为“不宜过充和过放，对锂电池造成较大伤害”
  组卷：10引用：7难度：0.9

  解析

• 4．某学生的Win10自带邮件客户端软件如图所示，某次使用过程中能正常接收邮件但无法发送邮件，下列说法正确的是（　　）

  A．可能是SMTP协议设置错误

  B．可能是POP3协议设置错误

  C．可能是HTTP协议设置错误

  D．可能是TCP/IP协议设置错误
  组卷：5引用：6难度：0.9

  解析

• 5．小明通过ATM机进行存款等操作，下列说法正确的是（　　）

  A．ATM机的操作界面属于数据库管理系统

  B．登录银行卡账户的过程是对数据库进行“查询记录”操作

  C．向账户进行存款的过程是对数据库进行“修改记录”操作

  D．修改短信通知的手机号码，是对手机号码相应的字段类型进行修改
  组卷：11引用：6难度：0.9

  解析

四、【加试题】（共2小题，满分6分）

• 16．如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对（运行效果如图所示）。
  实现上述功能的VB代码如下，但加框处代码有错，请改正。
  Dim a（1To 50）As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer
  k=0：i=3
  Do While i＜=100
  If Then‘（1）
  k=k+1
  a（k）=i
  End If
  i=i+2
  Loop
  For i=2To k
  If Then‘（2）
  List1．AddItem Str（a（i-1））+“和“+Str（a（i））
  End If
  Next i
  End Sub
  Function prime（x As Integer） As Boolean
  prime=False
  For i=2To Int（Sqr（x））
  If x Mod i=0Then
  prime=True
  Exit For
  End If
  Next i
  End Function。
  组卷：15引用：4难度：0.1

  解析

• 17．编写VB程序，实现如下功能：单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示．（运行效果如第17题图所示）．实现上述功能的VB代码如下，请填入合适代码．
  
  Dim a（1To 6）As Integer
  Dim b（1To 6）As Integer
  Private Sub Command1_Click （　　）'对数组a中的数据进行排序
  Dim i As Integer,j As Integer,k as integer
  a（1）=53：a（2）=18：a（3）=62：a（4）=22：a（5）=6：a（6）=25
  s=““
  For i=1To 5
  k=i
  For j=i+1To 6
  If a（k）＞a（j） Then

   

  
  Next j
  If i＜＞k Then
  t=a（k）：a（k）=a（i）：a（i）=t
  End If
  Next i
  For i=1 To 6
  s=s+Str（a（i））
  Next i
  Label1．Caption=s
  End Sub
  Private Sub Command2_Click （　　）
  b（1）=3：b（2）=8：b（3）=15：b（4）=27：b（5）=38：b（6）=49
  '此处部分代码省略
  End Sub
  Private Sub Command3_Click （　　）
  '将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
  i=1：j=1：s=““
  Do While i＜=6

   

  j＜=6'如果两数组都还有数据未合并
  If

   

  Then
  s=s+Str（a（i））：i=i+1
  Else
  s=s+Str（b（j））：j=j+1
  End If
  Loop
  Do While i＜=6'只有数组a还有数据未合并
  s=s+Str（a（i））：i=i+1
  Loop
  Do While j＜=6'只有数组b还有数据未合并
  s=s+Str（b（j））：j=j+1
  Loop
  Label3．Caption=s
  End Sub.
  组卷：11引用：1难度：0.1

  解析