2019年浙江省余姚市高考信息技术二模试卷

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

• 1．下列有关信息的说法，正确的是（　　）

  A．信息无处不在，很多时候可以被轻易感知

  B．因特网是目前主流的信息表达方式

  C．信息的来源多种多样，信息的获取方法却大同小异

  D．信息技术是以高科技手段采集、存储、传输和处理信息的过程
  组卷：31引用：2难度：0.5

  解析

• 2．下列有关电子邮件的说法，不正确的是（　　）

  A．POP3 协议可以将邮件服务器上的邮件接收到本地计算机上

  B．网页版电子邮箱在浏览器中显示时的内容实质上是 HTML 代码

  C．可以通过“收件人”、“抄送”和“密送”添加多个收件人

  D．电子邮件一旦发送便会通过 FTP 协议传送至对方的邮件服务器
  组卷：4引用：2难度：0.6

  解析

• 3．下列应用中，体现人工智能技术的有（　　）
  ①UPS（不间断电源）在停电后会自动切换为后备电源
  ②某款产品能实现对全屋电器的声控，解放双手
  ③手机通过安装某APP能实现对各种电器的遥控
  ④某APP根据拍摄的作业照片给出相应的解题信息
  ⑤公安部门通过“天眼”系统快速查找、定位到犯罪嫌疑人

  A．①②④

  B．①④⑤

  C．②④⑤

  D．③④⑤
  组卷：29引用：5难度：0.7

  解析

• 4．用Access软件打开数据库，部分界面如图所示。下列说法正确的是（　　）
  

  A．“班级”字段的数据类型为数字型

  B．将“姓名”字段名称改为“NAME”，该字段的值不会丢失

  C．删除“信息”和“通用”两个字段后无法恢复，并且会影响总分

  D．在“学号”字段输入220509后提示有重复数据，说明该字段为“自动编号”型
  组卷：8引用：2难度：0.6

  解析

• 5．用 UltraEdit 软件观察字符内码，下列说法正确的是（　　）
  

  A．图中的 ASCII 码字符共有 5 个

  B．空格字符“”的内码用十六进制表示为“AE”

  C．大写字母“P”的内码用二进制表示为“01010000”

  D．将内码“31”改成“40”，后面的文字“1”将会变成“10”
  组卷：19引用：2难度：0.5

  解析

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

• 16．小吴为了研究排序后的各数据在排序前的位置，编写了一个 VB 程序，功能如下：在列表框 List1中显示排序前数据（存储在数组a中），单击“排序”按钮 Command1 后，在列表框 List2 中显示排序后的数据及该数据在排序前的位置。程序运行界面如图所示：
  实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
  Dim d（1 To 12）As Integer'存储排序前的数据
  Private Sub Form_Load （　　）
  d（1）=13：d（2）=49：d（3）=26：d（4）=35：d（5）=73：d（6）=15：d（7）=22：d（8）=86
  d（9）=31：d（10）=10：d（11）=41：d（12）=44
  Dim i As Integer,j As Integer
  For i=1 To 12
  List1．AddItem d（i）
  Next i
  End Sub
  Private Sub Command1_Click （　　）
  Dim a（1 To 12）As Integer'存储排序后的数据
  Dim b（1 To 12）As Integer'存储排序前各数据所在位置
  Dim c（1 To 12）As Boolean'数组 c 用来判断排序的数据是否已筛选出
  Dim i As Integer,k As Integer,j As Integer
  For i=1 To 12
  a（i）=0
  b（i）=0
  c（i）=false
  Next i
  k=0
  For i=1 To 12
  For j=1 To 12
  If   Then‘（1）
  a（i）=d（j）
  k=j
  End If
  Next j
  ‘（2）
  c（k）=True
  Next i
  For i=1 To 12
  List2．Addltem Str（a（i））+““+Str（b（i）
  Next i
  End Sub
  组卷：5引用：1难度：0.5

  解析

• 17．小张利用 VB 给教务处老师编写了“排监考表”的小程序。该程序的执行过程如下：
  ①从数据库中读取待排监考的老师姓名信息存入数组 teachers,每个考试科目的学生数（新高考7选3，每个考试科目学生数不一样）存入数组xkStudSum（其中xkStudSum（1）存放语文学科的学生数，按“语文数学英语物理化学生物政治历史地理技术”依此类推）；
  ②根据每个试场的人数（30 人）计算出各个考试科目的试场数存入数组 xkSc（其中 xkSc（1）存放语文学科的试场数，依此类推）；
  ③将待排教师分配到每一个考场，并存入数组scTeacher（每个老师只能排1场，教师 数量100保证大于所有的试场数）；
  ④按考试科目将监考教师姓名显示在list1中。运行界面如图所示：
  
  （1）实现上述功能的VB程序如下，请完善横线处的代码。
  Const XKMC=“语文数学英语物理化学生物政治历史地理技术“
  Dim xkStudSum（1 To 10）As Integer'各个考试科目学生数
  Dim teachers（1 To 100）As String'存放待排监考的教师姓名
  Dim scTeacher（1 To 100）As String'存放已排监考的教师姓名
  Dim xkSc（1 To 10）As Integer'各个学科试场数
  Private Sub form_Load （　　）
  ‘本过程从数据库中读取各考试科目学生数并存放在数组 xkStudSum‘读取教师姓名并存放在数组teachers
  ‘本过程代码略
  End Sub
  Private Sub Command1_Click （　　）
  Dim index As Integer
  Dim totalSc As Integer‘存放总试场数量
  Dim book（1 To 100）As Boolean
  Randomize
  For　i=1 To 10
  xkSc（i）=①

   

  
  totalSc=totalSc+xkSc（i）
  Next i
  For i=1 To totalSc
  t=Int（Rnd

   

  *100）+1‘随机生成待排监考老师的编号
  If  not book（t）  Then
  scTeacher（i）=teachers（t）
  book（t）=True
  Else
  ②

   

  
  End If
  Next i
  ‘按考试科目显示监考老师
  For i=1 To 10
  s=Mid（xkmc,2*i-1，2）+“：“
  For j=1 To xkSc（i）
  ③

   

  
  s=s+scTeacher（index）+“，“
  Next j
  List1．AddItem s
  Next i
  End Sub
  （2）根据问题描述和分析代码，写出数组scTeacher中存放“数学学科”第2个监考教师姓名的下标的vb表达式

   

  。
  组卷：8引用：1难度：0.3

  解析