2021年浙江省信息技术押题试卷（1月份）（一）（选考）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，共24分）
-
1．二维码是近年来非常流行的编码方式，以下关于二维码的说法正确的是（ ）
组卷：32引用：7难度：0.5 -
2．下列说法中，正确的是（ ）
组卷：16引用：3难度：0.5 -
3．某Access数据表视图的部分操作界面如图所示。下列说法正确的是（ ）
组卷：0引用：1难度：0.6 -
4．用UltraEdit软件观察“x+y=9”的字符内码，部分界面如图所示，则“y-x=10”的字符内码可能是（ ）
组卷：10引用：3难度：0.4 -
5．小张使用Photoshop 处理图象，图层面板如图所示，下列描述正确的是（ ）
组卷：4引用：4难度：0.7
二、非选择题（本大题共4小题，共26分）
-
15．IPV6的地址长度为128 bit,采用十六进制表示。格式为X：X：X：X：X：X：X：X，其中每个X表示地址中的16 bit,以十六进制表示，例如：2001：0DB8：00BA：0023：0008：080B：202C：417A这种表示法中，每个X的前导0是可以省略的，例如：
2018：0DB8：00BA：0023：0008：080B：202C：417A→2018：DB8：BA：23：8：80B：202C：417A
编程实现如下功能：在文本框Text1中输入原始32位十六进制IPV6地址，单击“去前导零”按钮Command1，在文本框Text2中输出去前导0后的IPV6地址，程序运行界面如图所示。
（1）要使程序运行时，窗体Form1标题显示“IPV6去前导零”，可在Form_Load事件过程中添加语句（单选，填字母：A.Form1=“IPV6去前导零“/B.Form1.Text=“IPV6去前导零“/C.Form1.Caption=“IPV6去前导零“）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click
Dim ipv6 As String,c As String
Dim i As Integer'l As Integer
Dim flag As Boolean‘前导0判断，false表示前导0，true表示非前导0
ipv6=Text1.Text
l=Len（ipv6）
i=1：flag=False：Text2.Text=““
Do While i＜1
c=Mid（ipv6，i,1）
If c=“：“Then
Text2.Text=Text2.Text+c
flag=False
ElseIf c＜＞“0“Then
Text2.Text=Text2.Text+c
flag=True
ElseIfThen‘以下为判断0是否需要去除
Text2.Text=Text2.Text+c
ElseIf Mid（ipv6'i,1）=“：“Then
Text2.Text=Text2.Text+c
End If
Loop
Text2.Text=Text2.Text+Mid（ipv6，i,1）
End Sub
（3）若文本框Text1中输入原始IPV6地址：2018：0608：0000：0000：0000：0000：0000：417A，单击“去前导零”按钮后，在Text2中显示的内容是。组卷：1引用：2难度：0.3 -
16．用VB编写一个英文单词查找替换的程序。功能如下：分别在文本框Text1、Text2、Text3中输入原文（s）（以一个空格作为单词间隔、且以“.”结尾）、要查找的单词（Txt_key）以及要替换的内容（Txt_rs），单击“替换”按钮Command1，将原文中所有的Txt_key替换为Txt_rs,并在文本框Text4中输出替换后的内容（ss）。运行效果如图所示。
查找替换的方法及示意图如下：
为方便判断单词，将要查找的单词（Txt_key）与替换的内容（Txt_rs）前后分别连接上一个空格，组成字符串key（长度为len_key）和字符串rs。变量ss用来存储替换后的内容。
（1）若查找单词Txt_key在原文s的起始位置就有，则先将Txt_rs连接至ss,同时将查找位置i定位到s的“len_key—1”位置（考虑出现连续、重复的Txt_key,查找定位前移1个位置。以下定位方法相同）。
（2）若原文s的第一个单词不是Txt_key,则在字符串s中查找key。
查找位置i的初始值为1，重复执行下列①、②、③步骤，直至i位于第“len_s—len_key+1”位置（即在s中待查找的内容只剩下与key等长的子串）：
①从第i位置开始取与key等长的子串；
②若子串与key相等，则在ss末尾连接上rs,同时将下一次查找的位置定位为“i+len_key—1”；
③若子串与key不相等，则将i位置上的字符连接到ss中，同时查找位置往后移一个，即i=i+1。
（3）若查找单词Txt_key是原文最后一个单词，则将Txt_rs和“.”连接至ss,否则将s中最后剩下的待查找子串连接到ss中。
实现上述功能的VB程序如下，请在横线处填入合适的代码，完成程序：
Private Sub Command1_ Click （ ）
Dim i As Integer
Dim s As String's为原文
Dim Txt_ key As String'Txt_key为要查找的内容
Dim Txt_ rs As String'Txt_ rs为替换成的内容
Dim ss As String'ss为替换后的内容
Dim key As String
Dim rs As String
Dim len_s As Integer'len_s为字符串s的长度
Dim len_ key As Integer'len_key为字符串key的长度
s=
Txt_key=Text2.Text
Txt_rs=Text3.Text
key=““+Txt_key+““
rs=““+Txt_rs+““
ss=““
len_s=Len（s）：len_key=Len（key）
i=l
If Mid（s,1，len_key—1）=Mid（key,2，len_key—1）Then
Txt_key存在于字符串s开始位置时的处理
ss=ss+
i=len_key—1
End If
Do While I＜=len_s—len_key+1
'key存在于字符串中间位置时，进行查找替换
If=key Then
ss=ss+Mid（rs,1，Len（rs）—1）
i=i+len_key—1
'考虑出现连续、重复的key,查找位置前移1个位置
Else
ss=ss+Mid（s,i,1）
i=i+l
End If
Loop
If Mid（s,I—1，len_key—1）=Mid（key,1，len_key—1）Then
'对原文中的最后待查找字串进行处理
ss=ss+Txt_rs+Mid（s,len_s,1）
Else
ss=ss+Mid（s,i,len_key—1）
End If
Text4.Text=ss
End Sub组卷：0引用：1难度：0.3
