2017-2018学年浙江省绍兴市诸暨市牌头中学高三（上）月考信息技术试卷（1月份）

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

• 1．下列有关移动设备的使用行为，安全隐患最小的是（　　）

  A．在公共场合使用免费的WIFI进行转账

  B．从第三方提供的商城平台下载山寨APP

  C．随意打开微信好友发来的链接地址

  D．安装具有智能分析功能的反病毒软件
  组卷：17引用：2难度：0.9

  解析

• 2．使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是（　　）
  

  A．文中有2个用户共做了2处批注

  B．接受所有修订后，①处文字为“独上兰舟”

  C．①处使用了自动更正功能

  D．②处红色波浪线说明此处可能存在语法错误
  组卷：0引用：2难度：0.4

  解析

• 3．使用Access软件创建某数据表，并在该数据表中录入了部分数据。下列说法正确的是（　　）

  A．可将“文本”字段类型修改为“自动编号”类型

  B．删除记录后，可使用“撤销”命令来恢复

  C．能在数据表的“设计视图”中新建一个字段

  D．能在被设为“主键”的字段中输入重复的字段值
  组卷：10引用：2难度：0.5

  解析

• 4．某算法的部分流程图如图所示，执行这部分流程后，变量s的值是（　　）
  

  A．2

  B．10

  C．58

  D．442
  组卷：0引用：2难度：0.7

  解析

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

• 13．某一条形码是由13位数字组成的编码，其末位是校验码。条形码校验的方法如下：
  ①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；
  ②将偶数的数字之和乘以3，加上奇数的数字之和；
  ③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；
  ④若m的值为10，则将m的值修改为0，否则不变；
  ⑤若m和校验码相等则输出“校验码正确！”，否则输出“校验码错误！”。
  现编写一个VB程序，实现如下功能：在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。
  实现上述功能的VB程序如下，但加框处代码有错，请改正。
  Private Sub Command1_Click （　　）
  Dim s As String,x As Integer
  Dim n As Integer,jsAs Integer,os As Integer,m As Integer
  Js=0：Os=0
  s=Text1．Text
  
  If n＜＞13Then
  Label1．Caption=“条形码位数错误!“
  Else
  For i=1To 12
  
  If x Mod 2＜＞0Then
  js=js+x
  Else
  os=os+x
  End If
  Next i
  m=os*3+js
  m=10-m Mod 10
  Ifm=10  Then m=0
  If m=Val（Mid（s,n,1）） Then
  Label1．Caption=“校验码正确!“
  Else
  Label1．Caption=“校验码错误!“
  End If
  End If
  End Sub
  组卷：2引用：2难度：0.5

  解析

• 14．小明编写了一个统计成绩的VB程序：编写一个过程，该过程从数据库读取学生的物理，化学，生物科目成绩，分别存储到数组a、b、c中；另又编写一个过程，该过程依据数组a,b,c中的相关数据统计班级物理、化学、生物三门成绩大于
  

  门数	学号	说明
  只有一门＞=85分	1，10	d（i）存放每个学号对应的大于等于85分科次
  只有两门＞=85分	2，3，4，6，12
  只有三门＞=85分	7，8，9，11

  等于85分的学号。部分学号的成绩统计如图所示。
  程序功能如下：单击“统计”按钮Command2，程序进行统计处理，结果输出在列表框
  List1、List2、List3中。程序运行界面如图所示。
  （1）在Command1_Click （　　）过程中变量n的作用是。
  （2）请在横线处填入合适的代码。
  Dim a（1to 600）as integer'数组a存放物理成绩
  Dim b（1to 600）as integer'数组b存放化学成绩
  Dim c（1to 600）as integer'数组c存放生物成绩
  Dim n as integer
  PrivateSub Command1_Click （　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Conn ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“+“Score.jye.ai“
  Conn.Open
  Set rs.ActiveConnection=conn
  rs.Open“SELECT*FROM whs“
  n=0
  Do While Not rs.EOF'从数据表中读取各科的数据赋值到相应数组
  n=n+1
  a（n）=rs.Fields（“物理“）
  b（n）=rs.Fields（“化学“）
  c（n）=rs.Fields（“生物“）
  rs.MoveNext
  Loop
  '本过程的其他语句略
  End sub
  Private Sub Command2_Click （　　）
  '依据数组a中的相关数据统计各学生每门课大于等于85分的学号
  Dim i As Integer
  Dim d（1to n） As Integer
  For i=1to n
  ①
  Next i
  List1．AddItem“三门学科＞=85分的学号有：“
  List2．AddItem“两门学科＞=85分的学号有：“
  List3．AddItem“一门学科＞=85分的学号有：“
  For i=1To n
  If a（i）＞=85Then
  d（i）=d（i）+1
  End If
  If b（i）＞=85Then d（i）=②
  If ③ Then
  d（i）=d（i）+1
  End If
  Next i
  For i=1To n
  If d（i）=3Then List1．AddItem Str（i）
  If d（i）=2Then List2．AddItem Str（i）
  If d（i）=1Then List3．AddItem Str（i）
  Next i
  End Sub
  组卷：3引用：1难度：0.4

  解析