2020-2021学年浙江省宁波市鄞州区咸祥中学高二（下）期中信息技术试卷

一、选择题（每题只有一个正确答案，每小题2分，共24分）

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

  A．AR技术的发展使得汽车自动驾驶成为可能

  B．信息在传递和共享过程中不会产生损耗

  C．近代信息技术包括摄影技术、电影技术等

  D．网络已经成为信息社会中重要的信息表达技术
  组卷：1引用：2难度：0.7

  解析

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

  A．网页文件是用HTTP语言来描述的，访问时可采用HTML协议

  B．在IE浏览器中清空历史记录，收藏夹中的内容不会被清空

  C．可以用添加到收藏夹的功能对当前浏览的网页进行保存

  D．以“网页，全部”类型保存网页，可以保存网页中的全部信息，包括音频、视频
  组卷：0引用：1难度：0.5

  解析

• 3．下列应用使用了人工智能技术的有（　　）
  ①Word软件中的“自动更正”功能
  ②Excel软件中的“自动求和”功能
  ③通过在线翻译网站把中文翻译成英文
  ④家庭陪护机器人
  ⑤使用语音拨号

  A．①②③

  B．①④⑤

  C．③④⑤

  D．②③④
  组卷：3引用：2难度：0.6

  解析

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

  A．一张数据表中不能没有任何记录

  B．不存在没有数据表的数据库

  C．在数据表视图下，不能修改字段类型

  D．数据表视图下，删除字段后不能用“撤销”命令进行恢复
  组卷：1引用：2难度：0.8

  解析

• 5．使用UltraEdit软件观察字符“嗨～Luck!2020”的内码，部分界面如图所示。下列说法正确的是（　　）
  

  A．图中的字符中共占用13个比特

  B．GB2312编码中收录的是非英文字符

  C．字符“U”的内码值为55H

  D．字符“L”的ASCII码值为77D
  组卷：2引用：2难度：0.5

  解析

二、非选择题（13题4分，14题8分，15题7分，16题7分，共26分）

• 15．小李编写VB程序，实现如下功能：在文本框Text1中输入一个“十六进制数”（注：包含小数），例如：在文本框Text1中输入A2.4，单击“转换”按钮Command1，在文本框Text2中输出该十六进制对应的十进制数，运行界面如第14题图所示。
  （1）为实现上述功能，请在横线处填入合适的代码，使程序正常运行。
  Private Sub Command1_Click （　　）
  Dim i As Integer,x As String,n As Integer,m As Integer
  Dim y As Integer,s As Single,r As String
  x=Text1．Text
  n=Len（x）'求长度
  m=InStr（x,“。“）'找小数点的位置
  s=0
  For i=1To n
  r=Mid（x,i,1）
  If r＞=“0“And r＜=“9“Then  y=Val（r）
  If r＞=“A“And r＜=“F“Then  y=①

   

  
  If i＜m Then  s=②

   

  '整数部分
  If i＞m Then  s=s+y*16^（m-i）'小数部分
  Next i
  Text2．Text=③

   

  +“D“
  End Sub
  （2）在文本框Text1中输入“A.8”，则在文本框Text2中输出结果是

   

  。
  组卷：2引用：2难度：0.5

  解析

• 16．要求编写一个“统计直角三角形的个数”的程序，功能如下：在文本框Text1中依次输入3*N个数表示三角形的边长（用逗号分隔并以逗号结尾），单击“计算”按钮Command1后，程序统计直角三角形个数，并在标签Label1中显示。程序运行界面如图1所示。
  
  PrivateSubCommand1_Click （　　）
  DimiAsInteger,jAsInteger,kAsInteger
  Dimx1AsSingle,x2AsSingle,x3AsSingle,tAsSingle
  DimTotaldAsInteger,vAsSingle,sAsString
  s=Text1.Text
  k=0：j=1：Totald=0
  Fori=1ToLen（s）
  IfMid（s,i,1）=″，″Then
  v=Val（Mid（s,j,i-j））'提取三角形边长，保存在变量v中
  ①
  IfkMod3=1Then
  x1=v
  ElseIfkMod3=2Then
  x2=v
  Ifx1＜x2Thent=x1：x1=x2：x2=t
  Else
  x3=v
  Ifx1＜x3Thent=x1：x1=x3：x3=t
  If②ThenTotald=Totald+1
  EndIf
  
  EndIf
  Nexti
  Label1.Caption=″一共构成″+Str（Totald）+″个直角三角形″
  EndSub
  （1）请在①②横线处补充合适的代码。
  （2）加框处代码有误，请改正。
  （3）观察程序代码，若正确完成（1）、（2）后，调试过程中出现如图2错误提示，可能是程序代码执行到第

   

  行报错。
  组卷：0引用：2难度：0.5

  解析