2016-2017学年浙江省绍兴市诸暨市牌头中学高二（下）期中信息技术试卷

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

• 1．关于信息安全与网络道德，下列做法正确的是（　　）

  A．确认环境安全后输入支付密码

  B．随意扫描网页中的二维码

  C．未经许可，将他人的私人生活视频传到网上

  D．在论坛里转发会造成社会不良影响的信息
  组卷：41引用：13难度：0.9

  解析

• 2．下列有关浏览器与网页的说法，正确的是（　　）

  A．在IE浏览器中清空历史记录，收藏夹中的网址被同时清空

  B．通过搜索引擎检索到的信息，排在前面的可信度必定较高

  C．通过超链接可实现网页之间的跳转

  D．IE浏览器中以“仅HTML”格式另存网页，网页中的图片同时被保存
  组卷：6引用：1难度：0.9

  解析

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

  A．批注的对象是“地处西湖边”

  B．删除批注，文字“太子湾”同时被删除

  C．修订前，第三行文字是“地处西湖边太子湾公园，郁金香花争奇斗艳．”

  D．接受所有修订后，第三行文字是“太子湾公园中郁金香花争奇斗艳．”
  组卷：38引用：3难度：0.9

  解析

• 4．使用UltraEdit软件观察字符“挑战AlphaGo!“的内码，部分界面如图所示，下列说法正确的是（　　）
  

  A．字符“!”的内码占两个字节

  B．字符“战”的十六进制码是“BD 41”

  C．字符“h“的二进制码是“01101000”

  D．字符“go“的十六进制码是“47 6F”
  组卷：91引用：9难度：0.7

  解析

• 5．关于Access数据表的操作，下列说法正确的是（　　）

  A．重命名数据表，数据表名不能与表中的字段名相同

  B．删除字段，数据表中该字段的值随之被删除

  C．删除记录，剩余记录值数据类型有自动编号的字段值会自动更新

  D．Access数据表不能导出Excel电子表格
  组卷：39引用：6难度：0.7

  解析

二、非选择题（本大题共5小题，其中第10题4分，第11小题5分，第12小题8分，共17分）

• 16．小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示．文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5显示替换的次数，Text6显示“查找内容”在原文中的起始位置．加框处有错误，请改正
  
  Private Sub Command1_Click （　　）
  Dim s As String,resule As String,pos As String
  Dim count As Integer,i As Integer
  i=1：count=0
  resule=““：pos=““
  Do While i＜=Len（Text1．Text）
  s=Mid（Text1．Text,i,Len（Text2．Text））
  If s=Text2．Text Then
  result=result+Text3．Text
  count=count+1
  
  i=i+Len（Text2．Text）
  Else
  
  i=i+1
  End If
  Loop
  Text4．Text=result
  Text5．Text=Str（count）
  Text6．Text=pos
  End Sub.
  组卷：8引用：1难度：0.1

  解析

• 17．小王编写了一个依据成绩统计名次的VB程序，成绩为0到100之间的整数．算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列．最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推．程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次．例如，下表中最高分100分有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名．
  

  分数	100	99	98	97	96	95	94	…	0
  个数（A数组）	2	0	0	0	1	0	3		0
  名次（B数组）	1				3		4

  程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2，程序运行界面如图如所示．
  
  实现上述功能的VB程序如下：请回答下列问题：
  （1）如表示，若分数93的个数为2，则该分数对应的名次为

   

  ．
  （2）请在横线处填入合适的代码
  Dim sName（1to 50）As String‘存放学生姓名
  Dim sScore（1to 50）As Integer’存放学生分数
  Dim recount As Integer’存放学生人数
  Private Sub Form_load （　　）
  ‘本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
  ‘代码略
  End Sub
  ‘整数转换成长度固定的字符串
  Function ads（x As Integer,n As Integer）As string
  Dim sx As String,nx As Integer,i As Integer
  sx=Str（x）：nx=Len（sx）
  For i=1to n-nx
  sx=””+sx
  Next i
  ①

   

  
  End Function
  Private Sub Command1_click（　　）
  Dim A（0to 100）As Integer’存放每个分数的个数
  Dim B（0to 100）As Integer’存放每个分数的名次
  Dim mc As Integer,score As integer,i As Integer
  For i=0to 100⑧
  A（i）=0
  Next i
  For i=1to recount’计算每个分数的个数
  ②

   

  
  Next i
  mc=1
  For i=100to 0step-1’计算每个分数名次
  If A（i）＜＞0Then
  B（i）=mc
  ③

   

  
  End if
  Next i
  List2．clear
  List2．additem“姓名  分数  名次”
  List2．additem”--------”
  For i=1to recount
  score=sScore（i）
  mc=B（sScore（i））
  list2．additem sName（i）+ads（score,5）+”第”+ads（mc,3）+”名”
  Next i
  End Sub.
  组卷：10引用：1难度：0.1

  解析