2020-2021学年浙江省湖州市三贤联盟高二（上）期中信息技术试卷

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

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

  A．文字、语言、声音、书籍等都是常见的信息表达方式

  B．信息是指对消息接收者来说预先不知道的事情，因此具有不确定性

  C．只有数字化后的信息才能被计算机处理

  D．“以讹传讹”这个成语说明了信息在传递过程中会产生损失
  组卷：2引用：1难度：0.6

  解析

• 2．下列说法错误的是（　　）

  A．传感器技术已经在智能手机中广泛使用

  B．云技术的发展为信息脱离载体传输提供了可能性

  C．电影技术属于近代信息技术

  D．使用加密技术可以提高信息的安全性
  组卷：0引用：1难度：0.7

  解析

• 3．关于浏览器和网页的说法，正确的是（　　）

  A．利用收藏夹可将网页保存到本地磁盘

  B．文字、表格和超链接是网页内容的三种基本元素

  C．POP3协议的功能是把电子邮件从发件人电子信箱发送到收件人的电子邮件服务器中

  D．网页文件是由HTML语言描述的文本文件，可以用记事本编辑
  组卷：5引用：3难度：0.6

  解析

• 4．以下行为中采用人工智能技术的有（　　）
  ①烟雾报警器自动报警
  ②通过外接手写板，在电脑中输入文字
  ③在word中输入“强建”，自动更改为“强健”
  ④小区门口自动识别车牌号进行播报
  ⑤购物者携带钉有“磁性防盗扣”的商品经过防盗门时，会自动报警
  ⑥老师用钉钉群直播上课

  A．①⑤④

  B．②③④

  C．④⑥

  D．②④
  组卷：1引用：1难度：0.7

  解析

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

  A．图中图文混排方式一定是四周型

  B．用户A1和B2分别对文档进行了批注

  C．文档中有两处批注、两处修订

  D．若删除文中的批注，则批注对象也会被删除
  组卷：2引用：1难度：0.6

  解析

二、非选择题部分（本大题共4题，其中第13题6分，第14题6分，第15题7分，第16题7分，共26分）

• 15．某仓库对货物的编码规则为：货物类型（4-8位英文字母）货物编码（4-8位数字）货物校验码。货物编码的每一位数除以2产生的余数，倒序输出即是货物正确的校验码，现编写如下VB程序，如图在Text1中输入货物完整编码后，判定校验码是否符合标准，并在Label1中输出结果。
  （1）由程序可知，此程序中按钮的名称为

   

  
  （2）请在横线处填入合适的代码。
    
  Private Sub check_Click

   

  
  Dim s as string,ss as string,s1 as string,s2 as string
  Dim i as integer,bz as integer
  

   

  
  bz=0
  For i=1 To Len（s）
  ss=Mid（s,i,1）
  If ss=“-“Then
  bz=bz+1
  ElseIf bz=1 Then
  s1=CStr

   

  +s1
  'Cstr函数是在str的基础上去除前导空格
  ElseIf bz=2 Then
  s2=s2+ss
  End If
  Next i
  If

   

   Then
  Label1.Caption=“符合标准“
  Else
  Label1.Caption=“不符合标准“
  End If
  End Sub
  组卷：0引用：1难度：0.4

  解析

• 16．在Text1中输入一个1-26之间的数字n,点击“产生”按钮，在Text2中产生n个不重复的大写字母，中间用逗号隔开（图a），点击一次“最小值”按钮，Text2中最小的字母会掉落到List1中，并将Text2中对应的字母和后面的逗号删除（图b），再点击一次“最小值”按钮，剩余字母中的最小值继续掉落（图c）。（ASC（“A”）=65，CHR（65）=“A”）
  
  （1）根据描述，如产生的字母为“H，K，C，B，N，”，第三次点击“最小值”按钮后Text2中显示内容为

   

  
  （2）请在横线处填入合适的代码。
  Private Sub Command1_Click

   

  
  Dim i As Integer,j As Integer,n As Integer
  Dim zm As Integer,flag As Boolean,zf As string
  Randomize'重置rnd函数，确保每次产生的随机数不一致
  zf=““
  n=Val（Text1.Text）
  For i=1 To n
  

   

  
  zm=Int（Rnd*26+65）
  For j=1 To Len（zf）  Step 2
  If Asc（Mid（zf,j,1））=zm Then
  

   

  
  flag=True
  Exit For
  End If
  Next j
  If flag=False Then zf=zf+Chr（zm）+“，“
  Next i
  Text2.Text=zf
  End Sub
  Private Sub Command2_Click

   

  
  Dim i As Integer,zf As string
  zf=Text2.Text
  k=1
  For i=3 To Len（zf）-1  Step 2
  If Mid（zf,k,1）＞Mid（zf,i,1）Then k=i
  Next i
  List1.AddItem Mid（zf,k,1）
  Text2.Text=

   

  
  End Sub
  组卷：0引用：1难度：0.3

  解析