2017年浙江省普通高校高考信息技术模拟试卷（12）

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

• 1．智能手机为用户提供了设置屏幕锁，其主要目的是提升手机信息的（　　）

  A．共享性

  B．载体依附性

  C．时效性

  D．安全性
  组卷：12引用：4难度：0.9

  解析

• 2．使用浏览器软件打开某网页文件如图所示，对该网页文件分析如下：
  ①文件名为“djyssw.jye.ai”；
  ②文件名为“冬季养生食物．htm”；
  ③可使用“记事本”软件编辑；
  ④可使用“ACDSee”软件浏览；
  ⑤该网页文件是用HTML语言描述的．
  
  其中正确的有（　　）

  A．①③⑤

  B．①②③

  C．②④⑤

  D．③④⑤
  组卷：8引用：2难度：0.9

  解析

• 3．某用户撰写电子邮件的部分界面如图所示：
  
  下列说法正确的是（　　）

  A．该邮件将直接发到所有收件人的电脑上

  B．该邮件共有两个附件

  C．该邮件共有3个收件人

  D．用户skk1999收到邮件时，可以看见所有收件人的邮箱地址
  组卷：5引用：2难度：0.9

  解析

• 4．“铁路12306”手机APP上线以来，越来越多的用户使用“铁路12306”手机APP购买火车票。下列操作中不涉及数据库的是（　　）

  A．下载“铁路12306”安装包

  B．注册“铁路12306”账号

  C．使用“铁路12306”查询车票信息

  D．使用网银进行网上付款
  组卷：12引用：2难度：0.7

  解析

• 5．已知a=1，b=2，c=3，则下列表达式结果一定为真的是（　　）

  A．（a＞b）or（b＞c）

  B．not（b＞c）and not（c＞a）

  C．（a＜=b）and（b-a＜c）or（a+b＞c）

  D．（a+b=c）and not（a＜b）
  组卷：25引用：1难度：0.5

  解析

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

• 16．【加试题】一个程序功能如下：单击开始按钮，每隔1秒产生一个[1，100]内的随机整数，赋给变量n,对产生的随机整数进行判断，如果是偶数就显示在列表框List1中，如果是奇数就显示在列表框List2中．当随机整数达到20个时，停止．Timer控件的Enabled属性设置为False,即程序刚运行时不起作用．程序代码如下：
  
  Dim m As Integer'm为模块级变量，用于记录随机整数个数
  Private Sub Command1_Click（　　）
  Randomize
  Timer1．Enabled=True
  End Sub
  Private Sub Timer1_Timer（　　）
  Dim n As Integer
  

   

  
  If

   

  Then
  List1．AddItem n
  Else
  List2．AddItem n
  End If
  m=m+1
  If m=20 Then
  

   

  
  End Sub
  在程序①、②、③横线处填入适当的语句或表达式，把程序补充完整．
  （1）程序中①横线处应填入

   

  ．
  （2）程序中②横线处应填入

   

  ．
  （3）程序中③横线处应填入

   

  ．
  组卷：12引用：1难度：0.3

  解析

• 17．【加试题】年级里有100位同学参加技术期中考试，张老师编写了一个程序，能够找出第k名的分数和取得该分数的学生名单．分数相同的学生名次相同．程序界面如图所示．
  
  实现上述功能的程序如下，请在横线处填入合适的代码．
  Dim stname（1To 100）As String'存放学生姓名
  Dim stscore（1To 100）As Integer'存放对应的学生分数
  Dim paiming（1To 100）As Integer'存放对应的学生名次
  Private Sub Form_Load（　　）'链接数据库，将学生的姓名、分数分别对应存放在数组name和score中
  '代码略
  End Sub
  Private Sub Command1_Click（　　）
  Dim n As Integer,i As Integer
  k=Val（Text1．Text）
  For i=1To 99
  

   

  
  If stscore（j）＜stscore（j+1）Then
  temp=stscore（j）
  stscore（j）=stscore（j+1）
  stscore（j+1）=temp
  End If
  Next j
  Next i
  m=1：stscore（1）=1
  For i=2To 100
  '计算每位学生的名次，分数相同则名次相同
  If

   

  Then
  Paiming（i）=paiming（i-1）
  Else
  m=m+1
  paiming（i）=m
  End If
  Next i
  For i=k To 100
  If

   

  Then
  List1．AddItem name（k）&“”&Str（paiming（k））
  Loop
  End Sub.
  组卷：11引用：1难度：0.1

  解析