2019-2020学年浙江省温州市十五校联合体高二（上）期中信息技术试卷

一、选择题（共12小题，每小题2分，满分24分）

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

  A．网页里的图片和文字都属于信息

  B．某单位发布的虚假广告不属于信息

  C．同一信息只能依附于一种载体

  D．信息经加工处理后可以具有更高的价值
  组卷：11引用：1难度：0.5

  解析

• 2．下列有关计算机网络术语的说法，正确的是（　　）

  A．SMTP协议用于发送电子邮件

  B．HTTP是超文本标记语言

  C．HTML是超文本传输协议

  D．WWW的中文含义是互联网
  组卷：7引用：1难度：0.5

  解析

• 3．网络用户对某网络店铺投票结果如图所示：该过程中采用的评价方法有（　　）
  

  A．专家评价、个人推荐	B．个人推荐、统计评价
  C．个人推荐、网络预测	D．网络预测、专家评价
  组卷：10引用：1难度：0.6

  解析

• 4．2017年5月爆发的“勒索病毒”攻击主机并加密主机上存储的文件，然后要求支付赎金，下列说法正确的是（　　）

  A．“勒索病毒”是人为编制的一类计算机系统

  B．受感染者应尽快交纳赎金，以避免文件受到进一步的损坏

  C．先不要打开电脑，过段时间病毒被消灭了，再使用电脑

  D．用户应以主动防御为主，升级杀毒软件并查杀，则时做好数据备份
  组卷：10引用：2难度：0.9

  解析

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

  A．有一处批注，批注的内容是“一带一路”

  B．若删除文中的批注，则批注对象也将被删除

  C．该批注的用户名缩写是x,1表示是第一处批注

  D．拒绝所有修订后，第四行文字是“合作成果的国际全球盛会……”
  组卷：8引用：3难度：0.5

  解析

二、解答题（共4小题，满分26分）

• 15．查找最大的ASCII码字符。随机生成n（n＞=40）个可见ASCII码的字符串（可见字符ASCII码的范围是33～126），并显示在文本框Text1中。单击“查找”按钮运行程序，在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示，VB代码如下。
  
  请回答下列问题：
  （1）要使程序运行时，窗体Form1标题显示“查找ASCII最大的字符”，则需在Form_Load事件过程中添加语句

   

  （单选，填字母：A．Form1．Text=“查找ASCII最大的字符“/B．Form1．Caption=“查找ASCII最大的字符“/C．Form1．AddItem“查找ASCII最大的字符“）
  （2）实现上述功能的VB程序如下，请在横线处填入合适代码。
  Const n=40
  Private Sub Command1_Click （　　）
  Dim s As String,ch As String
  Dim i As Integer,max As Integer
  s=Text1．Text
  max=0
  For i=1 To Len（s）
  ch=

   

  
  If Asc（ch）＞max Then max=Asc（ch）
  Next i
  Label1．Caption=“最大ASCII码：″+

   

  +″该字符为：″+Chr（max）
  End Sub
  Private Sub Form_Load （　　）’随机生成可见字符并显示在文本框Text1中
  Randomize
  For i=1 To n
  Text1．Text=Text1．Text+

   

  
  Next i
  End Sub
  组卷：2引用：1难度：0.8

  解析

• 16．袜子颜色配对问题。现有不同颜色的袜子若干（袜子的颜色用数字编号1～15表示），颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入袜子的颜色编号（数据都用逗号分隔并以逗号结尾），单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签label1中现实能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。
  
  请回答下列问题：
  （1）写出VB代码中的方法名

   

  （只需填一个方法名）；
  （2）根据题意，请在横线处填入合适代码；
  （3）加框处程序代码有错，请改正。
  Const n=15
  Private Sub Command1_Click （　　）
  Dim a（1 To n） As Integer'数组a存放不同颜色袜子的数量，默认值为0
  Dim s As String,ch As String
  Dim c As Integer,i As Integer,t As Integer
  List1．Clear
  s=Text1．Text
  t=0：c=0：i=1
  Do While i＜=Len（s）
  ch=Mid（s,i,1）
  If ch＞=“0“And ch＜=″9″Then
  t=t*10+Val（ch）
  Else
  a（t）=

   

  
  t=0
  End If
  i=i+1
  Loop
  For i=1 To n
  If

   

   Then List1．AddItem″落单袜子的颜色为″+Str（i）
  c=
  Next i
  Label1．Caption=″能配对的袜子有″+Str（c）+″双″
  End Sub
  组卷：2引用：2难度：0.5

  解析