2019-2020学年浙江省绍兴市诸暨市高一（下）期末信息技术试卷

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

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

  A．计算机处理文字、图片、视频等信息，实质都是通过计算完成的

  B．同一种信息内容必须采用相同的表达方式

  C．信息可以脱离载体在网络世界里自由传播

  D．书本在使用过程中产生破损，说明信息会产生损耗
  组卷：8引用：1难度：0.7

  解析

• 2．下列选项中，体现了人工智能技术的有（　　）
  ①医生使用B超探测病人身体
  ②高速公路ETC通道自动识别车牌收费
  ③地图软件在有Wi-Fi连接的地方自动升级数据
  ④利用VR技术进行电脑游戏开发
  ⑤使用在线翻译将中文转换为英文

  A．①④⑤

  B．②⑤

  C．②③

  D．④⑤
  组卷：8引用：2难度：0.5

  解析

• 3．某学校的社团活动系统，使用了Access软件创建了数据表，部分界面如图所示：
  
  下列说法正确的是（　　）

  A．可以输入“4星”作为“课程星级”的字段值

  B．可以输入“2020/4/20 4：35pm”作为“报名截止”的字段值

  C．“课程”数据表中，可能会有两条记录的“课程名称”字段值相同

  D．“教师”数据表中，不可能有“自动编号”类型的字段
  组卷：0引用：1难度：0.6

  解析

• 4．使用 UltraEdit 软件观察某字符串的内码，已知该字符串包含标准 ASCII码和汉字编码，如图所示。
  
  则下列说法中正确的是（　　）

  A．存储该字符串需要14个字节

  B．该字符串中包含9个ASCII字符

  C．第一个字符对应的二进制内码为01001110

  D．若大写字母“A”的十进制编码为65，则该字符串中包含2个大写字母
  组卷：2引用：1难度：0.5

  解析

• 5．一个1024×768像素、24位真彩色、PAL制式（25帧/秒）的未经压缩的AVI格式无声视频文件，将其压缩为MP4 格式后（压缩比为9：1）的文件大小约为125MB，则该视频的时长约为（　　）

  A．2.5秒

  B．10秒

  C．20秒

  D．500秒
  组卷：0引用：2难度：0.5

  解析

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

• 15．有一VB程序的功能如下：在文本框Text1中输入若干个日期数据，年月日之间用“-”隔开，每一个日期以“；”结束（如2019-3-12；），单击“提取”按钮Command1，将每个日期数据显示在列表框List1中，并将日期设置成“*年*月*日”的格式（如2019年3月12日）。程序界面如图所示：
  （1）下列对象中有Text属性的是

   

  （单选，填字母：A．Command1/B．Forml/C．Textl）。
  （2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
  （3）程序中加框处代码有错，请改正。
  Private Sub Command1_Click （　　）
  Const code=“年月日“
  s=Text1．Text
  i=1：x=0
  t=““：rq=““
  Do While i＜=①

   

  
  c=Mid（s,i,1）
  If c＞=“0“And c＜=“9“Then
  t=t+c
  Else
  x=x+1
  rq=
  t=““
  If x=3 Then
  List1．AddItem rq
  rq=““
  ②

   

  
  End If
  End If
  i=i+1
  Loop
  End Sub
  组卷：1引用：1难度：0.3

  解析

• 16．丑数是指质因数只包含2，3，5的自然数，例如6、8都是丑数，但7、14不是，因为它们包含质因子7，习惯上我们把1当做是第一个丑数。前10个丑数依次为：1，2，3，4，5，6，8，9，10，12，小李为此设计了一VB程序，功能如下：在文本框Text1中输入一个自然数n（n＜=500），单击“求解”按钮Command1，在文本框Text2中显示对应的第n个丑数。程序界面如图所示。
  
  （1）第11个丑数是

   

  。
  （2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
  Private Sub Command1_Click （　　）
  Dim n As Integer,x As Long,y As Long
  Dim flag As Boolean
  n=1
  x=2
  Do While n＜Val（Text1．Text）
  flag=True
  ①

   

  
  Do While y＞1 And flag
  If y Mod 2=0 Then
  y=y\2
  ElseIf y Mod 3=0 Then
  y=y\3
  ElseIf y Mod 5=0 Then
  y=y\5
  Else
  ②

   

  
  End If
  Loop
  If flag Then n=n+1
  x=x+1
  Loop
  Text2．Text=Str（③

   

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

  解析