2020-2021學年浙江省麗水外國語實驗學校高二（下）第一次月考信息技術試卷（選考）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關于信息與信息技術的描述，正確的是（ ）
組卷：18引用：4難度：0.8 -
2．用Access軟件設計抗疫物資收發系統的數據庫，其中已建好的“物資流向”數據表用于存儲如表所示的數據。下列關于“物資流向”數據表的描述，正確的是（ ）
發放序號 發放日期 領用單位 物資名稱 數量 是否定向 20200101 2020.01.29 街道辦事處 醫用口罩 1000 是 20200102 2020.02.12 疫情防控組 普通防護服 200 否 20200103 2020.02.12 疫情防控組 體溫槍 500 否 … … … … … … 組卷：3引用：3難度：0.6 -
3．下列應用中，體現了人工智能技術的有（ ）
①電梯門打開后，延時一段時間自動關閉
②高鐵站通過人臉識別驗證旅客身份
③輸入正確的密碼后，密碼門鎖自動開啟
④某客服機器人能與客戶以語音方式進行交流
⑤無人駕駛汽車能自動識別路況并安全行駛組卷：23引用：4難度：0.8 -
4．某算法的部分流程圖如圖所示。執行這部分流程，輸出m、n的值分別是（ ）組卷：14引用：4難度：0.6 -
5．英文字符在計算機中有全角和半角之分。全角英文字符的內碼由兩個字節組成，第一個字節的值是A3H，第二個字節的值是其對應的半角內碼值加上80H得到的。例如，半角字符“A”的內碼值是41H，則全角字符“A”的內碼值是A3C1H。用UltraEdit軟件查看字符內碼，部分界面如圖所示。下列說法錯誤的是（ ）
組卷：9引用：4難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題5分，第16小題9分，共26分）
-
15．一個彈球會發出紅、綠或藍三種單色光。發著光的彈球從高處垂直下落，觸地會垂直彈起，且彈起時發光顏色會變化。假設彈球下落高度為h,觸地前發紅光、綠光、藍光時，反彈高度分別為0.8h、0.6h、0.5h。觸地若干次后，彈球彈起時不再發光。
觀察彈球的發光顏色變化，并用字符串記錄，其中每個字符表示彈球一次觸地前的發光顏色（字符R、G、B分別表示紅、綠、藍）。
編寫一個VB程序，計算彈球發光狀態下的運動軌跡長度。在文本框Text1中輸入彈球的初始高度，在文本框Text2中輸入表示發光顏色變化的字符串，單擊命令按鈕Commandl后，文本框Text3中顯示彈球在發光狀態下的運動軌跡長度，程序運行界面如圖所示。
（1）若要將命令按鈕Commandl上顯示的內容改為“計算”，能實現該功能的語句是（單選，填字母：A.Command1=“計算”/B.Command1.Caption=“計算”/C.Commandl.Text=“計算”）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Commandl_Click（ ）
Dimh As Single,sumAsSingle
Dims As String,cAsString
Dimi As Integer
h=Val（Textl.Text）
s=Text2.Text
sum=h
Fori=1ToLen（s）-1
①
Ifc=″R″Then
h=0.8*h
②
h=0.6*h
Else
h=0.5*h
End If
sum=sum+h*2
Next i
Text3.Text=Str（Int（sum））
End Sub
（3）若將程序中的語句“Text3.Text=Str（Int（sum））”改為“Text3.Text=Str（Int（h））”，在文本框Text1中輸入“100”，在文本框Text2中輸入“BRG”，單擊命令按鈕Command1后，文本框Text3中顯示的內容是。組卷：2引用：2難度：0.6 -
16．根據申請人的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
Private Sub Command1_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=1 To m—1
k=i
For j=i+1 To m
If qa（j）＞qa（k）Then k=j
Next j
If
Then
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’Exit For表示退出循環
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
End Sub組卷：0引用：1難度：0.5