2021年浙江省高考信息技術(shù)模擬試卷（6月份）（二）（選考）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，共24分）
-
1．下列有關(guān)信息和信息技術(shù)的說法，錯(cuò)誤的是（ ?。?/h2>
組卷：11引用：2難度：0.6 -
2．下列有關(guān)網(wǎng)頁及電子郵件的描述，正確的是（ ?。?/h2>
組卷：1引用：1難度：0.5 -
3．如圖所示，下列說法正確的是（ ?。?br />
組卷：7引用：2難度：0.9 -
4．ASCII碼表中的大寫字母Z后有6個(gè)其他字符，接著便是小寫字母a。現(xiàn)在已知：字母Y的ASCII碼為（1011001）2，則字母b的ASCII碼用十六進(jìn)制表示是（ ?。?/h2>
組卷：13引用：6難度：0.9 -
5．下列關(guān)于多媒體技術(shù)應(yīng)用的說法正確的是（ ?。?/h2>
組卷：1引用：1難度：0.6
二、非選擇題（本大題共4小題，共26分）
-
15．根據(jù)申請(qǐng)人的QA和QB值，從m個(gè)申請(qǐng)人中挑選2人組隊(duì)參加某挑戰(zhàn)賽。條件一是2人的QA值都必須大于指定參數(shù)h；條件二是2人的QA值之差（較大值減較小值）小于h。在滿足上述兩個(gè)條件的所有2人組合中，挑選QB值之和最大的一個(gè)組合。（QA、QB和h的值均為正整數(shù)）
編寫VB程序，實(shí)現(xiàn)上述挑選功能。運(yùn)行程序，在文本框Text1中輸入?yún)?shù)h后，單擊“挑選”按鈕Command1，在列表框List1中按QA值降序顯示滿足條件一的申請(qǐng)人信息，最后在標(biāo)簽Label1中顯示組隊(duì)結(jié)果。程序運(yùn)行界面如圖所示。
請(qǐng)回答下列問題：
（1）若要清空列表框List1，能實(shí)現(xiàn)該功能的語句是（單選，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中（*）處代碼有錯(cuò)，請(qǐng)改正。
Const m=20‘m表示申請(qǐng)人個(gè)數(shù)
Dim id（m）As Integer,qa（m）As Integer,qb（m）As Integer
PrivateSubCommand1_Click （ ?。?br />Dim i As Integer,j As Integer,k As Integer,t As Integer,max As Integer
Dim h As Integer,n As Integer’變量n存儲(chǔ)滿足條件一的申請(qǐng)人個(gè)數(shù)
Dim s As String
’讀取全部申請(qǐng)人的編號(hào)、QA和QB值，分別存入數(shù)組id、qa和qb,代碼略
h=Val（Text1.Text）：n=m
For i=1Tom-1
k=i
For j=i+1Tom
If qa（j）＞qa（k）Then k=j
Next j
Ifqa qa（i）＞h Then（*）
f k＜＞i Then
t=qa（i）：qa（i）=qa（k）：qa（k）=t
t=qb（i）：qb（i）=qb（k）：qb（k）=t
t=id（i）：id（i）=id（k）：id（k）=t
End If
Else
n=①
Exit For’ExitFor表示退出循環(huán)
End If
Next i
’滿足條件一的申請(qǐng)人信息顯示在列表框Listl中，代碼略
max=0：s=“沒有滿足條件的組合”
’在滿足條件的組合中，尋找QB值之和最大的組合，若有并列，只保留第一個(gè)
For i=n To 2 Step-1
j=i-1
Do While ②
If qb（i）+qb（j）＞max Then
s=“組隊(duì)結(jié)果：“+Str（id（i））+“號(hào)，“+Str（id（j））+“號(hào)“
③
End If
j=j-1
Loop
Next i
Label1.Caption=s
EndSub組卷：1引用：1難度：0.3 -
16．某校大門外長度為n米（n≤10000）的馬路上有一排樹，每兩棵相鄰的樹之間的間隔都是1米。我們可以把馬路看成一個(gè)數(shù)軸，馬路的一端在數(shù)軸0的位置，另一端在n的位置；數(shù)軸上的每個(gè)整數(shù)點(diǎn)，即0，1，2，……，n,都種有一棵樹。
由于馬路上有m（m≤100）個(gè)區(qū)域要用來建地鐵。這些區(qū)域用它們?cè)跀?shù)軸上的起始點(diǎn)和終止點(diǎn)表示。已知任一區(qū)域的起始點(diǎn)和終止點(diǎn)的坐標(biāo)都是整數(shù)，區(qū)域之間可能有重合的部分?，F(xiàn)在要把這些區(qū)域中的樹（包括區(qū)域端點(diǎn)處的兩棵樹）移走。你的任務(wù)是計(jì)算將這些樹都移走后，馬路上還有多少棵樹。
編寫VB程序，實(shí)現(xiàn)上述功能。運(yùn)行程序，在文本框Text1中輸入正整數(shù)n（n≤10000），表示馬路的長度；在文本框Text2中輸入偶數(shù)個(gè)正整數(shù)，正整數(shù)之間用逗號(hào)分隔，兩個(gè)一組，分別表示一個(gè)區(qū)域的起始點(diǎn)和終止點(diǎn)坐標(biāo)值（起始點(diǎn)坐標(biāo)值≤終止點(diǎn)坐標(biāo)值），最后以逗號(hào)結(jié)束。單擊“計(jì)算”按鈕Command1，在標(biāo)簽Label3中顯示馬路上剩余的樹的數(shù)目。程序運(yùn)行界面如圖所示。
???????請(qǐng)回答下列問題：
（1）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（2）語句“t=““”應(yīng)添加在程序中處（從ABCD處選擇一項(xiàng)填寫）
Private Sub Command1_Click （ ）
Dim a（0 To 10000）As Integer
Dim n As Integer,start1 As Integer,end1 As Integer
Dim i As Integer,j As Integer,k As Integer,sum As Integer
Dim s As String,t As String,c As String
n=Val（Text1.Text）：s=Text2.Text
For i=0 To n
a（i）=1
Next i
k=0：t=““
For i=1 To Len（s）
c=Mid（s,i,1）
If c＜＞“，“Then
①
Else
k=k+1
If②Then
start1=Val（t）
'A
Else
end1=Val（t）
For j=start1 To end1
③
Next j
'B
End If
'C
End If
'D
Next i
sum=0
For i=0 To n
If a（i）=1 Then sum=sum+1
Next i
Label3.Caption=Str（sum）
End Sub組卷：1引用：1難度：0.3