資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省嘉興市2021屆高三上學期信息技術12月教學測試技術試卷
一、單選題(本大題共12小題，每小題2分，共24分)
1．（2020高三上·嘉興月考）下列有關信息的描述，不正確的是（　　）
A．信息是可加工處理的
B．信息可以通過多種方式表達
C．藍牙傳輸信息可以不依賴載體
D．股票市場即時行情信息體現信息的時效性
【答案】C
【知識點】信息及其特征
2．（2020高三上·嘉興月考）下列有關網頁與瀏覽器的說法，不正確的是（　　）
A．編輯網頁時可對網頁中的文字、圖片建立超鏈接
B．瀏覽器與服務器間通過HTML協議傳輸信息
C．使用記事本軟件可編輯網頁文件
D．收藏夾可以保存網頁URL
【答案】B
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具；網頁的交互設計
3．（2020高三上·嘉興月考）下列應用中，體現了人工智能技術的是（　　）
①學校門禁系統通過“人臉識別”驗證身份
②利用微信與朋友語音聊天
③某汽車具有自動泊車功能
④通過語音實現手機自動撥號
⑤“感應燈”感知光線控制開關
A．①③④ B．①②④ C．①②③ D．②③④
【答案】A
【知識點】人工智能的應用
4．（2020高三上·嘉興月考）使用U1 traEdit軟件觀察字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中共有3個GB2312字符
B．圖中“！”是ASCII字符
C．小寫字母“y”的十六進制內碼為“88”
D．不同輸入法輸入“高考”兩字，它們的內碼不同
【答案】B
【知識點】字符編碼
5．（2020高三上·嘉興月考）使用Photoshop軟件制作“廉”作品，界面如圖所示．
下列說法正確的是（　　）
A．可以對“背景”圖層添加濾鏡
B．“公則生明”圖層中圖層樣式均可見
C．可以用“自由變換”命令修改“廉”圖層中文字大小
D．將“古語”圖層移動至“廉”圖層的下方，“公則生明”圖層也會隨之移動
【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2020高三上·嘉興月考）一張分辨率為 1024*768，黑白2種顏色未經壓縮的BMP圖片，另存為JPEG格式后容量約為10KB，則其壓縮比約為（　　）
A．25：1 B．20：1 C．15：1 D．10：1
【答案】D
【知識點】聲音、圖像、視頻編碼
7．（2020高三上·嘉興月考）字符串變量a，b的值分別是“120”，“20”，下列表達式的值結果為“True"的是（　　）
A．a>b or ab B．Not Mid(a+b，2，3)C．Int (Rnd*5) * 4+1>Val (b) D．Val(a) Mod 100 \10=Sqr(4)
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2020高三上·嘉興月考）某算法流程圖如圖所示，執行這部分流程，輸入m，n的值分別為18，12，下列說法正確的是（　　）
A．流程執行后輸出結果是18
B．條件“r=0？”被執行3次
C．輸入時交換m，n的值，輸出結果與交換前相同
D．該流程功能是求m， n的最大公約數
【答案】C
【知識點】流程圖識讀
9．（2020高三上·嘉興月考）采用冒泡排序算法對數據序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正確的順序是（　　）
A．2，3，8，7，5，6，9 B．2，3，8，7，9，6，5
C．2，3，5，6，7，8，9 D．2，3，7，5，6，8，9
【答案】A
【知識點】排序算法及程序實現
10．（2020高三上·嘉興月考）有如下VB程序段：
s =" shenzhen"
For i=1 To Len(s)
a(i) = Mid(s，i，1)
b(i) = i
Next i
For i=Len(s) To 2 Step-1
If a(b(i)) >= a(b(i - 1)) Then
t=b(i)：b(i)=b(i-1)：b(i-1)=t
End If
Next i
Text1.Text = b(1)
文本框Text1中顯示的內容是（　　）
A．1 B．4 C．5 D．8
【答案】C
【知識點】排序算法及程序實現
11．（2020高三上·嘉興月考）有如下VB程序段：
For i=1 To 5
a(i)=Int (Rnd*9) +1
Next i
For i= 1 To 5
If i Mod2=0 Then
a(i) = a(i)\i
Else
a(i)= a(i) Mod i
End If
Next i
執行該程序段后，在下列選項中a(1)至a(5)各元素可能是（　　）
A．0 3 2 1 4 B．1 2 3 4 5 C．0 1 4 2 3 D．0 5 2 2 4
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
12．（2020高三上·嘉興月考）有如下VB程序段：
key = Val (Text1. Text)
i =0：j=9：n=0
Do While i<= j
m=(i+j)\2
n=n+1
If key <= a(m) Then
j=m-1
Else
i=m+1
End If
Loop
s=i
Do While i<9 And a(i)= a (i+1)
i=i+1
Loop
Label2.Caption = Str(n) +“：”+ Str(i + 1-s)
數組元素a(0~9)的值依次為“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中輸入“8”，點擊“查找”按鈕后，Labe12 中輸出的結果是(　　)
A．3：3 B．3：4 C．4：3 D．4：4
【答案】D
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·嘉興月考）小李同學收集了學校秋季田徑運動會各班級部分項目得分的統計數據，使用EXCEL軟件進行數據處理，如圖a所示。
請回答下列問題：
（1）小李同學在計算“男生合計”“女生合計”“合計”列得分數據時，先在Q6中輸入了公式，然后完成其他單元格的計算，他可能采用的方法是 (多選，填字母)
A．選擇Q6單元格，向右填充到R6單元格，在S6單元格輸入公式“=Q6+R6”，選擇Q6：S6區域，向下自動填充到Q17：S17區域。
B．在R6 單元輸入公式“=S6-Q6”，在S6單元格輸入公式“=Q6+R6”，選擇Q6：S6區域，向下自動填充到Q17：S17區域。
C．選擇Q6單元格， 向右自動填充到S6單元格，然后分別選擇Q6，R6，S6單元格分別向下填充到Q17，R17，S17單元格。
D．在S6單元格輸入公式“=SUM(C6：P6)”在R6單元輸入公式“=S6-Q6”，然后分別選擇Q6，R6，S6單元格分別向下填充到Q17，R17，S17單元格。
（2）如圖a所示，小李要對高三各班級按合計得分降序排序，排序范圍是　 　。
（3）小李根據圖a數據制作了圖b所示圖表，創建該圖表的數據區域是　 　。
【答案】（1）A；D
（2）B14：S17
（3）B3：B9， Q3：R9
【知識點】表格數據的處理與計算
14．（2020高三上·嘉興月考）小李使用Flash軟件制作“四季”多媒體作品，請回答下列問題：
（1）作品的流程設計示意圖如圖a所示，將“片頭”、“片尾”、各功能模塊和主交互界面都設計成獨立場景，場景播放完成后自動停止，各場景間跳轉均通過單擊相應場景上相應按鈕完成。下列說法正確的是 (多選，填字母)
A．該作品需設計制作9個場景
B．打開作品時直接進入“主交互界面”場景
C．“主交互界面”場景上至少有5個交互按鈕
D．設計該示意圖屬于多媒體創作設計過程中的規劃設計階段
E．“春天”“夏天”“秋天”“冬天”4個模塊間可以相互現跳轉
（2）“秋天”場景編輯界面如圖b所示，“標題”圖層中第25幀至第60幀實現文字“秋”由小到大的動畫效果，則此補間類型為　 　 (單選， 填字母：A .逐幀動畫/ B .形狀補間/C .動畫補間)。“火車”圖層中第1幀至第60幀實現“火車”實例由右向左水平移動的動畫效果，則第1幀中“火車”實例的坐標(X，Y)值可能是　 　(單選，填字母： A .(480，-220) /B .(480，220) /C .(-480， -220) /D .(-480， 220))
（3）“蜻蜓”圖層第1幀至第60幀實現“蜻蜓”實例由A點向B點振翅飛行動畫效果，現要求在“蜻蜓"實例在第1幀從A點出發，第30)幀時經過C點再飛向B點的動畫效果，應進行地操作是 (多選，填字母)
A．在“蜻蜒”圖層第30幀插入關鍵幀，移動30幀上“蜻蜓”實例到C點。
B．將“蜻蜓”圖層第60幀移動到30幀，在第60幀插入關鍵幀，移動30幀上“蜻蜓”實例到C點，設置30幀到60幀補間為動畫補間。
C．將“婧蜓”圖層第60幀移動到30幀，移動30幀上“蜻蜓”實例到C點，在第60幀插入關鍵幀，移動60幀上“蜻蜓”實例到B點
D．將“蜻蜓”圖層第60幀移動到30幀，在第60幀插入關鍵幀，移動60幀上“蜻蜓”實例到B點。
（4）)根據作品的流程設計示意圖圖a推測，“按鈕”圖層最后1幀上的“返回”按鈕的功能是單擊該按鈕跳轉到“主交互界面”第1幀并繼續播放，則該按鈕上的動作腳本是　 　。
【答案】（1）C；D
（2）C；B
（3）A；B
（4）on(release/press) { gotoandplay( “主交互界面”，1)； }
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；動畫的實現；常用影片控制函數的應用
15．（2020高三上·嘉興月考）老張要準備一道晚宴，需要上n個菜，為了省事他在n個不同的餐廳訂好了這些菜。現在他需要盡快取回這些菜，對于每一道菜，有兩種取菜方式：
1)讓各店的外賣員送貨上門，對于第i個菜需要花費a(i)的時間。
2)自己去餐廳取回家，每次出門僅能取回一道菜，對于第i個菜，從出門到回家整個過程需要花費b(i)的時間。
每家餐廳都有各自的外賣員送菜，并且無論老張是否在家，他們都能把菜送到。為了節省時間，能由外類員送的菜盡量由外賣負各自送達，現在需要知道最少花費多少時間能集齊所有的菜。
比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花費時間少的方案是第一個菜和第三個菜讓讓外賣員送，第二個菜和第四個菜老張自己取，一共需要40分鐘。
設計VB程序計算最少時間，界面如下圖
實現上述功能的VB程序如下，回答以下問題：
（1）根據程序語句判斷對象Lab3屬于　 　類。
(單選，填字母：A .Form1/B .Label /C .TextBox / mandButton)
（2）請在劃線處填入合適的代碼。
Const n=4
Dim a(1 To n) As Integer 'n道菜由每家餐廳外賣員送達耗時
Dim b(1 To n) As Integer 'n道菜自取耗時
Private Sub Form Load)
'產生外賣送貨各道菜耗時，并存儲到數組a中，并顯示
'產生自取各道菜耗時，并存儲到數組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As Integer, ans As Integer
Dim left As Integer, right As Integer, m As Integer
For i=1 To n
If a(i) > max Then 　 　 '外賣員送菜的最長時間
Next i
left= 1: right = max: ans = max
Do While left <= right
m= (left + right) \ 2
If 　 　Then
ans = m: right=m-1
Else
left=m+1
End If
Loop
Lab3. Caption=“最快”+ Str(ans) + “分鐘”
End Sub
Private Function check(t As Integer) As Boolean
Dim total As Integer
check = False
For i =1 To n
If a(i) > t Then
total =　 　'如果外賣來不及就自己取
End If
Next i
If Then check = True
End Function
（3）程序中加框處代碼有錯，請改正。
【答案】（1）B
（2）max=a(i)或其他等價答案；check(m) 或check (m) =true或其他等價答案；total + b(i)或其他等價答案
（3）total <= t或其他等價答案
【知識點】過程與自定義函數；查找算法及程序實現
16．（2020高三上·嘉興月考）某卡牌共有52張牌，分黑桃，紅桃，梅花，方塊4種花色，每種花色13張(編號為1~13)，花色分別用1，2，3，4表示。將這卡牌打亂后，從中每次摸1張牌，同種花色的牌放起，在每種花色均有3張牌時結束摸牌，然后按花色編號從小到大展示摸到的卡牌。
摸牌規則：
A.當某花色牌不足3張，則記錄摸到的牌，繼續摸下一張牌
B.當某花色的牌超過3張時，若摸到的卡牌點數大于本花色中已有卡牌點數的最小值，則替換本花色中點數最小的卡牌，否則，棄置摸到的牌。繼續下一-張摸牌
C.當所有花色的牌均為3張時結束摸牌。然后按花色編號從小到大展示摸到的卡牌
例如：在某次摸牌后的卡牌如下表所示：
花色 黑桃 紅桃 梅花 方塊
序號 1 2 3 4 5 6 7 8 9 10 11 12
點數 7 5 12 11 3 8 7 5 　 8 5 3
1)當下一次摸到“黑桃4”的牌時，4小于已摸到的[7，5，12]，棄置摸到的牌，繼續摸牌
2)當摸到“紅桃9”的牌時，9大于已摸到的[11，3，8]的最小值3，紅桃更新為[11，9，8]，繼續摸牌
3)當摸到“梅花9”的牌時，梅花點數更新為[7，5，9]，達到所有花色的牌均為3張的目標，結束摸牌。
模擬此過程編寫VB程序，程序運行界面如下圖，單擊“展示摸到的卡牌”按鈕開始摸牌，滿足條件時，在列表框中展示摸到的卡牌。
（1）在如表中所示卡牌狀態下，連續2次攢牌為“方塊4”，“方塊7”后，方塊卡牌點數更新為　 　(填點數，逗號分隔)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const n = 52
Dim hs(1 To n) As Integer'存儲每張卡牌的花色
Dim num(1 To n) As Integer'存儲每張卡牌的點數
Din class(1 To 4) As Integer '存儲每種花色卡牌的存儲位置
Dim record(1 To 12) As Integer
Private Sub Form _Load()
'讀取打亂的卡牌中每張卡牌的花色、點數數據，存入數組hs， num中，代碼略
End Sub
Private Sub Command1_ _Click()
Dim k As Integer， i As Integer， P As Integer
Dim flag As Boolean
flag = True
For i=1 To 4
class(i) = 　 　 '計算每種花色卡牌存儲的起始位置
Next i
i=1
Do while i<=n And flag=True
k = hs(i)
If class(k) > k* 3 Then
p = pos(i)
If p < 0 Then
　 　
End If
Else
record(class(k)) = i
class(k) = class(k) + 1
If class() =4 And class(2) =7 And class(3)=10 And clas(4)= 13 Then
flag= False
End If
End If
i=i+1
Loop
List1.AddItem “”&“花色”&“”&“點數”
For i =1 To 12
List1. AddItem“”& hs(record(i)) &“”& num(record(i))
Next i
End Sub
Function pos(t As Integer) As Integer '返回點數最小卡牌位置
Dim min As Integer
m= (hs(t)-1)*3+1
min= m
If num(record(min)) > num(record(m+ 1)) Then min=m+ 1
If num (record(min)) > num(record(m+ 2)) Then min=m+ 2
If 　 　 Then
pos= 0
Else
pos=min
End If
End Function
【答案】（1）8，5，7
（2）(i-1)*3+1或其他等價答案；record(p) = i或其他等價答案；num(record(min)) > num(t) 或其他等價答案
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省嘉興市2021屆高三上學期信息技術12月教學測試技術試卷
一、單選題(本大題共12小題，每小題2分，共24分)
1．（2020高三上·嘉興月考）下列有關信息的描述，不正確的是（　　）
A．信息是可加工處理的
B．信息可以通過多種方式表達
C．藍牙傳輸信息可以不依賴載體
D．股票市場即時行情信息體現信息的時效性
2．（2020高三上·嘉興月考）下列有關網頁與瀏覽器的說法，不正確的是（　　）
A．編輯網頁時可對網頁中的文字、圖片建立超鏈接
B．瀏覽器與服務器間通過HTML協議傳輸信息
C．使用記事本軟件可編輯網頁文件
D．收藏夾可以保存網頁URL
3．（2020高三上·嘉興月考）下列應用中，體現了人工智能技術的是（　　）
①學校門禁系統通過“人臉識別”驗證身份
②利用微信與朋友語音聊天
③某汽車具有自動泊車功能
④通過語音實現手機自動撥號
⑤“感應燈”感知光線控制開關
A．①③④ B．①②④ C．①②③ D．②③④
4．（2020高三上·嘉興月考）使用U1 traEdit軟件觀察字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中共有3個GB2312字符
B．圖中“！”是ASCII字符
C．小寫字母“y”的十六進制內碼為“88”
D．不同輸入法輸入“高考”兩字，它們的內碼不同
5．（2020高三上·嘉興月考）使用Photoshop軟件制作“廉”作品，界面如圖所示．
下列說法正確的是（　　）
A．可以對“背景”圖層添加濾鏡
B．“公則生明”圖層中圖層樣式均可見
C．可以用“自由變換”命令修改“廉”圖層中文字大小
D．將“古語”圖層移動至“廉”圖層的下方，“公則生明”圖層也會隨之移動
6．（2020高三上·嘉興月考）一張分辨率為 1024*768，黑白2種顏色未經壓縮的BMP圖片，另存為JPEG格式后容量約為10KB，則其壓縮比約為（　　）
A．25：1 B．20：1 C．15：1 D．10：1
7．（2020高三上·嘉興月考）字符串變量a，b的值分別是“120”，“20”，下列表達式的值結果為“True"的是（　　）
A．a>b or ab B．Not Mid(a+b，2，3)C．Int (Rnd*5) * 4+1>Val (b) D．Val(a) Mod 100 \10=Sqr(4)
8．（2020高三上·嘉興月考）某算法流程圖如圖所示，執行這部分流程，輸入m，n的值分別為18，12，下列說法正確的是（　　）
A．流程執行后輸出結果是18
B．條件“r=0？”被執行3次
C．輸入時交換m，n的值，輸出結果與交換前相同
D．該流程功能是求m， n的最大公約數
9．（2020高三上·嘉興月考）采用冒泡排序算法對數據序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正確的順序是（　　）
A．2，3，8，7，5，6，9 B．2，3，8，7，9，6，5
C．2，3，5，6，7，8，9 D．2，3，7，5，6，8，9
10．（2020高三上·嘉興月考）有如下VB程序段：
s =" shenzhen"
For i=1 To Len(s)
a(i) = Mid(s，i，1)
b(i) = i
Next i
For i=Len(s) To 2 Step-1
If a(b(i)) >= a(b(i - 1)) Then
t=b(i)：b(i)=b(i-1)：b(i-1)=t
End If
Next i
Text1.Text = b(1)
文本框Text1中顯示的內容是（　　）
A．1 B．4 C．5 D．8
11．（2020高三上·嘉興月考）有如下VB程序段：
For i=1 To 5
a(i)=Int (Rnd*9) +1
Next i
For i= 1 To 5
If i Mod2=0 Then
a(i) = a(i)\i
Else
a(i)= a(i) Mod i
End If
Next i
執行該程序段后，在下列選項中a(1)至a(5)各元素可能是（　　）
A．0 3 2 1 4 B．1 2 3 4 5 C．0 1 4 2 3 D．0 5 2 2 4
12．（2020高三上·嘉興月考）有如下VB程序段：
key = Val (Text1. Text)
i =0：j=9：n=0
Do While i<= j
m=(i+j)\2
n=n+1
If key <= a(m) Then
j=m-1
Else
i=m+1
End If
Loop
s=i
Do While i<9 And a(i)= a (i+1)
i=i+1
Loop
Label2.Caption = Str(n) +“：”+ Str(i + 1-s)
數組元素a(0~9)的值依次為“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中輸入“8”，點擊“查找”按鈕后，Labe12 中輸出的結果是(　　)
A．3：3 B．3：4 C．4：3 D．4：4
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·嘉興月考）小李同學收集了學校秋季田徑運動會各班級部分項目得分的統計數據，使用EXCEL軟件進行數據處理，如圖a所示。
請回答下列問題：
（1）小李同學在計算“男生合計”“女生合計”“合計”列得分數據時，先在Q6中輸入了公式，然后完成其他單元格的計算，他可能采用的方法是 (多選，填字母)
A．選擇Q6單元格，向右填充到R6單元格，在S6單元格輸入公式“=Q6+R6”，選擇Q6：S6區域，向下自動填充到Q17：S17區域。
B．在R6 單元輸入公式“=S6-Q6”，在S6單元格輸入公式“=Q6+R6”，選擇Q6：S6區域，向下自動填充到Q17：S17區域。
C．選擇Q6單元格， 向右自動填充到S6單元格，然后分別選擇Q6，R6，S6單元格分別向下填充到Q17，R17，S17單元格。
D．在S6單元格輸入公式“=SUM(C6：P6)”在R6單元輸入公式“=S6-Q6”，然后分別選擇Q6，R6，S6單元格分別向下填充到Q17，R17，S17單元格。
（2）如圖a所示，小李要對高三各班級按合計得分降序排序，排序范圍是　 　。
（3）小李根據圖a數據制作了圖b所示圖表，創建該圖表的數據區域是　 　。
14．（2020高三上·嘉興月考）小李使用Flash軟件制作“四季”多媒體作品，請回答下列問題：
（1）作品的流程設計示意圖如圖a所示，將“片頭”、“片尾”、各功能模塊和主交互界面都設計成獨立場景，場景播放完成后自動停止，各場景間跳轉均通過單擊相應場景上相應按鈕完成。下列說法正確的是 (多選，填字母)
A．該作品需設計制作9個場景
B．打開作品時直接進入“主交互界面”場景
C．“主交互界面”場景上至少有5個交互按鈕
D．設計該示意圖屬于多媒體創作設計過程中的規劃設計階段
E．“春天”“夏天”“秋天”“冬天”4個模塊間可以相互現跳轉
（2）“秋天”場景編輯界面如圖b所示，“標題”圖層中第25幀至第60幀實現文字“秋”由小到大的動畫效果，則此補間類型為　 　 (單選， 填字母：A .逐幀動畫/ B .形狀補間/C .動畫補間)。“火車”圖層中第1幀至第60幀實現“火車”實例由右向左水平移動的動畫效果，則第1幀中“火車”實例的坐標(X，Y)值可能是　 　(單選，填字母： A .(480，-220) /B .(480，220) /C .(-480， -220) /D .(-480， 220))
（3）“蜻蜓”圖層第1幀至第60幀實現“蜻蜓”實例由A點向B點振翅飛行動畫效果，現要求在“蜻蜓"實例在第1幀從A點出發，第30)幀時經過C點再飛向B點的動畫效果，應進行地操作是 (多選，填字母)
A．在“蜻蜒”圖層第30幀插入關鍵幀，移動30幀上“蜻蜓”實例到C點。
B．將“蜻蜓”圖層第60幀移動到30幀，在第60幀插入關鍵幀，移動30幀上“蜻蜓”實例到C點，設置30幀到60幀補間為動畫補間。
C．將“婧蜓”圖層第60幀移動到30幀，移動30幀上“蜻蜓”實例到C點，在第60幀插入關鍵幀，移動60幀上“蜻蜓”實例到B點
D．將“蜻蜓”圖層第60幀移動到30幀，在第60幀插入關鍵幀，移動60幀上“蜻蜓”實例到B點。
（4）)根據作品的流程設計示意圖圖a推測，“按鈕”圖層最后1幀上的“返回”按鈕的功能是單擊該按鈕跳轉到“主交互界面”第1幀并繼續播放，則該按鈕上的動作腳本是　 　。
15．（2020高三上·嘉興月考）老張要準備一道晚宴，需要上n個菜，為了省事他在n個不同的餐廳訂好了這些菜。現在他需要盡快取回這些菜，對于每一道菜，有兩種取菜方式：
1)讓各店的外賣員送貨上門，對于第i個菜需要花費a(i)的時間。
2)自己去餐廳取回家，每次出門僅能取回一道菜，對于第i個菜，從出門到回家整個過程需要花費b(i)的時間。
每家餐廳都有各自的外賣員送菜，并且無論老張是否在家，他們都能把菜送到。為了節省時間，能由外類員送的菜盡量由外賣負各自送達，現在需要知道最少花費多少時間能集齊所有的菜。
比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花費時間少的方案是第一個菜和第三個菜讓讓外賣員送，第二個菜和第四個菜老張自己取，一共需要40分鐘。
設計VB程序計算最少時間，界面如下圖
實現上述功能的VB程序如下，回答以下問題：
（1）根據程序語句判斷對象Lab3屬于　 　類。
(單選，填字母：A .Form1/B .Label /C .TextBox / mandButton)
（2）請在劃線處填入合適的代碼。
Const n=4
Dim a(1 To n) As Integer 'n道菜由每家餐廳外賣員送達耗時
Dim b(1 To n) As Integer 'n道菜自取耗時
Private Sub Form Load)
'產生外賣送貨各道菜耗時，并存儲到數組a中，并顯示
'產生自取各道菜耗時，并存儲到數組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As Integer, ans As Integer
Dim left As Integer, right As Integer, m As Integer
For i=1 To n
If a(i) > max Then 　 　 '外賣員送菜的最長時間
Next i
left= 1: right = max: ans = max
Do While left <= right
m= (left + right) \ 2
If 　 　Then
ans = m: right=m-1
Else
left=m+1
End If
Loop
Lab3. Caption=“最快”+ Str(ans) + “分鐘”
End Sub
Private Function check(t As Integer) As Boolean
Dim total As Integer
check = False
For i =1 To n
If a(i) > t Then
total =　 　'如果外賣來不及就自己取
End If
Next i
If Then check = True
End Function
（3）程序中加框處代碼有錯，請改正。
16．（2020高三上·嘉興月考）某卡牌共有52張牌，分黑桃，紅桃，梅花，方塊4種花色，每種花色13張(編號為1~13)，花色分別用1，2，3，4表示。將這卡牌打亂后，從中每次摸1張牌，同種花色的牌放起，在每種花色均有3張牌時結束摸牌，然后按花色編號從小到大展示摸到的卡牌。
摸牌規則：
A.當某花色牌不足3張，則記錄摸到的牌，繼續摸下一張牌
B.當某花色的牌超過3張時，若摸到的卡牌點數大于本花色中已有卡牌點數的最小值，則替換本花色中點數最小的卡牌，否則，棄置摸到的牌。繼續下一-張摸牌
C.當所有花色的牌均為3張時結束摸牌。然后按花色編號從小到大展示摸到的卡牌
例如：在某次摸牌后的卡牌如下表所示：
花色 黑桃 紅桃 梅花 方塊
序號 1 2 3 4 5 6 7 8 9 10 11 12
點數 7 5 12 11 3 8 7 5 　 8 5 3
1)當下一次摸到“黑桃4”的牌時，4小于已摸到的[7，5，12]，棄置摸到的牌，繼續摸牌
2)當摸到“紅桃9”的牌時，9大于已摸到的[11，3，8]的最小值3，紅桃更新為[11，9，8]，繼續摸牌
3)當摸到“梅花9”的牌時，梅花點數更新為[7，5，9]，達到所有花色的牌均為3張的目標，結束摸牌。
模擬此過程編寫VB程序，程序運行界面如下圖，單擊“展示摸到的卡牌”按鈕開始摸牌，滿足條件時，在列表框中展示摸到的卡牌。
（1）在如表中所示卡牌狀態下，連續2次攢牌為“方塊4”，“方塊7”后，方塊卡牌點數更新為　 　(填點數，逗號分隔)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const n = 52
Dim hs(1 To n) As Integer'存儲每張卡牌的花色
Dim num(1 To n) As Integer'存儲每張卡牌的點數
Din class(1 To 4) As Integer '存儲每種花色卡牌的存儲位置
Dim record(1 To 12) As Integer
Private Sub Form _Load()
'讀取打亂的卡牌中每張卡牌的花色、點數數據，存入數組hs， num中，代碼略
End Sub
Private Sub Command1_ _Click()
Dim k As Integer， i As Integer， P As Integer
Dim flag As Boolean
flag = True
For i=1 To 4
class(i) = 　 　 '計算每種花色卡牌存儲的起始位置
Next i
i=1
Do while i<=n And flag=True
k = hs(i)
If class(k) > k* 3 Then
p = pos(i)
If p < 0 Then
　 　
End If
Else
record(class(k)) = i
class(k) = class(k) + 1
If class() =4 And class(2) =7 And class(3)=10 And clas(4)= 13 Then
flag= False
End If
End If
i=i+1
Loop
List1.AddItem “”&“花色”&“”&“點數”
For i =1 To 12
List1. AddItem“”& hs(record(i)) &“”& num(record(i))
Next i
End Sub
Function pos(t As Integer) As Integer '返回點數最小卡牌位置
Dim min As Integer
m= (hs(t)-1)*3+1
min= m
If num(record(min)) > num(record(m+ 1)) Then min=m+ 1
If num (record(min)) > num(record(m+ 2)) Then min=m+ 2
If 　 　 Then
pos= 0
Else
pos=min
End If
End Function
答案解析部分
1．【答案】C
【知識點】信息及其特征
2．【答案】B
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具；網頁的交互設計
3．【答案】A
【知識點】人工智能的應用
4．【答案】B
【知識點】字符編碼
5．【答案】A
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】D
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】C
【知識點】流程圖識讀
9．【答案】A
【知識點】排序算法及程序實現
10．【答案】C
【知識點】排序算法及程序實現
11．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）A；D
（2）B14：S17
（3）B3：B9， Q3：R9
【知識點】表格數據的處理與計算
14．【答案】（1）C；D
（2）C；B
（3）A；B
（4）on(release/press) { gotoandplay( “主交互界面”，1)； }
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；動畫的實現；常用影片控制函數的應用
15．【答案】（1）B
（2）max=a(i)或其他等價答案；check(m) 或check (m) =true或其他等價答案；total + b(i)或其他等價答案
（3）total <= t或其他等價答案
【知識點】過程與自定義函數；查找算法及程序實現
16．【答案】（1）8，5，7
（2）(i-1)*3+1或其他等價答案；record(p) = i或其他等價答案；num(record(min)) > num(t) 或其他等價答案
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