資源簡介

浙江省紹興市2021屆高三下學期技術4月適應性考試（二模）試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·紹興模擬）關于信息與信息技術，下列說法正確的是（　　）
A．信息只有數字化后才有意義
B．信息經過加工處理后一定具有更高的價值
C．微信中朋友發布的信息都是值得信賴的
D．通過數據加密技術加密信息可以提高安全性
【答案】D
【知識點】信息及其特征；信息系統安全防護
2．（2021·紹興模擬）小明使用智能手機進行網絡購物，經歷了如下過程：
① 手機電量不足時，給手機無線充電
② 智能客服代替人工與小明語音交流
③ 下訂單后，進行刷臉支付
④ 實時查看商品的物流信息
⑤ 通過識別指紋開啟寄存柜
以上過程中，應用了人工智能技術的有（　　）
A．①②③ B．①②④ C．②③⑤ D．③④⑤
【答案】C
【知識點】人工智能的應用
3．（2021·紹興模擬）用Access軟件設計某水果進銷存系統的數據庫，其中“水果信息表”數據表中需要存儲如圖所示的數據。
描述不正確的是（　　）
A．該數據表的字段名稱可以與上表所示每列名稱不同
B．圖中“單價”列在該數據表中相應字段的數據類型只能是“數字”型
C．若圖中“水果編碼”列在該數據表中相應的字段設置為主鍵，則該字段的字段值一定是不同的
D．可以在圖中“水果名稱”列在該數據表中相應的字段后插入一個“配送單位”字段
【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．（2021·紹興模擬）使用UltraEdit軟件觀察字符“2021-2025年十四五規劃早知道abc”的內碼，部分界面如下圖所示。
下列說法正確的是（　　）
A．上述字符中共有12個ASCII字符
B．字符“c”的內碼值用十進制表示為99
C．字符“十”的十六進制內碼值是EA CA
D．字符“5”的內碼值的2倍用十六進制表示為70
【答案】B
【知識點】進制及數制轉換；字符編碼
5．（2021·紹興模擬）使用Photoshop軟件制作“抗疫”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．不可以直接對“圖層 1”圖層進行重命名
B．可以通過“自由變換”操作調整“文字”圖層中部分文字的大小
C．“研究人員”圖層設置了圖層樣式，不可以再添加濾鏡效果
D．刪除“病毒”圖層后直接保存為BMP格式圖像，圖像容量約為2.75MB
【答案】D
【知識點】圖層及圖層的基本操作
6．（2021·紹興模擬）有兩幅BMP格式圖像，A圖像參數為800×600像素，24位真彩色，B圖像參數為400×300像素，256級灰度，則圖像A和B的存儲容量之比為（　　）
A．6:1 B．12:1 C．3:4 D．3:8
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2021·紹興模擬）若a=43，b=47，有VB表達式：
① a * b Mod 10 = 1 ② Abs(a - b) = 10
③ a \ 10 = b \ 10 ④ b Mod 10 \ 2 = 2
⑤ a Mod 2 <> b Mod 2
上述表達式的值為True的有（　　）
A．①③④ B．①③⑤ C．②③⑤ D．③④⑤
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021·紹興模擬）某算法的部分流程圖如圖所示。
執行這部分流程，若依次輸入2、-3、5、-1、2、1、-3、0，則輸出m的值為（　　）
A．4 B．5 C．6 D．7
【答案】C
【知識點】流程圖識讀
9．（2021·紹興模擬）有如下 VB 程序段：
s = "python2021": t = "": i = 1
Do While i < Len(s)
c = Mid(s, i, 1): d = Mid(s, i + 1, 1)
If c < d Then t = t + c Else t = t + d
i = i + 2
Loop
Label1.Caption = t
執行該程序段后，標簽Label1上顯示的內容是（　　）
A．phn01 B．pto22 C．yhn01 D．yto22
【答案】A
【知識點】循環結構語句及程序實現
10．（2021·紹興模擬）為統計某股票一年內共200個交易日收盤價中連續20個交易日的最大波動值（即連續20個交易日內的最高收盤價-最低收盤價）。數組元素a(1)~a(200)按時間先后順序分別存儲200個交易日的收盤價。編寫如下VB程序實現上述功能：
max = 0
For p =
amin = a(p): amax = a(p)
i = p + 1: j = p + 19
Do While
If a(i) > a(j) Then
If a(i) > amax Then amax = a(i)
If a(j) < amin Then amin = a(j)
Else
If a(i) < amin Then amin = a(i)
If a(j) > amax Then amax = a(j)
End If
i = i + 1: j = j - 1
Loop
If Then max = amax - amin
Next p
Text1.Text = "最大波動值為：" + Str(max)
上述程序段3個方框處的語句分別為（　　）
A．①1 To 181 ②i <= j ③max < amax - amin
B．①1 To 181 ②i < j ③max > amax - amin
C．①1 To 180 Step 20 ②i <= j ③max < amax - amin
D．①1 To 180 Step 20 ②i < j ③max > amax - amin
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021·紹興模擬）采用冒泡排序算法對數據序列“8,3,5,2,0,9”進行排序，第一輪排序后的結果為“0,8,3,5,2,9”，則整個序列完成排序的交換次數是（　　）
A．6次 B．7次 C．8次 D．9次
【答案】D
【知識點】排序算法及程序實現
12．（2021·紹興模擬）某對分查找算法的VB程序段如下：
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若數組元素a(1)到a(8)的值依次為 1,10,11,12,15,30,32,37，執行該程序段后，文本框Text1中顯示的內容可能是（　　）
A．1 B．3 C．4 D．7
【答案】C
【知識點】查找算法及程序實現
二、非選擇題（本題共4小題，4+8+7+7，共26分）
13．（2021·紹興模擬）使用Excel軟件處理某超市進銷存數據，如圖a所示。
請回答下列問題：
（1）區域H3:H357的數據通過公式計算得到：在H3單元格中輸入公式　 　，再使用自動填充功能完成區域 H4:H357的計算。（提示：利潤=（商品售價-商品進價）× 銷量）
（2）圖a中“糧油類”商品編碼數據“101717”誤輸入為“10177”，“糧油類”商品按“商品編碼”升序排序后，發現“10177”位于“101720”之后，其原因是B355、B356單元格中的數據是　 　類型。
（3）完成圖a中的各類商品總利潤計算之后，制作了如圖b所示的圖表。下列說法正確的有 （多選，填字母）。
A．總利潤最高的商品是水果類
B．對區域E3:G357數據格式設置為“保留1位小數”，“利潤”列數據保持不變
C．在圖a所示工作表中按“商品名稱”篩選所有花生油，圖c中①處可選擇“包含”
D．對蔬菜類以“銷量”為關鍵字進行升序排序，則選擇的排序數據區域為A2:H130
【答案】（1）=(E3-F3)*G3
（2）文本
（3）B；C
【知識點】表格數據的處理與計算
14．（2021·紹興模擬）使用 Flash 軟件創作主題為“抗疫”的多媒體作品，其中“main”場景的制作腳本如下表所示。
場景名: main 類別序號: 2 進入方式: 來自“片頭”場景，通過“Enter”按鈕進入
呈現方式： ①文字從上而下加速飛入到舞臺中，時長4秒. ②人物從完全透明到完全顯示變化，時長4秒。 ③疫苗動畫實現從“疫苗”文字逐漸變為“藥瓶和注射器”，時長4秒。 ④“接種流程”和“注意事項”按鈕位于舞臺下方，單擊“接種流程”按鈕，跳轉到“接種流程”場景第1幀繼續播放，單擊“注意事項”按鈕，跳轉到“注意事項”場景第1幀繼續播放。(其它略) 呈現順序： ①開始時出現背景圖片、人物動畫、疫苗動畫和背景音樂。 ②第1秒時開始出現文字動畫。 ③第5秒時出現“接種流程”和“注意事項”按鈕 ④播放完該場景最后一幀動畫自動停止，背景音樂不停止。
（1）分析制作腳本，下列說法正確的有 （多選，填字母）。
A．該場景中至少需要有3個按鈕
B．文字動畫結束時出現“接種流程”按鈕
C．背景音樂的同步方式可以設置為“數據流”
D．人物動畫開始幀中的對象的Alpha屬性值應設置為0%
E．“疫苗”文字變“藥瓶和注射器”的補間動畫類型是形狀補間
（2）根據上述腳本，在Flash軟件中編輯“main”場景，部分界面如圖A所示。
圖A
如圖A所示，要實現播放完該場景動畫后自動停止的效果，可以直接在　 　圖層第60幀上添加腳本動作腳本“stop()；”。要使“背景”圖層中的內容延續至最后一幀，可以選中該圖層第40幀，執行　 　（單選，填字母：A .清除幀 / B .清除關鍵幀 / C .刪除幀）。
（3）在圖A所示狀態下，若要使“文字”圖層的動畫一開始就出現，且文字動畫時長保持不變，則可行的操作是　 　。
（4）測試影片時，單擊當前場景中的“接種流程”按鈕，跳轉到“接種流程”場景第1幀處繼續播放，以下腳本命令正確的是 （多選，填字母）。
A．on (release) {play();}
B．on (release) {play("接種流程",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("接種流程",1);}
【答案】（1）B；D；E
（2）按鈕；B
（3）選中“文字”圖層第11幀至50幀整體移動到第1幀至40幀或選中“文字”圖層第11幀移動到第1幀，選中“文字”圖層第50幀移動到第40幀
（4）A；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2021·紹興模擬）給定n個學生成績，篩選男生或女生中成績居前百分之k的學生。篩選規則如下：m=男生或女生記錄數×k%，若m<1，則m取1；否則m向下取整，如m=3.1，則篩選最大的3項。若有數據和第m項的值相同，則一起篩選出。如有男生成績分別是“78,99,98,99,90”，以“最大10百分比”篩選，則5×10%=0.5，篩選最大的1項，篩選出“99,99”。
編寫一個VB程序，實現上述功能。程序運行時，在列表框List1中顯示n名學生的姓名、性別和成績，在文本框Text1中輸入性別，Text2中輸入k，單擊“篩選”按鈕Command1，在列表框List2中顯示篩選出的學生姓名、性別和成績。程序運行界面如圖所示。
（1）下列VB語句可以實現清空文本框Text1內容的是　 　（單選，填字母：A
.Text1.Clear / B .Text1.Caption = "" / C .Text1.Text = ""）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim n As
Integer
Dim xm(1 To
n) As String
Dim xb(0 To
n) As String
Dim cj(0 To
n) As Integer
Private Sub
Form_Load()
'讀取學生姓名、性別和成績分別存 xm、xb 和 cj 數組，并在列表框 List1 中顯示。
'學生人數存變量 n，代碼略。
End Sub
Private Sub
Command1_Click()
Dim s As String, k As Single, m As Single,
mm As Integer
Dim c As Integer, p As Integer, i As
Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k =
Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then 　 　
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm = 　 　
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To n
If xb(j) = s Then
If
Then p = j
End If
Next j
If i <> p Then
t1 = xb(i): xb(i) = xb(p): xb(p) = t1
t2 = cj(i): cj(i) = cj(p): cj(p) = t2
End If
If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do
i = i + 1
Loop
　 　
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
（3）程序加框處的代碼有誤，請改正。
【答案】（1）C
（2）c = c + 1；Fix(m)或 Int(m)或 Fix(c * k / 100)或 Int(c * k / 100)；mm = i - 1
（3）xb(p) <> s Or cj(j) > cj(p)
【知識點】排序算法及程序實現；常用標準函數；基本語句
16．（2021·紹興模擬）某手機APP為電影觀眾選座提供了程序推薦和自主選位功能。當觀眾購票選擇程序推薦時，程序根據電影放映廳內每個座位的優先等級（用一個正整數表示其等級值，如圖a所示），自第1排1號座開始，按自左向右逐排的順序查找滿足本次購票人數r的最優空位區（最優空位區是指從某個座位開始的同排連續的r個空位，且其等級值之和最高，若有多個最優空位區，則推薦最先找到的）。若找到，則顯示出推薦的座位編號；若找不到，則提示自主選位。
例如：圖a中放映廳內座位有9排10列，第5排10個座位的等級值依次為：1,2,3,4,5,5,4,3,2,1。全部座位為空時，當前購票人數為5，推薦座位編號為5排3-7號；如圖b所示已經部分選座狀態下，當前購票人數為2，推薦座位編號為6排3-4號。
編寫VB程序，模擬上述功能。運行程序，在列表List1中顯示目前選座狀態，黑點表示已選座，白點表示空位，在文本框Text1中輸入購票人數后，單擊“推薦”按鈕Command1，在標簽Label3顯示當前購票人座位的推薦結果。程序運行界面如圖c所示。
（1）如圖a所示，全部座位為空時，第1次購票人數為4人，按程序推薦座位選座，座位等級值之和為　 　 。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const m = 9 'm 表示座位有9排
Const n = 10 'n 表示每排的座位數為10
Dim r As Integer 'r 表示當次輸入的購票人數
Dim a(1 to m * n) As Integer 'a 數組存放每個座位的等級值
Dim b(1 to m * n + 1) As Integer 'b 數組保存當前各座位選座情況，選中為1，未選為 0
Private Sub Form_Load()
'從第1排開始，按座位編號從小到大順序逐排讀取座位等級值并依次存入數組a
'同上述順序，讀取選座狀態存入數組元素b(1)至b(m*n)中，輸出當前選座狀態。代碼略
End Sub
Function getsum(i As Integer, j As Integer) As Integer
'從第i排第j列開始，計算第i排中滿足r個觀眾就座的連續空位等級值之和。
'若無法找到足夠的連續空位時，則返回-1
Dim p As Integer, sum As
Integer, k As Integer
sum = 0
p = j: k = (i - 1) * n + p
Do While p <= j + r - 1 And
b(k) = 0
sum = 　 　
p = p + 1: k = k + 1
Loop
If p = j + r Then getsum = sum
Else getsum = -1
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer,
s As String, max As Integer
Dim t As Integer, newi As
Integer, newj As Integer, pos As Integer
r = Val(Text1.Text)
max = 0
For i = 1 To m
For j = 1 To n - r + 1
　 　
If
max < t Then max = t: newi = i: newj = j
Next j
Next i
If max = 0 Then
Label3.Caption = "請自主選位" Else
pos = (newi - 1) * n + newj
For i = 　 　
b(i)
= 1
Next i
Label3.Caption
= "推薦座位編號：" & newi &
"排" & newj & "-" & newj
+ r - 1 & "座"
End If
End Sub
【答案】（1）18
（2）sum + a(k) 或 sum + a((i - 1) * n + p)；t = getsum(i, j)；pos To pos + r - 1 或 pos + r - 1 To pos Step -1
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省紹興市2021屆高三下學期技術4月適應性考試（二模）試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·紹興模擬）關于信息與信息技術，下列說法正確的是（　　）
A．信息只有數字化后才有意義
B．信息經過加工處理后一定具有更高的價值
C．微信中朋友發布的信息都是值得信賴的
D．通過數據加密技術加密信息可以提高安全性
2．（2021·紹興模擬）小明使用智能手機進行網絡購物，經歷了如下過程：
① 手機電量不足時，給手機無線充電
② 智能客服代替人工與小明語音交流
③ 下訂單后，進行刷臉支付
④ 實時查看商品的物流信息
⑤ 通過識別指紋開啟寄存柜
以上過程中，應用了人工智能技術的有（　　）
A．①②③ B．①②④ C．②③⑤ D．③④⑤
3．（2021·紹興模擬）用Access軟件設計某水果進銷存系統的數據庫，其中“水果信息表”數據表中需要存儲如圖所示的數據。
描述不正確的是（　　）
A．該數據表的字段名稱可以與上表所示每列名稱不同
B．圖中“單價”列在該數據表中相應字段的數據類型只能是“數字”型
C．若圖中“水果編碼”列在該數據表中相應的字段設置為主鍵，則該字段的字段值一定是不同的
D．可以在圖中“水果名稱”列在該數據表中相應的字段后插入一個“配送單位”字段
4．（2021·紹興模擬）使用UltraEdit軟件觀察字符“2021-2025年十四五規劃早知道abc”的內碼，部分界面如下圖所示。
下列說法正確的是（　　）
A．上述字符中共有12個ASCII字符
B．字符“c”的內碼值用十進制表示為99
C．字符“十”的十六進制內碼值是EA CA
D．字符“5”的內碼值的2倍用十六進制表示為70
5．（2021·紹興模擬）使用Photoshop軟件制作“抗疫”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．不可以直接對“圖層 1”圖層進行重命名
B．可以通過“自由變換”操作調整“文字”圖層中部分文字的大小
C．“研究人員”圖層設置了圖層樣式，不可以再添加濾鏡效果
D．刪除“病毒”圖層后直接保存為BMP格式圖像，圖像容量約為2.75MB
6．（2021·紹興模擬）有兩幅BMP格式圖像，A圖像參數為800×600像素，24位真彩色，B圖像參數為400×300像素，256級灰度，則圖像A和B的存儲容量之比為（　　）
A．6:1 B．12:1 C．3:4 D．3:8
7．（2021·紹興模擬）若a=43，b=47，有VB表達式：
① a * b Mod 10 = 1 ② Abs(a - b) = 10
③ a \ 10 = b \ 10 ④ b Mod 10 \ 2 = 2
⑤ a Mod 2 <> b Mod 2
上述表達式的值為True的有（　　）
A．①③④ B．①③⑤ C．②③⑤ D．③④⑤
8．（2021·紹興模擬）某算法的部分流程圖如圖所示。
執行這部分流程，若依次輸入2、-3、5、-1、2、1、-3、0，則輸出m的值為（　　）
A．4 B．5 C．6 D．7
9．（2021·紹興模擬）有如下 VB 程序段：
s = "python2021": t = "": i = 1
Do While i < Len(s)
c = Mid(s, i, 1): d = Mid(s, i + 1, 1)
If c < d Then t = t + c Else t = t + d
i = i + 2
Loop
Label1.Caption = t
執行該程序段后，標簽Label1上顯示的內容是（　　）
A．phn01 B．pto22 C．yhn01 D．yto22
10．（2021·紹興模擬）為統計某股票一年內共200個交易日收盤價中連續20個交易日的最大波動值（即連續20個交易日內的最高收盤價-最低收盤價）。數組元素a(1)~a(200)按時間先后順序分別存儲200個交易日的收盤價。編寫如下VB程序實現上述功能：
max = 0
For p =
amin = a(p): amax = a(p)
i = p + 1: j = p + 19
Do While
If a(i) > a(j) Then
If a(i) > amax Then amax = a(i)
If a(j) < amin Then amin = a(j)
Else
If a(i) < amin Then amin = a(i)
If a(j) > amax Then amax = a(j)
End If
i = i + 1: j = j - 1
Loop
If Then max = amax - amin
Next p
Text1.Text = "最大波動值為：" + Str(max)
上述程序段3個方框處的語句分別為（　　）
A．①1 To 181 ②i <= j ③max < amax - amin
B．①1 To 181 ②i < j ③max > amax - amin
C．①1 To 180 Step 20 ②i <= j ③max < amax - amin
D．①1 To 180 Step 20 ②i < j ③max > amax - amin
11．（2021·紹興模擬）采用冒泡排序算法對數據序列“8,3,5,2,0,9”進行排序，第一輪排序后的結果為“0,8,3,5,2,9”，則整個序列完成排序的交換次數是（　　）
A．6次 B．7次 C．8次 D．9次
12．（2021·紹興模擬）某對分查找算法的VB程序段如下：
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若數組元素a(1)到a(8)的值依次為 1,10,11,12,15,30,32,37，執行該程序段后，文本框Text1中顯示的內容可能是（　　）
A．1 B．3 C．4 D．7
二、非選擇題（本題共4小題，4+8+7+7，共26分）
13．（2021·紹興模擬）使用Excel軟件處理某超市進銷存數據，如圖a所示。
請回答下列問題：
（1）區域H3:H357的數據通過公式計算得到：在H3單元格中輸入公式　 　，再使用自動填充功能完成區域 H4:H357的計算。（提示：利潤=（商品售價-商品進價）× 銷量）
（2）圖a中“糧油類”商品編碼數據“101717”誤輸入為“10177”，“糧油類”商品按“商品編碼”升序排序后，發現“10177”位于“101720”之后，其原因是B355、B356單元格中的數據是　 　類型。
（3）完成圖a中的各類商品總利潤計算之后，制作了如圖b所示的圖表。下列說法正確的有 （多選，填字母）。
A．總利潤最高的商品是水果類
B．對區域E3:G357數據格式設置為“保留1位小數”，“利潤”列數據保持不變
C．在圖a所示工作表中按“商品名稱”篩選所有花生油，圖c中①處可選擇“包含”
D．對蔬菜類以“銷量”為關鍵字進行升序排序，則選擇的排序數據區域為A2:H130
14．（2021·紹興模擬）使用 Flash 軟件創作主題為“抗疫”的多媒體作品，其中“main”場景的制作腳本如下表所示。
場景名: main 類別序號: 2 進入方式: 來自“片頭”場景，通過“Enter”按鈕進入
呈現方式： ①文字從上而下加速飛入到舞臺中，時長4秒. ②人物從完全透明到完全顯示變化，時長4秒。 ③疫苗動畫實現從“疫苗”文字逐漸變為“藥瓶和注射器”，時長4秒。 ④“接種流程”和“注意事項”按鈕位于舞臺下方，單擊“接種流程”按鈕，跳轉到“接種流程”場景第1幀繼續播放，單擊“注意事項”按鈕，跳轉到“注意事項”場景第1幀繼續播放。(其它略) 呈現順序： ①開始時出現背景圖片、人物動畫、疫苗動畫和背景音樂。 ②第1秒時開始出現文字動畫。 ③第5秒時出現“接種流程”和“注意事項”按鈕 ④播放完該場景最后一幀動畫自動停止，背景音樂不停止。
（1）分析制作腳本，下列說法正確的有 （多選，填字母）。
A．該場景中至少需要有3個按鈕
B．文字動畫結束時出現“接種流程”按鈕
C．背景音樂的同步方式可以設置為“數據流”
D．人物動畫開始幀中的對象的Alpha屬性值應設置為0%
E．“疫苗”文字變“藥瓶和注射器”的補間動畫類型是形狀補間
（2）根據上述腳本，在Flash軟件中編輯“main”場景，部分界面如圖A所示。
圖A
如圖A所示，要實現播放完該場景動畫后自動停止的效果，可以直接在　 　圖層第60幀上添加腳本動作腳本“stop()；”。要使“背景”圖層中的內容延續至最后一幀，可以選中該圖層第40幀，執行　 　（單選，填字母：A .清除幀 / B .清除關鍵幀 / C .刪除幀）。
（3）在圖A所示狀態下，若要使“文字”圖層的動畫一開始就出現，且文字動畫時長保持不變，則可行的操作是　 　。
（4）測試影片時，單擊當前場景中的“接種流程”按鈕，跳轉到“接種流程”場景第1幀處繼續播放，以下腳本命令正確的是 （多選，填字母）。
A．on (release) {play();}
B．on (release) {play("接種流程",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("接種流程",1);}
15．（2021·紹興模擬）給定n個學生成績，篩選男生或女生中成績居前百分之k的學生。篩選規則如下：m=男生或女生記錄數×k%，若m<1，則m取1；否則m向下取整，如m=3.1，則篩選最大的3項。若有數據和第m項的值相同，則一起篩選出。如有男生成績分別是“78,99,98,99,90”，以“最大10百分比”篩選，則5×10%=0.5，篩選最大的1項，篩選出“99,99”。
編寫一個VB程序，實現上述功能。程序運行時，在列表框List1中顯示n名學生的姓名、性別和成績，在文本框Text1中輸入性別，Text2中輸入k，單擊“篩選”按鈕Command1，在列表框List2中顯示篩選出的學生姓名、性別和成績。程序運行界面如圖所示。
（1）下列VB語句可以實現清空文本框Text1內容的是　 　（單選，填字母：A
.Text1.Clear / B .Text1.Caption = "" / C .Text1.Text = ""）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim n As
Integer
Dim xm(1 To
n) As String
Dim xb(0 To
n) As String
Dim cj(0 To
n) As Integer
Private Sub
Form_Load()
'讀取學生姓名、性別和成績分別存 xm、xb 和 cj 數組，并在列表框 List1 中顯示。
'學生人數存變量 n，代碼略。
End Sub
Private Sub
Command1_Click()
Dim s As String, k As Single, m As Single,
mm As Integer
Dim c As Integer, p As Integer, i As
Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k =
Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then 　 　
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm = 　 　
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To n
If xb(j) = s Then
If
Then p = j
End If
Next j
If i <> p Then
t1 = xb(i): xb(i) = xb(p): xb(p) = t1
t2 = cj(i): cj(i) = cj(p): cj(p) = t2
End If
If i > mm And (xb(i) <> xb(i - 1) Or cj(i) <> cj(i - 1)) Then Exit Do
i = i + 1
Loop
　 　
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
（3）程序加框處的代碼有誤，請改正。
16．（2021·紹興模擬）某手機APP為電影觀眾選座提供了程序推薦和自主選位功能。當觀眾購票選擇程序推薦時，程序根據電影放映廳內每個座位的優先等級（用一個正整數表示其等級值，如圖a所示），自第1排1號座開始，按自左向右逐排的順序查找滿足本次購票人數r的最優空位區（最優空位區是指從某個座位開始的同排連續的r個空位，且其等級值之和最高，若有多個最優空位區，則推薦最先找到的）。若找到，則顯示出推薦的座位編號；若找不到，則提示自主選位。
例如：圖a中放映廳內座位有9排10列，第5排10個座位的等級值依次為：1,2,3,4,5,5,4,3,2,1。全部座位為空時，當前購票人數為5，推薦座位編號為5排3-7號；如圖b所示已經部分選座狀態下，當前購票人數為2，推薦座位編號為6排3-4號。
編寫VB程序，模擬上述功能。運行程序，在列表List1中顯示目前選座狀態，黑點表示已選座，白點表示空位，在文本框Text1中輸入購票人數后，單擊“推薦”按鈕Command1，在標簽Label3顯示當前購票人座位的推薦結果。程序運行界面如圖c所示。
（1）如圖a所示，全部座位為空時，第1次購票人數為4人，按程序推薦座位選座，座位等級值之和為　 　 。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const m = 9 'm 表示座位有9排
Const n = 10 'n 表示每排的座位數為10
Dim r As Integer 'r 表示當次輸入的購票人數
Dim a(1 to m * n) As Integer 'a 數組存放每個座位的等級值
Dim b(1 to m * n + 1) As Integer 'b 數組保存當前各座位選座情況，選中為1，未選為 0
Private Sub Form_Load()
'從第1排開始，按座位編號從小到大順序逐排讀取座位等級值并依次存入數組a
'同上述順序，讀取選座狀態存入數組元素b(1)至b(m*n)中，輸出當前選座狀態。代碼略
End Sub
Function getsum(i As Integer, j As Integer) As Integer
'從第i排第j列開始，計算第i排中滿足r個觀眾就座的連續空位等級值之和。
'若無法找到足夠的連續空位時，則返回-1
Dim p As Integer, sum As
Integer, k As Integer
sum = 0
p = j: k = (i - 1) * n + p
Do While p <= j + r - 1 And
b(k) = 0
sum = 　 　
p = p + 1: k = k + 1
Loop
If p = j + r Then getsum = sum
Else getsum = -1
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer,
s As String, max As Integer
Dim t As Integer, newi As
Integer, newj As Integer, pos As Integer
r = Val(Text1.Text)
max = 0
For i = 1 To m
For j = 1 To n - r + 1
　 　
If
max < t Then max = t: newi = i: newj = j
Next j
Next i
If max = 0 Then
Label3.Caption = "請自主選位" Else
pos = (newi - 1) * n + newj
For i = 　 　
b(i)
= 1
Next i
Label3.Caption
= "推薦座位編號：" & newi &
"排" & newj & "-" & newj
+ r - 1 & "座"
End If
End Sub
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息系統安全防護
2．【答案】C
【知識點】人工智能的應用
3．【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．【答案】B
【知識點】進制及數制轉換；字符編碼
5．【答案】D
【知識點】圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】C
【知識點】流程圖識讀
9．【答案】A
【知識點】循環結構語句及程序實現
10．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】D
【知識點】排序算法及程序實現
12．【答案】C
【知識點】查找算法及程序實現
13．【答案】（1）=(E3-F3)*G3
（2）文本
（3）B；C
【知識點】表格數據的處理與計算
14．【答案】（1）B；D；E
（2）按鈕；B
（3）選中“文字”圖層第11幀至50幀整體移動到第1幀至40幀或選中“文字”圖層第11幀移動到第1幀，選中“文字”圖層第50幀移動到第40幀
（4）A；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）C
（2）c = c + 1；Fix(m)或 Int(m)或 Fix(c * k / 100)或 Int(c * k / 100)；mm = i - 1
（3）xb(p) <> s Or cj(j) > cj(p)
【知識點】排序算法及程序實現；常用標準函數；基本語句
16．【答案】（1）18
（2）sum + a(k) 或 sum + a((i - 1) * n + p)；t = getsum(i, j)；pos To pos + r - 1 或 pos + r - 1 To pos Step -1
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