2018-2019学年浙江省台州市书生中学高二（下）第一次月考信息技术试卷

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

• 1．下列有关信息的说法，不正确的是（　　）

  A．“盲人摸象”体现了信息的真伪性

  B．信息指的是数据、信号和消息

  C．计算机都是通过计算对信息加工处理的

  D．交警指挥交通打的手势是信息的一种表达方式
  组卷：36引用：1难度：0.7

  解析

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

  A．文档中图片的环绕方式是“嵌入型”

  B．删除批注，正文中的“建筑类”同时删除

  C．取消修订状态，依然可以对之前的修订进行拒绝或者接受的操作

  D．拒绝所有修订，最后一行文字为“这就形成了医疗行业的卖方市场。”
  组卷：23引用：2难度：0.4

  解析

• 3．关于多媒体的一些说法中，下列说法正确的是（　　）

  A．矢量图是真实物体的模型化、抽象化和线条化的表现方式

  B．文本是多媒体作品中的进行信息交流的主要载体，这里的文本指的是文字

  C．MPEG视频文件压缩部分冗余和非冗余信息，解压后能准确     恢复到原信息

  D．数据之所以能被压缩，主要是媒体本身允许有少量失真
  组卷：17引用：1难度：0.5

  解析

• 4．关于Access数据库和数据表，下列说法正确的是（　　）

  A．一个数据库管理系统只能管理一个数据库

  B．数据表中的字段名称不能和数据表名相同

  C．将数据表中类型为“是/否”的字段改为“文本”类型后字 段的值会变为True或False

  D．当数据表中已经有了记录，还有可能再新增类型为“自动编号”的字段
  组卷：16引用：2难度：0.4

  解析

• 5．某算法的部分流程图如图所示，若输入m的值是5，执行这部分流程后，变量s和i的值是（　　）

  A．3，2

  B．2，4

  C．2，3

  D．3，4
  组卷：8引用：3难度：0.4

  解析

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

• 16．对学生数据排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），男生和女生分别按“姓名”升序排序。编写一个 VB 程序，功能如下：在列表框 list1 中显示排序前学生数据，单击“排序”按钮 Command1，在列表框 list2 中显示排序后的结果。程序运行界面如图所示。
  实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
  Const n=10
  Dim xm（1 To n）As String,xb（1 To n）As String
  Function adj（sAs String,n As Integer） As String
  '函数功能：在字符串 s 后添加若干个空格，使其长度变为 n,代码略。
  End Function
  Private Sub Form1_Load （　　）
  '读取 10 个学生姓名和性别分别存数组 xm、xb,
  并在列表框 list1 中显示，代码略。
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,jAs Integer
  i=1
  Do While i＜=n-1
  '（1）
  Do While j＞=i+1
  If xb（j）=“M“And xb（j-1）=“F“Or Then'（2）
  temp=xm（j）：xm（j）=xm（j-1）：xm（j-1）=temp
  temp=xb（j）：xb（j）=xb（j-1）：xb（j-1）=temp
  End If
  j=j-1
  Loop
  i=i+1
  Loop
  For i=1 To n
  List2．AddItem adj（xm（i），12）+““+xb（i）
  Next i
  End Sub
  组卷：0引用：1难度：0.9

  解析

• 17．一个简单的四则混合运算式子（算式中只包含整数、+、-、*、/、=）的运算规则是先进行“*”或“/”，再进行“+”或“-”，下列是用 VB 编写的简单四则混合运算的程序，运行程序时在文本框 Text1 中输入四则运算式子，单击命令按钮 Command1，在标签Label1 中输出结果。程序界面及代码如下。请回答以下问题。
  （1）若在文本框 Text1 中输入式子“12*5-32/4+20=”，则运行程序后在标签 Label1 中显示的内容是

   

  。
  
  （2）请在划线①②③处填入合适的代码，让程序能实现计算功能。
  Private Sub Command1_Click （　　）
  Dim a（1 To 100）As Single,b（0 To 100）As String
  Dim s As String,c As String
  Dim sz As Integer,i As Integer,k As Integer
  s=Text1．Text：k=0
  For i=1 To Len（s）
  c=Mid（s,i,1）
  If c＞=“0“And c＜=“9“Then
  sz=0
  Do While c＞=“0“And c＜=“9“
  sz=①

   

  
  i=i+1
  c=Mid（s,i,1）
  Loop
  k=k+1：a（k）=sz：b（k）=c
  End If
  Do While k＞1 And ②

   

  
  If b（k-1）=“+“Then a（k-1）=a（k-1）+a（k）
  If b（k-1）=“-“Then a（k-1）=a（k-1）-a（k）
  If b（k-1）=“*“Then a（k-1）=a（k-1）*a（k）
  If b（k-1）=“/“Then a（k-1）=a（k-1）/a（k）
  b（k-1）=b（k）
  k=k-1
  Loop
  Next i
  Label1．Caption=“运算的结果是：“+Str（a（1））
  End Sub
  Function yxj（x As String） As Integer
  If x=“*“Or x=“/“Then
  yxj=1
  ElseIf x=“+“Or x=“-“Then
  yxj=2
  Else
  ③

   

  
  End If
  End Function
  组卷：10引用：1难度：0.4

  解析