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