2018-2019学年浙江省温州市十校联合体高二（上）期末信息技术试卷

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

• 1．下列关于信息和信息技术的说法不正确的是（　　）

  A．多媒体技术和网络技术是常见的信息表达方式

  B．信息必须依附于载体，不存在没有载体的信息

  C．信息可以脱离它所反映的事物被存储和传播

  D．同一种信息内容可以采用不同的表达方式
  组卷：24引用：2难度：0.6

  解析

• 2．下列关于网页和网络协议的说法，正确的是（　　）

  A．POP3协议用于发送E-mail

  B．IE浏览器可用于编辑网页文件

  C．网页文件是用HTTP语言描述的

  D．收藏网页其实就是保存网页的URL
  组卷：3引用：2难度：0.6

  解析

• 3．下列应用中，体现了人工智能技术的有（　　）
  ①装有传感器的“智能小车”，自动沿着黑线路径行驶
  ②机器人AlphaGo与围棋大师对弈
  ③使用人脸检测的门锁系统
  ④Excel自动填充功能
  ⑤用摄像头配合软件自动识别汽车牌照

  A．①②⑤

  B．②③⑤

  C．②④⑤

  D．③④⑤
  组卷：16引用：2难度：0.7

  解析

• 4．对于数据库和数据表，下列说法正确的是（　　）

  A．数据库不能被多个用户同时访问

  B．计算机中的数据只能存放在数据库中

  C．Access数据表中，同一列的数据类型肯定相同

  D．Access数据表视图中，不能对字段进行添加、删除操作
  组卷：26引用：4难度：0.5

  解析

• 5．使用UltraEdit软件观察字符“技术选考100FEN!”的内码，部分界面如图所示。
  
  下列说法正确的是（　　）

  A．全部字符共占用15个bit

  B．字符“!”的二进制码是“10110”

  C．字符“J”的十六进制码是“50”

  D．字符“9”的十进制码是“57”
  组卷：19引用：2难度：0.5

  解析

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

• 15．编写“数字提取”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下，请回答下列问题：
  
  （1）如图所示，该程序共有个对象。
  （2）请根据题意将下列程序补充完整。
  Private Sub Command1_Click （　　）
  Dim m As String,tmp As String,ch As String
  Dim s As String,i As Integer
  m=Text1．Text
  tmp=““
  s=““
  For i=1To Len（m）
  ch=Mid（m,i,1）
  If ch＞=“0“And ch＜=“9“Then
  ①

   

  
  ElseIf tmp＜＞““Then
  s=s+tmp+“，“
  ②

   

  
  End If
  Next i
  
    Text2．Text=s
  End Sub
  （3）输入的文本信息如图a所示，若删除加框处代码，则文本框Text2中显示的内容为

   

  。
  组卷：5引用：1难度：0.4

  解析

• 16．素数迁移：小王编写了一个VB程序，在左边List1中显示随机生成的10个介于[2，99]的随机整数，单击命令按钮Command1后，其中的素数全部迁移到右边的List2中并进行显示，同时只有那些非素数（合数）的才继续在List1中显示，运行界面如图所示。
  
  实现上述功能的VB程序如下，请回答下列问题。
  （1）根据代码可知，若要产生20个随机数，只需将的值修改为20即可。
  （2）请在横线处填入合适代码。
  Const n=10
  Dim a（1To n） As Integer
  Private Sub Command1_Click （　　）’素数迁移模块
  Dim i As Integer
  List1．Clear’清除列表框
  List2．Clear
  For i=1To n
  For j=2To a（i）-1
  If ①

   

  Then
  Exit For’Exit For的功能是退出For循环
  End If
  Next j
  If ②

   

   Then
  List2．AddItem Str（a（i））
  Else
  List1．AddItem Str（a（i））
  End If
  Next i
  End Sub
  Private Sub Form_Load （　　）’随机数初始化模块
  Randomize’随机数种子初始化
  For i=1To n
  a（i）=③

   

  
  List1．AddItem Str（a（i））
  Next i
  End Sub
  组卷：4引用：2难度：0.5

  解析