資源簡介

中小學教育資源及組卷應用平臺
2021-2022學年高二下學期信息技術期末試題（一）
試卷副標題
考試范圍：xxx；考試時間：100分鐘；命題人：xxx
注意事項：
1．答題前填寫好自己的姓名、班級、考號等信息
2．請將答案正確填寫在答題卡上
第I卷（選擇題）
請點擊修改第I卷的文字說明
一、選擇題
1．2021年6月11日，海軍招生宣傳片《踏浪揚帆 嶄新征程》在各大媒體重磅發布，很快引發社會廣泛關注。以下關于信息的說法錯誤的是（ ）
A．“2021年6月11日”交代了事件發生的時間信息
B．海軍招生宣傳片發布后很快引發社會關注，體現了信息的共享性
C．宣傳片中的文字、圖像、聲音、視頻都是信息的表達方式
D．部分民眾通過口耳相傳得以了解宣傳片內容，說明信息可以脫離載體而存在
【答案】D
【解析】
【詳解】
本題主要考查信息的描述。部分民眾通過口耳相傳得以了解宣傳片內容，信息依靠的載體是聲音，信息不可以脫離載體而存在，故本題選D選項。
2．下列關于信息安全的做法，正確的是 （ ）
①直接打開朋友轉發的網頁鏈接
②開啟殺毒軟件的自動運行查殺功能
③將管理員密碼修改為便于記憶的“123456”等字符
④使用Windows操作系統自動更新功能進行軟件更新，修復系統漏洞
A．①② B．②③ C．②④ D．①②④
【答案】C
【解析】
【詳解】
本題考查的是信息安全。直接打開朋友轉發的網頁鏈接和管理員密碼修改為便于記憶的“123456”等字符都是不安全的方法，密碼應該越復雜越安全。故選項C正確。
3．用 Access軟件設計某APP管理數據庫，其中已建好的“基本信息”數據表用于存儲如圖所示的數據。
編號 APP名稱 容量 星級評分 最近更新 開發者 免費
1 酷狗音樂 88.7MB 4.8 2021/06/03 廣州酷狗計算機科技有限公司 否
2 今日頭條 13.3MB 4.4 2021/06/07 北京字節跳動科技有限公司 是
3 知乎 51.4MB 4.0 2020/06/11 智者四海技術有限公司 是
… … … … … … …
下列關于“基本信息”數據表的描述，正確的是 （ ）A．“基本信息”表中的字段順序與圖中數據的列順序必須一致
B．通過數據庫管理系統可以訪問“基本信息”表中的數據
C．不能將上面數據以Excel形式導入數據庫來創建數據表
D．圖中“免費”列在該數據表中相應字段的數據類型一定是“是/否”
【答案】B
【解析】
【詳解】
本題主要考查Access數據庫?！盎拘畔ⅰ北碇械淖侄雾樞虿槐嘏c圖中數據的列順序必須一致；通過數據庫管理系統可以訪問“基本信息”表中的數據；能將上面數據以Excel形式導入數據庫來創建數據表；圖中“免費”列在該數據表中相應字段的數據類型可能是“是/否”，也可能是文本類型，故本題選B選項。
4．用 UltraEdit 軟件觀察字符“十U，加油”的內碼，部分界面如圖所示。
下列描述正確的是 （ ）
A．字符“十”內碼值的十進制表示小于128
B．字符“U”內碼值對應的十進制數可能是偶數
C．字符“，”采用ASCII碼，占1個字節
D．字符“油”內碼值對應的二進制數中含有偶數個“1”
【答案】D
【解析】
【詳解】
本題主要考查 UltraEdit 軟件。由圖可知，字符“十”占2個字節，其內碼值的十進制表示大于128；字符“U”內碼值是55，對應的十進制數是85；字符“，”不采用ASCII碼，占2個字節；字符“油”內碼值是D3 CD，對應的二進制數是1101 0011 1100 1101，含有10個“1”，故本題選D選項。
5．用PhotoShop軟件制作“愛閱讀”作品，部分編輯界面如圖所示。下列說法正確的是（ ）

