2019年4月浙江省普通高中学考选考信息技术模拟试卷

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

• 1．下列关于信息与信息安全的说法正确的是（　　）

  A．物质、能源、信息是人类社会的三大要素，使用过程中都会有损耗

  B．二维码中可能包含手机病毒、钓鱼网站等相关信息

  C．计算机病毒主要通过网络传播，只要不上网就不会感染计算机病毒

  D．信息技术的发展对人类社会产生了巨大变革，虚拟现实技术使信息脱离载体被表示
  组卷：28引用：5难度：0.5

  解析

• 2．下列关于因特网信息表达与评价的说法正确的是（　　）

  A．网页是有HTTP语言编写的，可以由记事本、FrontPage等软件编辑

  B．统计评价是网络信息评价的主要方式之一，评价结果是真实可信的

  C．使用浏览器收藏网页，实际上是保存的时网页的URL

  D．将网页以“Web档案，单个文件（*．mht）”类型保存，其中的图片未被保存
  组卷：43引用：1难度：0.4

  解析

• 3．下列关于字处理的相关说法正确的是（　　）

  A．在Word软件中，将批注的内容删除后，批注框会被保留

  B．在Word软件中，关闭“修订”功能后，原有的修订记录会自动隐藏

  C．在Word软件中，将图片设置为“嵌入型”，则可使得文字环绕图片的四周

  D．在Word软件中，“自动更正”功能可以自动更正错别字，属于人工智能技术
  组卷：33引用：1难度：0.5

  解析

• 4．某商场将采用“会员管理系统”管理客户的信息，会员信息表如下
  

  会员编号	姓名	积分	性别	余额	出生日期
  V101	张小明	461	男	¥820.0	1999-12-21
  P103	李小红	5000	女	¥786.0	2000-01-24
  ……	……	……	……	……	……

  若用Access数据表“会员信息”来存储上述表的信息，下列说法错误的是（　　）

  A．“会员管理系统”是一个数据库应用系统

  B．“会员编号”字段可以设置为“文本”类型

  C．为了便于信息管理，应将“姓名”字段设置成该表的主键

  D．在设计“会员信息”表时，需要考虑表与表之间的关系
  组卷：21引用：1难度：0.4

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程，则输出m,n,i的值依次为（　　）

  A．3  14  7

  B．0  20  7

  C．0  15  6

  D．3  15  7
  组卷：6引用：1难度：0.5

  解析

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

• 16．数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
  
  Private Sub Command1_Click （　　）
  Const n=15
  Dim a（1 To n） As Integer,search As Integer,key As Integer
  Dim i As Integer,j As Integer,m As Integer
  '读取一组正整数，按上述规则存入数组a中，代码略。
  key=Val（Text1．Text）
  i=1：j=n：search=0
  Do While i＜=j
  m=（i+j）\2
  If m Mod 3＜＞0 Then m='（1）把m调整到三个一组的最后一个数的位置
  If key=a（m） Then
  search=m：Exit Do
  ElseIf key＜a（m） Then
  j=m-3
  ElseIf  Then'（2）
  i=m+1
  ElseIf key=a（m-2）Then
  search=m-2：Exit Do
  ElseIf key=a（m-1）Then
  search=m-1：Exit Do
  Else
  search=0：Exit Do
  End If
  Loop
  If search＜＞0 Then
  Text2．Text=Str（search）
  Else
  Text2．Text=“找不到“
  End IfEnd Sub
  组卷：5引用：1难度：0.4

  解析

• 17．小胡收集了2018届高三学生高考成绩及相关的选科情况，存入数据库中，部分界面截图如图所示：
  
  程序功能如下：
  在窗体加载时，从数据库中读取学生总数N；读取N名学生的信息存储在相关数组中。N名学生的学号依次存储在数组xh（1）～xh（n） 中；学号为i的学生的总成绩存储在数组 zf（i）中，课程选修信息存储在xk（i）中；
  点击“统计”按钮后，程序筛选出所有技术考生的相关信息，并计算该学生在所有技术考生中的排名（总分相同的，排名也相同）。
  实现上述功能的VB程序如下，请回答下列问题：
  （1）请在横线处填入合适的代码。
  Dim xh（1 To 1000）As Integer’数据库中读取时第i为学生的学号存储在xh（i）
  Dim zf（1 To 1000）As Integer’学号为i的考生的总分存储在zf（i）
  Dim xk（1 To 1000）As String’学号为i的考生的选考课程信息存储在zf（i）
  ’数据格式**-**-**（如：物理-化学-生物）
  Dim jspm（1 To 1000）As Integer’学号为i的技术选考生的总分在所有技术考生中的
  ’排名存储在数组jspm（i）
  Private Sub Form_Load （　　）
  Dim conn   As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim  constr  as string,sql as string
  Constr=“Provider=Microsoft.ace.OLEDB.12.0；“
  Constr=constr &“Data Source=“& App.Path+“\data\stu2018．accdb“
  conn.ConnectionString=constr
  conn.open （　　）
  rs.Open“select*from 2018cj“，conn
  i=0
  Do While Not rs.EOF
  i=i+1
  xh（i）=rs（“xuehao”）
  zf（rs（“xuehao”））=rs（“fenshu”）
  xk（rs（“xuehao”））=rs（“xkinfo”）
  

   

  
  Loop
  N=i
  End Sub
  ’判断选科信息info中是否包含科目km
  Function YouKM（ByVal km As String,ByVal Info As String） As Boolean
  Dim km1 As String
  YouKM=False
  For i=1 To 3
  If

   

   Then
  YouKM=True
  Exit For
  End If
  Next i
  End Function
  '为技术学科考试求名次
  Private Sub Command1_Click （　　）
  Dim jsinfo（1 To 1000）As Integer’依次存储每个技术选考生的学号和成绩
  Dim k as integer’存储找到的技术选考学生的数量
  '将所有选考“技术”的考生学号、成绩依次存入数组jsinfo中
  k=0
  For i=1 To n
  If

   

  Then
  k=k+1
  jsinfo（2*k-1）=xh（i）
  jsinfo（2*k）=cj（xh（i））
  End If
  Next i
  '学号为i的学生在技术选考生中的排名，存入jspm（i）中
  For i=1 To k
  mc=0
  For j=1 To k
  If jsinfo （2*j）＞jsinfo （2*i） Then mc=mc+1
  Next j
  jspm（jsinfo（2*i-1））=

   

  
  Next i
  '输出所有技术考试的学号、成绩、技术排名信息  代码略
  End Sub
  组卷：6引用：1难度：0.4

  解析