2017-2018学年浙江省嘉兴市七校高二（下）期中信息技术试卷

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

• 1．下列关于信息与信息技术的说法，下列说法不正确的是（　　）

  A．短信诈骗体现了信息具有真伪性

  B．典型的近代信息技术有摄影技术、广播和电视技术等

  C．计算机加工处理音频信息，本质上是通过计算来完成的

  D．信息表达的数字化就是表达信息时要遵循一定的标准，以利于信息的交流
  组卷：2引用：1难度：0.8

  解析

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

  A．网页文件是用HTTP语言来描述的

  B．网页可能含有图形图象、动画等素材，故不能用记事本编辑网页

  C．在IE浏览器中清空历史记录，收藏夹中的内容同时被清空

  D．将IE浏览器中将当前浏览的网页添加到收藏夹，实质上是保存该网页的URL
  组卷：8引用：2难度：0.6

  解析

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

  A．文中批注的用户是S1

  B．删除文中的“卜算子”，批注内容不会被删除

  C．文中有4处修订

  D．修订前，第一行文字为“驿外断桥边，寂寞开无主。已是黄昏独自愁，更著风和雨。”
  组卷：23引用：3难度：0.5

  解析

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

  A．当前数据库至少包含9张数据表

  B．当前正处在“数据表视图”界面，故不可以修改字段的数据类型

  C．已打开的数据表名称是“学生”，共有23条记录

  D．可以在当前记录前，插入一条新记录
  组卷：0引用：1难度：0.6

  解析

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

  A．4

  B．2

  C．1

  D．46
  组卷：2引用：2难度：0.7

  解析

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

• 16．编写VB程序，实现如下功能：在文本框Text1中输入自然数n,单击“生成随机数”命令按钮Command1，则生成n个[1，100]区间内的整数，并显示在列表框List1中，单击“计算”按钮Command2，标签Label4中输出最大数及该数在数列中的位置，标签Label6中输出最小数及该数在数列中的位置，运行效果如下图所示，程序代码如下，但加框处代码有错，请改正。
  
  Dim d（1 To 100）As Integer
  Dim n As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer
  Randomize
  n=Val（Text1．Text）
  For i=1 To n
  
  List1．AddItem Str（d（i））
  Next i
  End Sub
  Private Sub Command2_Click（　　）
  Dim i As Integer,min As Integer,max As Integer
  Dim maxpos As Integer,minpos As Integer
  max=d（1）
  
  For i=2 To n
  If max＜d（i） Then max=d（i）：maxpos=i
  If min＞d（i） Then min=d（i）：minpos=i
  Next i
  Label4．Caption=Str（max）+“位置：“+Str（maxpos）
  Label6．Caption=Str（min）+“位置：“+Str（minpos）
  End Sub
  组卷：1引用：1难度：0.6

  解析

• 17．编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数（不分大小写）．程序运行时界面如图1所示．
  
  （1）设计应用程序界面时，为添加标签对象“输入字串：”，应使用图2所示的“控件工具箱”中的

   

  （填写相应编写），并在图3所示的“属性窗口”中，将

   

  属性设置为“输入字串：”．
  
  （2）程序运行时，在Text1中输入字符串，单击“统计”按钮，在List1中显示统计结果．请在横线处填入合适代码．
  ‘函数IsLetter（x）功能，若x是字母，则返回值为字母x在字母序列“A”～“Z”中的序号，如字母“A”的序号为0，字母“D”的序号为3．若x不是字母，则返回值为-1．
  Function IsLetter（x As String） As Integer
  If“A“＜=x And x＜=“Z“Then
  IsLetter=Asc（x）-Asc（“A“）
  ElseIf“a“＜=x And x＜=“z“Then
  IsLetter=Asc（x）-Asc（“a“）
  Else
  

   

  
  End If
  End Function
  Private Sub Command1_Click

   

  
  Dim f（25）As Integer,m As Integer,n As Integer
  Dim s As String,c As String
  List1．Clear
  For m=0To 25‘初始化数组f
  f（m）=0
  Next m
  s=Text1．Text
  For m=1To Len（s）‘依次读取字符串中的每个字符进行判断
  c=Mid（s,m,1）
  n=IsLetter（c）
  If n＜＞-1Then f（n）=f（n）+1
  Next m
  For m=0To 25‘输出统计结果，没有出现的字母不输出
  If

   

  Then
  List1．AddItem （Chr（m+Asc（“a“）） &“：“& f（m））
  End If
  Next m
  End Sub.
  组卷：11引用：4难度：0.1

  解析