A．可以使用文字工具修改“宣傳語”圖層中的文字字體
B．“世界讀書日4月23日”圖層中的文字可用橡皮擦工具直接擦除
C．可以為“背景”圖層設置“鏡頭光暈”的濾鏡效果
D．將文件存儲為BMP格式，“LOGO”圖層的內容將可見
【答案】C
【解析】
【詳解】
本題主要考查Photoshop軟件?！靶麄髡Z”不是文字圖層，不可以使用文字工具修改“宣傳語”圖層中的文字字體；“世界讀書日4月23日”是文字圖層，圖層中的文字不可用橡皮擦工具直接擦除；可以為“背景”圖層設置“鏡頭光暈”的濾鏡效果；將文件存儲為BMP格式，“LOGO”圖層的內容將不可見，故本題選C選項。
6．使用GoldWave軟件編輯某音頻文件，選擇其中一段音頻后的部分界面如圖所示。
下列操作會引起文件容量變大的是（ ）
A．執行增大音量操作后按原格式保存
B．選擇聲道為雙聲道后按原格式保存
C．執行“剪裁”操作后按原格式保存
D．執行“刪除”操作后，插入10s靜音，按原格式保存
【答案】D
【解析】
【詳解】
本題主要考查GoldWave軟件。音頻文件容量與音量無關，立體聲與雙聲道的容量相同；當前僅對左聲道操作，執行“剪裁”操作后按原格式保存，音頻容量不變；執行“刪除”操作后，插入10s靜音，按原格式保存，音頻總時長變長，容量變大，故本題選D選項。
7．下列 VB 表達式中，值不為5的選項是 （ ）
A．Val(Mid("12345",5,1)) B．Abs(Int(-4.1))
C．sqr(12345 Mod 10) D．Len("天天向上!")
【答案】C
【解析】
【詳解】
本題主要考查VB表達式的運算。Val(Mid("12345",5,1))=Val("5")=5，Abs(Int(-4.1)) =Abs(-5)=5，sqr(12345 Mod 10)=sqr(5) =2.24， Len("天天向上!")=5，故本題選C選項。
8．某算法的部分流程圖如圖所示。執行這部分流程，若輸入 n 的值為“96175”，則輸出的x值為 （ ）
A．2 B．3 C．4 D．5
【答案】B
【解析】
【詳解】
本題主要考查算法流程圖的執行。分析程序可知，從變量n的右邊開始，判斷相鄰的兩個值，若左邊的數大于右邊的數，則變量x遞增，否則賦值x=1，初始值x=1，7>5，x=x+1=2；1<7，x=1；6>1，x=x+1=2；9>6，x=x+1=3，輸出x的值為3，故本題選B選項。
9．斐波那契數列是指從第3項開始，每一項的值為前兩項之和。該數列為：1、1、2、3、5、8、13……下列程序段用于求斐波那契數列的第n項的值：
n = Val(Text1.Text)
f1 = 1: f2 = 1
For i = 3 To n
Next i
Text2.Text = "第" + Str(n) + "項的值為：" + Str(f)
方框中代碼由三部分組成：①f2 = f ②f1 = f2 ③f = f1 + f2。代碼的正確順序為（ ）
A．①②③ B．②①③ C．③①② D．③②①
【答案】D
【解析】
【詳解】
本題主要考查VB程序的調試。斐波那契數列是指從第3項開始，每一項的值為前兩項之和，故從第三項開始，首先計算第三項f=f1+f2，然后更新f1、f2的值，f1=f2，f2=f1，繼續循環求下一項，故選D選項。
10．某算法的VB程序段如下：
For i = 1 To 2
k = i
For j = i + 1 To 6
If a(j) > a(k) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
整型數組元素a(1)到 a(6)中依次存儲的數據為81，79，92，65，88，90，執行該程序段后，a(1)到a(6)各元素值分別是（ ）
A．92 90 81 65 88 79 B．92 90 88 81 79 65
C．65 79 92 81 88 90 D．65 79 81 88 90 92
【答案】A
【解析】
【詳解】
本題主要考查排序算法。分析程序可知，該程序實現降序排序，當i=1時，將最大值92與第一項交換，交換后a(1)到a(6)各元素值分別是92 79 81 65 88 90；當i=2時，將剩余數匯總最大值90與第二項交換，交換后a(1)到a(6)各元素值分別是92 90 81 65 88 79，故本題選A選項。
11．某算法的VB程序段如下：
Const n = 5
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
b(i) = b(i) + 1
Else
b(j) = b(j) + 1
End If
Next j
Next i
整型數組元素 a(1)到 a(5)中依次存儲的數據為3，6，5，1，9，b(1)到 b(5)初值均為1，執行該程序段后，b(1)到b(5)各元素值分別是（ ）
A．1 2 3 4 5 B．1 3 2 0 4
C．4 2 3 5 1 D．2 4 3 1 5
【答案】D
【解析】
【詳解】
本題考查的是VB循環嵌套。閱讀程序可知b(i)統計的是數組中a(i)比數組a其它元素大的個數。 a(1)到 a(5)中依次存儲的數據為3，6，5，1，9。3比組a其它元素大的個數為1；6比組a其它元素大的個數為3；5比組a其它元素大的個數為2；1比組a其它元素大的個數為0；9比組a其它元素大的個數為4。b(1)到 b(5)初值均為1，故執行該程序段后，b(1)到b(5)各元素值分別是2 4 3 1 5。選項D正確。
12．某對分查找算法的VB程序如下：
i = 1: j = 10: n = 0
Do While i <= j
m = (i + j) \ 2
n = n + 1
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
Loop
數組元素a(1)到a(10)互不相同且升序排列，以下數組元素作為查找鍵Key值中產生的n值與其他三項不同的是（ ）
A．a(1) B．a(3) C．a(7) D．a(9)
【答案】A
【解析】
【詳解】
本題主要對分查找算法。二叉樹查找如下，由圖可知，查找a(1)，n值為3，查找a(3)、a(7)、a(9)，n的值為4，故本題選A選項。
第II卷（非選擇題）
請點擊修改第II卷的文字說明
二、操作題
13．小王收集了2021年第一季度全國累計農林牧漁業總產值數據，并使用Excel軟件進行數據處理，如圖a所示。
圖a
請回答下列問題：
（1）區域H3:H32的數據是通過RANK函數計算得到，在H3單元格輸入公式，再使用自動填充功能完成區域H4:H32的計算。則在H3單元格輸入的公式應為______（單選，填字母A．=RANK(G3,G3:G32)/B．=RANK(G3,G$3:G$32)/C．=RANK(G3,$G3:$G32)）（提示：RANK函數是求某一個數值在某一區域內的排名，比如=RANK(A1,A1:A10)用于返回A1在區域A1:A10中的降序排名）
（2）對于A2:H32的數據進行相關統計，結果放在區域J2:O5如圖a所示，對第13題圖a中的數據分析，下列說法正確的是______（多選，填字母）。
A．若更改G列的數據，則H列的排名會隨之改變
B．為了將中部地區農業產值最高的數據顯示在當前工作表最前面，可以選擇“農業”為主要關鍵字，“地區”為次要關鍵字均按降序排序
C．為了得到東部地區總產值最大的數據，可以“地區”為“東部地區”，“總產值”為最大1項進行篩選得到
D．先以“區域”為“西部地區”進行篩選，再以“漁業”為關鍵字降序排序與先以“漁業”為關鍵字降序排序，再以“區域”為“西部地區”進行篩選，兩者得到的結果相同
（3）根據圖a中的數據制作的圖表如圖b所示，創建圖表的數據區域是__________。
圖b
【答案】 B A D J2:K5,N2:N5
【解析】
【詳解】
本題考查的是Excel表格的綜合應用。（1）該處引用的為絕對地址，寫法正確的是B.=RANK(G3,G$3:G$32)。（2）為了將中部地區農業產值最高的數據顯示在當前工作表最前面，可以選擇“地區”為主要關鍵字，“農業”為次要關鍵字均按降序排序，故選項B錯誤。得到東部地區總產值最大的數據，可以“地區”為“東部地區”篩選即可得到，選項C錯誤。故選項AD正確。（3）圖表中含的數據范圍是“東部地區”“中部地區”“西部地區”的農業和漁業，所以數據范圍是J2:K5,N2:N5。
14．使用Flash軟件創作“疫苗接種宣傳”多媒體作品，部分編輯界面如圖a所示。
圖a
請回答下列問題：
（1）在創作之前進行了作品設計，下列說法正確的是_______（多選，填字母）。
A．確定作品的結構類型為演示型，屬于作品的應用需求分析
B．制定使用Flash軟件制作作品，屬于作品的創作需求分析
C．將作品劃分為片頭、主交互界面、片尾等組成部分，屬于系統結構設計
D．制定處理各種多媒體素材的方案，屬于腳本大綱
E.在編寫制作腳本之前，應該先設計好文字腳本
（2）在“音樂”圖層的第37幀插入關鍵幀后，測試場景，該圖層的聲音在場景動畫播放三秒后停止播放。由此可見，“音樂”圖層中聲音的同步屬性為_______(選填:事件/開始/數據流)。
（3）“宣傳語”圖層第13幀中僅有的對象喇叭為形狀，該幀已設置形狀補間。測試場景時，第13幀到第36幀沒有實現喇叭變為“疫苗種起來”的形狀補間效果，原因是______________。
（4）在不改變其他動畫播放效果的情況下，要實現“按鈕”圖層內容延遲1秒出現，下列操作可行的是_________（多選，填字母）。
A．“按鈕”圖層第13幀插入關鍵幀，第1幀清除關鍵幀
B．移動“按鈕”圖層第1幀到第13幀
C．“按鈕”圖層第1幀至第12幀刪除幀
D．“按鈕”圖層第1幀清除幀，第13幀插入關鍵幀
E.“按鈕”圖層第13幀插入關鍵幀，刪除第1幀中的內容
（5）測試影片，發現該場景動畫播放完畢會自動跳轉到當前場景第一幀并停止，則“背景”圖層第60幀添加的動作腳本為_________。
【答案】 B C E 數據流 “宣傳語”圖層第36幀中對象沒有分離成形狀 B E gotoandstop(1);或gotoandstop(“main”,1);或其他等價答案
【解析】
【詳解】
本題主要考查Flash動畫制作。①需求分析包括應用需求分析和創作需求分析，其中應用需求分析包括：社會需求、用戶情況、作品效益等，創作需求分析包括：對主題思想、作品內容、結構類型，硬件需求，發布方式等。確定作品的結構類型為演示型，屬于作品的創作需求分析；制定處理各種多媒體素材的方案，屬于媒體元素分解，故本題選BCE選項。②數據流是與時間軸同步時間軸不動它也不播放，事件是時間軸不播放了它也要播放完成，只有通過腳本才能停下來。fps=12，在“音樂”圖層的第37幀插入關鍵幀后，測試場景，該圖層的聲音在場景動畫播放三秒后停止播放。由此可見，“音樂”圖層中聲音的同步屬性為數據流。③形狀補間效果的前提對象要分離成形狀，第13幀到第36幀沒有實現喇叭變為“疫苗種起來”的形狀補間效果，原因是“宣傳語”圖層第36幀中對象沒有分離成形狀。④fps=12，在不改變其他動畫播放效果的情況下，要實現“按鈕”圖層內容延遲1秒出現，即將當前幀移到12幀以后，可以通過：移動“按鈕”圖層第1幀到第13幀，或“按鈕”圖層第1幀清除幀，第13幀插入關鍵幀，故選BE選項。⑤測試影片，發現該場景動畫播放完畢會自動跳轉到當前場景第一幀并停止，可以通過gotoandstop命令實現，則“背景”圖層第60幀添加的動作腳本為gotoandstop(1);或gotoandstop(“main”,1);。
15．分解質因子。一個非素數的正整數可以表示成它的質因子（1和它本身除外）的乘積。編寫程序實現如下功能：在文本框Text1中輸入一個大于0且小于等于1000的合數，單擊“分解”按鈕Command1，在文本框Text2中顯示其質因子分解式。如輸入“36”，輸出“36=2*2*3*3”。
（1）VB表達式Text1.Text中的Text1是_______（單選，填字母：A．對象名/B．屬性名/C．屬性值）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
（3）程序加框處代碼有錯，請改正。
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer
For i = 1 To 1000
a(i) = 0
Next i
s = ""
n = Val(Text1.Text)
__________
Do While i <= n
If __________ Then
a(i) = a(i) + 1
n = n \ i
Else
i = i + 1
End If
Loop
f = False
For i = 1 To 1000
If a(i) > 0 Then
For j = 1 To __________
If Not f Then
s = CStr(i) 'Cstr功能是將數據從其它類型轉變為字符串類型
__________
Else
s = s + "*" + CStr(i)
End If
Next j
End If
Next i
Text2.Text = Text1.Text + "=" + s
End Sub
【答案】 A i = 2 n Mod i = 0 a(i) f = True
【解析】
【詳解】
本題主要考查VB程序的執行與調試。①VB表達式Text1.Text中的Text1是對象名，Text是方法名，故本題選A選項。②一個非素數的正整數可以表示成它的質因子（1和它本身除外）的乘積，通過循環找出所有質因子，故變量i從2開始，故此處填i=2。③此處判斷變量i是不是n的質因數，即n是否能整除i，故此處填n Mod i = 0。④數組a(i)保存質因子i的個數，此處通過循環將質因子i依次取出來，故加框處應改為a(i)。⑤變量f用來標記是否質因子i，當該因子取出后，賦值其為True，故此處填f=True。
16．小王基于冒泡排序算法編寫了一個VB程序，實現數據分段排序。功能如下：在文本框Text1中輸入產生的數據個數，單擊“產生原始數據”按鈕Command1，隨機產生若干個不重復的整數依次存儲在數組a中，并顯示在文本框Text2中。在文本框Text3中輸入每段數據的元素個數及排序的次序（0表示升序，1表示降序），數據之間用空格隔開，提取數據后，依次存儲在數組b中。單擊“排序”按鈕Command2，根據要求輸出數據排序的結果。部分運行界面如圖所示。
（1）若在文本框Text1中輸入“10”，文本框Text2中顯示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中輸入“3 1 4 0 3 0”，則排序后數據序列為_____（單選，填字母）。
A．25 29 95 52 50 46 38 51 44 23 B．95 29 25 38 46 50 52 23 44 51
C．95 29 25 38 46 50 52 51 44 23 D．23 25 29 38 44 46 50 51 52 95
（2）請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim n As Integer
Function sort(x As Integer, m As Integer, k As Integer) As Integer
Dim r As Integer, t As Integer
Dim i As Integer, j As Integer
If k = 0 Then k = -1
For i = 1 To m - 1
For j = x To x + m - 1 - i
If __________ Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
sort = x + m
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
'產生n個不重復的隨機整數依次存儲在數組元素a(1)到a(n)中，并顯示在文本框Text2
代碼略
End Sub
Private Sub Command2_Click()
Dim y As Integer, d As Integer, c As Integer
Dim st As String, s As Integer
y = 1
st = Text3.Text
For i = 1 To Len(st)
ch = Mid(st, i, 1)
If ch >= "0" And ch <= "9" Then
__________
Else
If y Mod 2 = 1 Then s = s + b(y)
y = y + 1
End If
Next i
If s <> n Then
MsgBox ("排序數據量與數據總量不相等")
Else
c = 1
d = 1
Do While d <= n
d = __________
c = c + 1
Loop
For i = 1 To n
Text4.Text = Text4.Text + Str(a(i))
Next i
End If
End Sub
【答案】 B a(j) * k < a(j + 1) * k b(y) = b(y) * 10 + Val(ch) sort(d, b(c * 2 - 1), b(c * 2))
【解析】
【詳解】
本題主要考查冒泡排序算法及VB程序實現。①若在文本框Text1中輸入“10”，文本框Text2中顯示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中輸入“3 1 4 0 3 0”，前三個數進行降序排序，中間4個數進行升序排序，最后3個數進行升序排序，則排序后數據序列為95 29 25 38 46 50 52 23 44 51，故本題選B選項。②0表示升序，1表示降序。變量k用來標記是升序還是降序，此處比較j與j+1處值的大小，完成交換實現排序，故填a(j) * k < a(j + 1) * k。③數據之間用空格隔開，提取數據后，依次存儲在數組b中，奇數位存放數據，用變量y的奇偶性判斷，此處當截取的字符ch是數字，則將其保存到數組b(y)中，故填b(y) = b(y) * 10 + Val(ch)。④數組b奇數位索引保存每段數據的元素個數，偶數位索引保存排序的次序，sort(x,m,k)函數實現從x開始將m個元素按照k進行排序，排序后返回下一個分段的開始位置，即x+m。其中變量x用來標記排序起點，變量m用來標記從x開始參與排序的元素個數，變量k標記升序還是降序。此處變量d即每段開始的位置，d從1開始，sort排序后更新下一個d的開始位置，即d=sort(d, b(c * 2 - 1), b(c * 2))，故此處填sort(d, b(c * 2 - 1), b(c * 2))。
試卷第1頁，共3頁
21世紀教育網(www.21cnjy.com)中小學教育資源及組卷應用平臺
2021-2022學年高二下學期信息技術期末試題（一）
試卷副標題
考試范圍：xxx；考試時間：100分鐘；命題人：xxx
注意事項：
1．答題前填寫好自己的姓名、班級、考號等信息
2．請將答案正確填寫在答題卡上
第I卷（選擇題）
請點擊修改第I卷的文字說明
一、選擇題
1．2021年6月11日，海軍招生宣傳片《踏浪揚帆 嶄新征程》在各大媒體重磅發布，很快引發社會廣泛關注。以下關于信息的說法錯誤的是（ ）
A．“2021年6月11日”交代了事件發生的時間信息
B．海軍招生宣傳片發布后很快引發社會關注，體現了信息的共享性
C．宣傳片中的文字、圖像、聲音、視頻都是信息的表達方式
D．部分民眾通過口耳相傳得以了解宣傳片內容，說明信息可以脫離載體而存在
2．下列關于信息安全的做法，正確的是 （ ）
①直接打開朋友轉發的網頁鏈接
②開啟殺毒軟件的自動運行查殺功能
③將管理員密碼修改為便于記憶的“123456”等字符
④使用Windows操作系統自動更新功能進行軟件更新，修復系統漏洞
A．①② B．②③ C．②④ D．①②④
3．用 Access軟件設計某APP管理數據庫，其中已建好的“基本信息”數據表用于存儲如圖所示的數據。
編號 APP名稱 容量 星級評分 最近更新 開發者 免費
1 酷狗音樂 88.7MB 4.8 2021/06/03 廣州酷狗計算機科技有限公司 否
2 今日頭條 13.3MB 4.4 2021/06/07 北京字節跳動科技有限公司 是
3 知乎 51.4MB 4.0 2020/06/11 智者四海技術有限公司 是
… … … … … … …
下列關于“基本信息”數據表的描述，正確的是 （ ）A．“基本信息”表中的字段順序與圖中數據的列順序必須一致
B．通過數據庫管理系統可以訪問“基本信息”表中的數據
C．不能將上面數據以Excel形式導入數據庫來創建數據表
D．圖中“免費”列在該數據表中相應字段的數據類型一定是“是/否”
4．用 UltraEdit 軟件觀察字符“十U，加油”的內碼，部分界面如圖所示。
下列描述正確的是 （ ）
A．字符“十”內碼值的十進制表示小于128
B．字符“U”內碼值對應的十進制數可能是偶數
C．字符“，”采用ASCII碼，占1個字節
D．字符“油”內碼值對應的二進制數中含有偶數個“1”
5．用PhotoShop軟件制作“愛閱讀”作品，部分編輯界面如圖所示。下列說法正確的是（ ）

