2021年浙江省高考信息技术模拟试卷（3月份）

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

• 1．下列有关信息与信息处理的说法，错误的是（　　）

  A．视频会议中的视频、音频均是信息的载体

  B．智能手机处理信息前，需要对信息进行数字化

  C．不恰当的信息处理是产生虚假信息的原因之一

  D．利用人工智能处理信息一定比人工处理信息更快速、准确
  组卷：4引用：1难度：0.7

  解析

• 2．下列有关网页与浏览器的说法，错误的是（　　）

  A．使用不同的搜索引擎对相同关键词检索，得到的结果可能不同

  B．使用浏览器发邮件，仅用到SMTP协议

  C．使用记事本编辑网页时可对网页中的文字、图片建立超链接

  D．在IE浏览器中以“文本文件（*.txt）”类型保存网页，无法保存网页中的超链接地址
  组卷：3引用：1难度：0.6

  解析

• 3．用Access软件设计某图书管理系统的数据库，“图书”表的数据视图如图所示。（　　）
  
  下列对“图书”表结构设计最合理的是（　　）

  A．

  B．

  C．

  D．
  组卷：5引用：1难度：0.4

  解析

• 4．下列关于数制及运算规则（整数部分）的说法，错误的是（　　）

  A．2位十六进制数一定比4位二进制数大

  B．8位二进制数能表示的最大十进制数为255

  C．如果7+1运算结果为2位数，则该运算为八进制运算

  D．任意进制正整数，末位数字为偶数，则其转换为十进制数后一定为偶数
  组卷：10引用：1难度：0.3

  解析

• 5．使用GoldWave软件打开某音频文件，界面如图所示。
  
  关于该音频下列说法错误的是（　　）

  A．该音频可以使用Windows Media Player播放

  B．先执行“复制”操作，再执行“粘贴”操作后，音频时长将增加

  C．执行“裁剪”操作或“删除”操作音频时长相同

  D．该音频文件格式为Mp3，属于无损压缩格式
  组卷：3引用：1难度：0.5

  解析

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

• 15．程序运行后，在文本框Text1中输入填涂的答案，每个答案以“，”结束，如果出现连续两个“，”，说明该题未作答；在文本框Text2中输入参考答案，每个答案以“，”结束，点击评分按钮，在标签Label3中输出最后得分。程序运行界面如图所示：
  
  请回答下列问题：
  （1）下列对象中，有Caption属性的是

   

  （单选，填字母：A.Command1/B.Text1/C.List1）。
  （2）实现按多选题评分标准的评分功能的VB程序如下，请在横线处填入合适的代码。
  （3）程序中（*）处代码有错，请改正。

   

  
  Private Sub Command1_Click

   

  
  Dim i As Integer,j As Integer
  Dim ttda As String,ckda As String,tt As String,ck As String
  ttda=Text1.Text
  ckda=Text2-Text
  i=1：j=1
  Do While i＜=Len（ttda）And j＜=Len（ckda）
  tt=midd（I，ttda）：ck=midd（j,ckda）
  If Len（tt）＜＞0 Then
  tt1=xxsz（tt）：ck1=xxsz（ck）
  If

   

  Then
  df=2
  Else
  For k=1 To 4
  If  Mid（ttl,k,l）▱Mid（ckl,k,l） Then Exit For（*）
  Next k
  If k=5 Then df=1 Else df=0
  End If
  zf=ft+df
  End If
  i=i+Len（tt）+1：j=j+Len（ck）+1
  Loop
  Label3.Caption=“总计“+Str（zf）+“分“
  End Sub
  Function xxsz（s As String）As String′将选项转换为对应四位二进制数，已知大写字母“A“的ASCII码值为65
  t=“0000“
  For i=1 To Len（s）
  

   

  
  Next i
  xxsz=t
  End Function
  Function midd（k As Integer,s As String）As String′读取每题选项
  Dim i As Integer
  i=k
  Do While i＜=Len（s）
  If Mid（s,i,1）＜＞“，“Then
  

   

  
  Else
  Exit Function
  End If
  i=i+1
  Loop
  End Function
  组卷：0引用：1难度：0.3

  解析

• 16．编写VB程序，功能是根据各城市初赛成绩（城市数为偶数，每个城市初赛人数≥3）前3名的选手进行复赛分组。其中各城市选手编号由城市代码+编号组成，例如“A001“表示A市001号，复赛分组规则如表所示：
  

  第1组	第2组	第3组	……	第7组	第8组	第9组
  A市第1名	A市第2名	A市第3名	……	E市第1名	E市第2名	E市第3名
  B市第3名	B市第2名	B市第1名	……	F市第3名	F市第2名	F市第1名

  程序运行界面如图所示：
  
  （1）若存储初赛成绩的数据表中增加一条记录“选手编号为B058，选手成绩为97.6”，重新运行该程序读取数据，点击“分组”后，与选手“A001”分到一组进行复赛的选手编号为

   

  。
  （2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
  Const nc=6′nc个城市参赛
  Dim result（1 To 1000）As Single′存储选手的初赛成绩
  Dim player（1 To 1000）As String′存储各城市选手编号
  Dim n As Integer′存储初赛总人数
  Dim record（1 To 3*nc）As Integer
  Dim i As Integer
  Private Sub Form_Load

   

  
  ′从数据库中读取初赛选手编号、选手成绩，存人数组player,result中，代码略
  End Sub
  Private Sub Command1_Click

   

  
  Dim group（1 To nc）As Integer
  Dim i As Integer,k As Integer,w As Integer
  For i=1 To nc
  group（i）=0
  Next i
  For i=1 To n
  k=

   

  
  group（k）=group（k）+1
  If group（k）=1 Then
  record（（k-1）*3-1）=i
  Else If group（k）＜=3 Then
  

   

  
  record（（k-1）*3+w）=i
  Else
  If result（i）＞result（record（（k-1）*3+3））Then
  w=find（3，k）
  record（（k-1）*3-w）=i
  End If
  End If
  Next i
  For i=1 To 3*nc
  List1.AddItem player（record（i））&“选手成绩：“&result（record（i））
  Next i
  List2.AddItem“选手编号“&“Vs“&“选手编号“
  For i=1 To nc/2
  For j=1 To 3
  t=（i-1）*6
  List2.AddItem player（record（t+j））&“VS“&.player（record（t+7-j））
  Next j
  Next i
  End Sub
  Function find（m As Integer,k As Integer） As Integer
  Do While m＞1
  If

   

  Then
  record（（k-1）*3+m）=record（（k-1）*3+m-1）
  m=m-1
  Else
  Exit Do
  End If
  Loop
  Find=m
  End Function
  组卷：0引用：1难度：0.5

  解析