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