A．可以使用文字工具修改“宣傳語”圖層中的文字字體
B．“世界讀書日4月23日”圖層中的文字可用橡皮擦工具直接擦除
C．可以為“背景”圖層設置“鏡頭光暈”的濾鏡效果
D．將文件存儲為BMP格式，“LOGO”圖層的內容將可見
6．使用GoldWave軟件編輯某音頻文件，選擇其中一段音頻后的部分界面如圖所示。
下列操作會引起文件容量變大的是（ ）
A．執行增大音量操作后按原格式保存
B．選擇聲道為雙聲道后按原格式保存
C．執行“剪裁”操作后按原格式保存
D．執行“刪除”操作后，插入10s靜音，按原格式保存
7．下列 VB 表達式中，值不為5的選項是 （ ）
A．Val(Mid("12345",5,1)) B．Abs(Int(-4.1))
C．sqr(12345 Mod 10) D．Len("天天向上!")
8．某算法的部分流程圖如圖所示。執行這部分流程，若輸入 n 的值為“96175”，則輸出的x值為 （ ）
A．2 B．3 C．4 D．5
9．斐波那契數列是指從第3項開始，每一項的值為前兩項之和。該數列為：1、1、2、3、5、8、13……下列程序段用于求斐波那契數列的第n項的值：
n = Val(Text1.Text)
f1 = 1: f2 = 1
For i = 3 To n
Next i
Text2.Text = "第" + Str(n) + "項的值為：" + Str(f)
方框中代碼由三部分組成：①f2 = f ②f1 = f2 ③f = f1 + f2。代碼的正確順序為（ ）
A．①②③ B．②①③ C．③①② D．③②①
10．某算法的VB程序段如下：
For i = 1 To 2
k = i
For j = i + 1 To 6
If a(j) > a(k) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
整型數組元素a(1)到 a(6)中依次存儲的數據為81，79，92，65，88，90，執行該程序段后，a(1)到a(6)各元素值分別是（ ）
A．92 90 81 65 88 79 B．92 90 88 81 79 65
C．65 79 92 81 88 90 D．65 79 81 88 90 92
11．某算法的VB程序段如下：
Const n = 5
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
b(i) = b(i) + 1
Else
b(j) = b(j) + 1
End If
Next j
Next i
整型數組元素 a(1)到 a(5)中依次存儲的數據為3，6，5，1，9，b(1)到 b(5)初值均為1，執行該程序段后，b(1)到b(5)各元素值分別是（ ）
A．1 2 3 4 5 B．1 3 2 0 4
C．4 2 3 5 1 D．2 4 3 1 5
12．某對分查找算法的VB程序如下：
i = 1: j = 10: n = 0
Do While i <= j
m = (i + j) \ 2
n = n + 1
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
Loop
數組元素a(1)到a(10)互不相同且升序排列，以下數組元素作為查找鍵Key值中產生的n值與其他三項不同的是（ ）
A．a(1) B．a(3) C．a(7) D．a(9)
第II卷（非選擇題）
請點擊修改第II卷的文字說明
二、操作題
13．小王收集了2021年第一季度全國累計農林牧漁業總產值數據，并使用Excel軟件進行數據處理，如圖a所示。
圖a
請回答下列問題：
（1）區域H3:H32的數據是通過RANK函數計算得到，在H3單元格輸入公式，再使用自動填充功能完成區域H4:H32的計算。則在H3單元格輸入的公式應為______（單選，填字母A．=RANK(G3,G3:G32)/B．=RANK(G3,G$3:G$32)/C．=RANK(G3,$G3:$G32)）（提示：RANK函數是求某一個數值在某一區域內的排名，比如=RANK(A1,A1:A10)用于返回A1在區域A1:A10中的降序排名）
（2）對于A2:H32的數據進行相關統計，結果放在區域J2:O5如圖a所示，對第13題圖a中的數據分析，下列說法正確的是______（多選，填字母）。
A．若更改G列的數據，則H列的排名會隨之改變
B．為了將中部地區農業產值最高的數據顯示在當前工作表最前面，可以選擇“農業”為主要關鍵字，“地區”為次要關鍵字均按降序排序
C．為了得到東部地區總產值最大的數據，可以“地區”為“東部地區”，“總產值”為最大1項進行篩選得到
D．先以“區域”為“西部地區”進行篩選，再以“漁業”為關鍵字降序排序與先以“漁業”為關鍵字降序排序，再以“區域”為“西部地區”進行篩選，兩者得到的結果相同
（3）根據圖a中的數據制作的圖表如圖b所示，創建圖表的數據區域是__________。
圖b
14．使用Flash軟件創作“疫苗接種宣傳”多媒體作品，部分編輯界面如圖a所示。
圖a
請回答下列問題：
（1）在創作之前進行了作品設計，下列說法正確的是_______（多選，填字母）。
A．確定作品的結構類型為演示型，屬于作品的應用需求分析
B．制定使用Flash軟件制作作品，屬于作品的創作需求分析
C．將作品劃分為片頭、主交互界面、片尾等組成部分，屬于系統結構設計
D．制定處理各種多媒體素材的方案，屬于腳本大綱
E.在編寫制作腳本之前，應該先設計好文字腳本
（2）在“音樂”圖層的第37幀插入關鍵幀后，測試場景，該圖層的聲音在場景動畫播放三秒后停止播放。由此可見，“音樂”圖層中聲音的同步屬性為_______(選填:事件/開始/數據流)。
（3）“宣傳語”圖層第13幀中僅有的對象喇叭為形狀，該幀已設置形狀補間。測試場景時，第13幀到第36幀沒有實現喇叭變為“疫苗種起來”的形狀補間效果，原因是______________。
（4）在不改變其他動畫播放效果的情況下，要實現“按鈕”圖層內容延遲1秒出現，下列操作可行的是_________（多選，填字母）。
A．“按鈕”圖層第13幀插入關鍵幀，第1幀清除關鍵幀
B．移動“按鈕”圖層第1幀到第13幀
C．“按鈕”圖層第1幀至第12幀刪除幀
D．“按鈕”圖層第1幀清除幀，第13幀插入關鍵幀
E.“按鈕”圖層第13幀插入關鍵幀，刪除第1幀中的內容
（5）測試影片，發現該場景動畫播放完畢會自動跳轉到當前場景第一幀并停止，則“背景”圖層第60幀添加的動作腳本為_________。
15．分解質因子。一個非素數的正整數可以表示成它的質因子（1和它本身除外）的乘積。編寫程序實現如下功能：在文本框Text1中輸入一個大于0且小于等于1000的合數，單擊“分解”按鈕Command1，在文本框Text2中顯示其質因子分解式。如輸入“36”，輸出“36=2*2*3*3”。
（1）VB表達式Text1.Text中的Text1是_______（單選，填字母：A．對象名/B．屬性名/C．屬性值）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
（3）程序加框處代碼有錯，請改正。
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer
For i = 1 To 1000
a(i) = 0
Next i
s = ""
n = Val(Text1.Text)
__________
Do While i <= n
If __________ Then
a(i) = a(i) + 1
n = n \ i
Else
i = i + 1
End If
Loop
f = False
For i = 1 To 1000
If a(i) > 0 Then
For j = 1 To __________
If Not f Then
s = CStr(i) 'Cstr功能是將數據從其它類型轉變為字符串類型
__________
Else
s = s + "*" + CStr(i)
End If
Next j
End If
Next i
Text2.Text = Text1.Text + "=" + s
End Sub
16．小王基于冒泡排序算法編寫了一個VB程序，實現數據分段排序。功能如下：在文本框Text1中輸入產生的數據個數，單擊“產生原始數據”按鈕Command1，隨機產生若干個不重復的整數依次存儲在數組a中，并顯示在文本框Text2中。在文本框Text3中輸入每段數據的元素個數及排序的次序（0表示升序，1表示降序），數據之間用空格隔開，提取數據后，依次存儲在數組b中。單擊“排序”按鈕Command2，根據要求輸出數據排序的結果。部分運行界面如圖所示。
（1）若在文本框Text1中輸入“10”，文本框Text2中顯示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中輸入“3 1 4 0 3 0”，則排序后數據序列為_____（單選，填字母）。
A．25 29 95 52 50 46 38 51 44 23 B．95 29 25 38 46 50 52 23 44 51
C．95 29 25 38 46 50 52 51 44 23 D．23 25 29 38 44 46 50 51 52 95
（2）請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim n As Integer
Function sort(x As Integer, m As Integer, k As Integer) As Integer
Dim r As Integer, t As Integer
Dim i As Integer, j As Integer
If k = 0 Then k = -1
For i = 1 To m - 1
For j = x To x + m - 1 - i
If __________ Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
sort = x + m
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
'產生n個不重復的隨機整數依次存儲在數組元素a(1)到a(n)中，并顯示在文本框Text2
代碼略
End Sub
Private Sub Command2_Click()
Dim y As Integer, d As Integer, c As Integer
Dim st As String, s As Integer
y = 1
st = Text3.Text
For i = 1 To Len(st)
ch = Mid(st, i, 1)
If ch >= "0" And ch <= "9" Then
__________
Else
If y Mod 2 = 1 Then s = s + b(y)
y = y + 1
End If
Next i
If s <> n Then
MsgBox ("排序數據量與數據總量不相等")
Else
c = 1
d = 1
Do While d <= n
d = __________
c = c + 1
Loop
For i = 1 To n
Text4.Text = Text4.Text + Str(a(i))
Next i
End If
End Sub
試卷第1頁，共3頁
21世紀教育網(www.21cnjy.com)

展開更多......

收起↑