資源簡介

浙江省杭州地區(含周邊)重點中學2020-2021學年高二下學期信息技術期中考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高二下·杭州期中）下列關于信息與信息技術說法正確的是（　　）
A．古代也有信息技術，人類主要通過手勢、聲音和各種形體動作來表達信息
B．信息具有時效性，因此獲取的信息應當立即發布
C．信息具有共享性，可以在網盤中共享任何視頻
D．檔案卷宗上記錄有不同時期的重要事件，所以檔案卷宗是信息
【答案】A
【知識點】信息及其特征；信息技術的發展歷史
2．（2021高二下·杭州期中）下列關于瀏覽器與網頁描述正確的是（　　）
A．使用搜索引擎搜索信息時，可通過減少關鍵字來減少搜索到的信息數量
B．若使瀏覽器啟動時自動打開某個網站，可使用瀏覽器主頁的功能
C．在IE瀏覽器中，選擇“網頁，僅HTML(*．htm；*．html)”類型保存網頁，不可以保存網頁中的超鏈接
D．只有純文字的網頁才可以用記事本編輯
【答案】B
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索
3．（2021高二下·杭州期中）關于Access數據庫，下列說法不正確的是（　?。?br/>A．新增記錄，不會對已有記錄的字段值產生影響
B．Access、FoxPro是小型數據庫管理系統
C．在Access數據表輸入數據后，則不能再將任何字段設置為主鍵
D．數據庫中可以存儲圖片或視頻
【答案】C
【知識點】數據庫的分類與應用；數據表、字段、記錄的編輯
4．（2021高二下·杭州期中）關于二進制、十進制與十六進制的整數，下列說法正確的是（　?。?br/>A．7位二進制數的最大值為128D
B．任何4位二進制數都不可能大于FH
C．僅憑十六進制最末位上的數，無法確定該數是奇數還是偶數
D．在十六進制數最末位后添上一位十六進制數A，所得新數是原數的16倍
【答案】B
【知識點】進制及數制轉換
5．（2021高二下·杭州期中）下列關于多媒體技術的說法不正確的是（　?。?br/>A．多媒體技術的交互性是指媒體與媒體之間的信息交互
B．多媒體技術中的媒體是指承載信息的載體，如文字、聲音、圖形和圖像等
C．多媒體作品的設計可分為需求分析、規劃設計、腳本編寫三大步驟
D．多媒體數據壓縮后出現了少量失真，這種壓縮必為有損壓縮
【答案】A
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計；多媒體組成元素及文件格式；多媒體數據壓縮技術
6．（2021高二下·杭州期中）一幅未經壓縮的1024*768像素、RGB/8 模式的BMP圖像，使用photoshop將圖像的寬度和高度各縮小到原來的50%，再存儲為16位色的BMP圖像。則處理前后的文件存儲容量之比約為（　?。?br/>A．6：1 B．8：1 C．2：1 D．12：1
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2021高二下·杭州期中）下列表達式的值一定為False的是（　　）
A．Mid("Visual"，1，1) < Mid("Visual"，2，1)
B．Len("654321")>Int (Rnd*3) ~2
C．1=6/2\2
D．Val("1"+"1")=2
【答案】D
【知識點】運算符、基本運算與表達式
8．（2021高二下·杭州期中）某算法的部分流程圖如圖所示。若要計算 ，則流程圖中①處填入的語句（　?。?br/>A．s←1/k*i B．s←s+1/(k*i)
C．s←1/(-k)*i D．s←s+1/k*i
【答案】B
【知識點】流程圖識讀
9．（2021高二下·杭州期中）有如下程序段
Private Sub Command1_Click ()
Dim a(1 To 10) As Integer，i As Integer
For i=1 To 10
a(i)=i^i
Next i
List1.AddItem Str(a(i))
End Sub
運行程序，單擊命令按鈕Command1后，出現的錯誤提示為（　?。?br/>A．下標越界 B．類型不匹配
C．溢出 D．子程序或函數未定義
【答案】C
【知識點】循環結構語句及程序實現
10．（2021高二下·杭州期中）有如下VB程序段
Const n=11
Dim a(1 To n) As Integer，y(1 To n) As Integer， i As Integer， j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
數組a的各元素的值為“3，4，3，1，4，4，5，5，6，2，0”，在文本框Text1中輸入4，執行該段程序后文本框Text2中顯示的值為（　?。?br/>A．4 4 4 B．4 4 C．3 D．3 3
【答案】A
【知識點】常見數據類型、數組；循環結構語句及程序實現
11．（2021高二下·杭州期中）有如下VB程序段
Dim k As Integer， num As Integer， m As Integer
Dim s As String， ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26：ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s， x，1)
s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)
k=k-1：m=m-1
Loop
Text2.Text = ans
文本框Text1中輸入4，執行上述程序后，文本框Tex2中有顯示的內容不可能為（　?。?br/>A．snyg B．tuna C．vmlc D．Amzm
【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
12．（2021高二下·杭州期中）有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer
a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5
b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)t=a(j)：a(j)=a(j+1)：a(j+1)=t
t=b(j)：b(j) =b(j+1)：b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
運行該程序段后，列表框List1第5行顯示的內容為（　　）
A．1 5 B．3 7 C．2 5 D．4 7
【答案】B
【知識點】常見數據類型、數組；排序算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高二下·杭州期中）小張收集了某地部分市場菜籃子價格數據，并使用Excel軟件進行數據處理，如圖所示。
請回答下列問題：
（1）表中“平均值”數據是利用函數AVERAGE計算得到的，選擇I3單元格輸入公式，然后用自動填充功能完成其他單元格的計算。則I3單元格中的公式為　 　。
（2）為了分析數據的需要，創建了如圖b所示的圖表，則創建該圖表的數據區域是　 　。
（3）若要對圖a中所示數據按“最大差價”進行降序排列，則排序時選擇的數據區域　 　 。
（4）對圖a中的數據進行篩選，要找出“最大差價”最大的三個，可以選擇　 　(單選，填字母：A .高于平均值/B
.10個最大的值/C .自定義篩選)
【答案】（1）=AVERAGE(C3:H3)或等價答案
（2）B2，B4：B9，I2,I4：I9
（3）A2:J13或者A3:J13
（4）B
【知識點】表格數據的處理與計算
14．（2021高二下·杭州期中）小明利用GoldWave和Flash制作了“倒計時”的動畫。作品的Flash制作界面如圖a所示。請回答下列問題：
（1）為了獲取1秒鐘的鐘聲作為倒計時聲音，老師下載了3秒時長的聲音，然后用GoldWawe軟件截取聲音，步驟如下：①單擊按鈕選擇1秒時長的音頻；②單擊按鈕截取1秒時長的音頻：③保存聲音，并導入到Flash中。其中第①步中應使用的按鈕是　 　，第②步中應使用的按鈕是　 　(選填字母：A . \B . \C . \D . ）
（2）圖層“5”、“4"、“3”、“2”、“1”、“0”中分別是數字5、4、3、2、1、0的由大變小的動畫，每出現一個數字動畫，鐘聲響一次。現將鐘聲添加到背景圖層第1幀，其屬性面板如圖b所示。為使“鐘聲”與數字動畫同步，應作的調整是　 　。
（3）測試影片時，發現播放數字0的動畫時，數字1仍停留在畫面上，觀察圖a，應對圖層1作的調整是　 　。
（4）測試影片時，當最后一個數字0的動畫播放完畢后，動畫停止播放，可以實現這一要求的操作是　 　。
【答案】（1）D；C
（2）在聲音屬性面板中將鐘聲.wav的重復次數設置為6
（3）第51幀執行插入空白關鍵幀操作 或第51-60幀執行刪除幀操作或等價答案
（4）在“0”圖層的最后一幀添加動作腳本“stop（）；”或等同表述
【知識點】聲音素材的基本處理；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用；聲音同步屬性設置
15．（2021高二下·杭州期中）學校需要從A班(共50人)選拔一批學生集訓準備比賽。小明為了減輕老師的工作量，編寫了一個程序幫助老師解決這個問題，將所有學生的成績排序后按照預設人數劃取分數線。由于相同分數可能有多個學生，找出最接近預設人數的分數作為分數線。如果按照前分和按后分錄取增加或減少的人數相同時則按高于錄取人數進行錄取，最后輸出錄取的學生名單。例如現要求選拔15個學生，排序后第14-20名的學生成績相同，由于13比20更接近預錄取人數，因此實際只錄取13人。小明編寫的VB程序如下，在文本框Text1中輸入擬錄取人數，單擊“確定”按鈕后，在標簽Labe15和Labe16中輸出錄取人數和分數線，在List1中輸出錄取學生名單。
實現上述功能的代碼如下。請回答下列問題：
（1）觀察代碼，“確定”按鈕的對象名是　 　。
（2）請在劃線處填入合適的代碼
Dim xh(0 To 100) As String ．
Dim cj(0 To 100) As Integer
Const num = 50
Private Sub Form_ Load ()
‘本過程從數據庫讀取每位學生的學號和成績存放在數組xh和cj中，代碼略
End Sub
Private Sub Com1_Click ()
Dim i
As Integer， m As Integer， n As Integer， k As Integer， a As Integ
a =
Val(Text1.Text)
For
i=1 To num-1
k=　 　
If
k<>i Then
t=cj(k)：cj(k)=cj(i)：cj(i)=t
s=xh(k)：xh(k)=xh(i)：xh(i)=s
End If
Next i
m=a-1：n=a+1
Do
While cj(m) = cj(a)
m=m-1
Loop
Do
While cj(n) = cj(a)
n=n+1
Loop
If
m<>0 And 　 　 Then lq = m Else lq=n-1
Label5.Caption
= Str(lq)
Label6.Caption
= Str(cj(lq))
List1.AddItem “字號”+“學號”+“成績”
For
i=1 To lq
List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))
Next i
End Sub
Function imax(x As Integer， y As Integer) As Integer
Dim i As Integer，j As Integer
i=x
For
j=x+1 To y
If 　 　 Then i=j
Next j
imax =
i
End Function
【答案】（1）com1
（2）imax(i, num)；a-m < n- 1- a或等價答案；cj(i) < cj(j)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；排序算法及程序實現
16．（2021高二下·杭州期中）某圖書館整理系統會自動將借閱歸還的書籍按照書籍編號從小到大進行排序，以便于圖書管理員查閱各閱覽室書籍的在架情況。小明模仿該系統設計了如下程序，程序運行時，會自動對在架的書籍根據編號進行升序排序，在文本框Text1中輸入閱覽室編號，點擊“查詢”按鈕，程序會將該閱覽室的所有書籍及其對應的位置和書名全部輸出到列表框List1中，如圖所示。已知該圖書館分成四個閱覽室，1號閱覽室放置圖書大類為A-F的書籍，2號閱覽室放置圖書大類為G-N的書籍……以此類推，每本書的編號第一位代表該書所屬的圖書大類。
實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于VB窗體文件的是 (單選，填字母)。
A．dj.vbp B．dj.frm C．jd.exe D．dj.Vbw
（2）請在劃線處填上合適的代碼。
Dim book(1 To 100) As String '存儲書籍的編號
Dim bname(1 To 100) As String '存儲書籍的書名
Dim pos(1 To 100) As String '存儲書籍所在閱覽室的位置
Dim rroom(1 To 4) As String '存儲每個閱覽室存放書籍的大類
Dim n As Integer'在架書籍總數
Private Sub Form_ Load ()
'在架書籍根據編號進行升序排序，書籍編號、書籍名稱和所在閱覽室的位置分別存放在數組book、bname 和pos中，在架書籍總數為n，代碼略
rroom(1)="ABCDEF"：rroom(2)="GHIJKN"
rroom(3)="OPQRST"：rroom(4)="UVXZ" '每個閱覽室存放的書籍大類
End Sub
Private Sub Command1_Click ()
Dim id
As Integer，i As Integer，key1 As String，key2 As String，flag As Integer
Dim
start1 As Integer，end1 As Integer
id = Val(Text1． Text)
key1=
Mid(rroom(id)，1，1)
key2= 　 　
start1 =check (key1，1)
end1 =
check (key2，-1)
For i =
start1 to 　 　
List1．AddItem "編號："+gs(book(i))+"位置："+gs(pos(i))+"書名："+gs
(bname(i))
Next i
End Sub
Function check(key As String， flag As Integer) As Integer
Dim
left As Integer， right As Integer， m As Integer
left=1：right=n
Do While left <= right
m=
(left + right) \ 2
If Then
right= m - 1
Else
left=m+1
End If
Loop
check = left
End Function
Function gs(s As String) As String
Dim i As Integer
For i=1To15-Len(s)
s=s+""
Next i
gs=S
End Function
（3）程序加框處代碼有錯誤，請改正。
【答案】（1）B
（2）Mid(rroom(id), Len(rroom(id)), 1)；end1 - 1
（3）Mid(book(m), 1, 1) > key Or Mid(book(m), 1, 1) = key And flag = 1
或 flag= -1 And Mid(book(m), 1, 1)> key or flag= 1 And Mid(book(m), 1, 1)>= key
【知識點】過程與自定義函數；排序算法及程序實現；窗體文件、工程文件及其擴展名
1 / 1浙江省杭州地區(含周邊)重點中學2020-2021學年高二下學期信息技術期中考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高二下·杭州期中）下列關于信息與信息技術說法正確的是（　?。?br/>A．古代也有信息技術，人類主要通過手勢、聲音和各種形體動作來表達信息
B．信息具有時效性，因此獲取的信息應當立即發布
C．信息具有共享性，可以在網盤中共享任何視頻
D．檔案卷宗上記錄有不同時期的重要事件，所以檔案卷宗是信息
2．（2021高二下·杭州期中）下列關于瀏覽器與網頁描述正確的是（　?。?br/>A．使用搜索引擎搜索信息時，可通過減少關鍵字來減少搜索到的信息數量
B．若使瀏覽器啟動時自動打開某個網站，可使用瀏覽器主頁的功能
C．在IE瀏覽器中，選擇“網頁，僅HTML(*．htm；*．html)”類型保存網頁，不可以保存網頁中的超鏈接
D．只有純文字的網頁才可以用記事本編輯
3．（2021高二下·杭州期中）關于Access數據庫，下列說法不正確的是（　　）
A．新增記錄，不會對已有記錄的字段值產生影響
B．Access、FoxPro是小型數據庫管理系統
C．在Access數據表輸入數據后，則不能再將任何字段設置為主鍵
D．數據庫中可以存儲圖片或視頻
4．（2021高二下·杭州期中）關于二進制、十進制與十六進制的整數，下列說法正確的是（　　）
A．7位二進制數的最大值為128D
B．任何4位二進制數都不可能大于FH
C．僅憑十六進制最末位上的數，無法確定該數是奇數還是偶數
D．在十六進制數最末位后添上一位十六進制數A，所得新數是原數的16倍
5．（2021高二下·杭州期中）下列關于多媒體技術的說法不正確的是（　?。?br/>A．多媒體技術的交互性是指媒體與媒體之間的信息交互
B．多媒體技術中的媒體是指承載信息的載體，如文字、聲音、圖形和圖像等
C．多媒體作品的設計可分為需求分析、規劃設計、腳本編寫三大步驟
D．多媒體數據壓縮后出現了少量失真，這種壓縮必為有損壓縮
6．（2021高二下·杭州期中）一幅未經壓縮的1024*768像素、RGB/8 模式的BMP圖像，使用photoshop將圖像的寬度和高度各縮小到原來的50%，再存儲為16位色的BMP圖像。則處理前后的文件存儲容量之比約為（　?。?br/>A．6：1 B．8：1 C．2：1 D．12：1
7．（2021高二下·杭州期中）下列表達式的值一定為False的是（　?。?br/>A．Mid("Visual"，1，1) < Mid("Visual"，2，1)
B．Len("654321")>Int (Rnd*3) ~2
C．1=6/2\2
D．Val("1"+"1")=2
8．（2021高二下·杭州期中）某算法的部分流程圖如圖所示。若要計算 ，則流程圖中①處填入的語句（　?。?br/>A．s←1/k*i B．s←s+1/(k*i)
C．s←1/(-k)*i D．s←s+1/k*i
9．（2021高二下·杭州期中）有如下程序段
Private Sub Command1_Click ()
Dim a(1 To 10) As Integer，i As Integer
For i=1 To 10
a(i)=i^i
Next i
List1.AddItem Str(a(i))
End Sub
運行程序，單擊命令按鈕Command1后，出現的錯誤提示為（　?。?br/>A．下標越界 B．類型不匹配
C．溢出 D．子程序或函數未定義
10．（2021高二下·杭州期中）有如下VB程序段
Const n=11
Dim a(1 To n) As Integer，y(1 To n) As Integer， i As Integer， j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
數組a的各元素的值為“3，4，3，1，4，4，5，5，6，2，0”，在文本框Text1中輸入4，執行該段程序后文本框Text2中顯示的值為（　?。?br/>A．4 4 4 B．4 4 C．3 D．3 3
11．（2021高二下·杭州期中）有如下VB程序段
Dim k As Integer， num As Integer， m As Integer
Dim s As String， ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26：ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s， x，1)
s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)
k=k-1：m=m-1
Loop
Text2.Text = ans
文本框Text1中輸入4，執行上述程序后，文本框Tex2中有顯示的內容不可能為（　?。?br/>A．snyg B．tuna C．vmlc D．Amzm
12．（2021高二下·杭州期中）有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer
a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5
b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)t=a(j)：a(j)=a(j+1)：a(j+1)=t
t=b(j)：b(j) =b(j+1)：b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
運行該程序段后，列表框List1第5行顯示的內容為（　　）
A．1 5 B．3 7 C．2 5 D．4 7
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高二下·杭州期中）小張收集了某地部分市場菜籃子價格數據，并使用Excel軟件進行數據處理，如圖所示。
請回答下列問題：
（1）表中“平均值”數據是利用函數AVERAGE計算得到的，選擇I3單元格輸入公式，然后用自動填充功能完成其他單元格的計算。則I3單元格中的公式為　 　。
（2）為了分析數據的需要，創建了如圖b所示的圖表，則創建該圖表的數據區域是　 　。
（3）若要對圖a中所示數據按“最大差價”進行降序排列，則排序時選擇的數據區域　 　 。
（4）對圖a中的數據進行篩選，要找出“最大差價”最大的三個，可以選擇　 　(單選，填字母：A .高于平均值/B
.10個最大的值/C .自定義篩選)
14．（2021高二下·杭州期中）小明利用GoldWave和Flash制作了“倒計時”的動畫。作品的Flash制作界面如圖a所示。請回答下列問題：
（1）為了獲取1秒鐘的鐘聲作為倒計時聲音，老師下載了3秒時長的聲音，然后用GoldWawe軟件截取聲音，步驟如下：①單擊按鈕選擇1秒時長的音頻；②單擊按鈕截取1秒時長的音頻：③保存聲音，并導入到Flash中。其中第①步中應使用的按鈕是　 　，第②步中應使用的按鈕是　 　(選填字母：A . \B . \C . \D . ）
（2）圖層“5”、“4"、“3”、“2”、“1”、“0”中分別是數字5、4、3、2、1、0的由大變小的動畫，每出現一個數字動畫，鐘聲響一次。現將鐘聲添加到背景圖層第1幀，其屬性面板如圖b所示。為使“鐘聲”與數字動畫同步，應作的調整是　 　。
（3）測試影片時，發現播放數字0的動畫時，數字1仍停留在畫面上，觀察圖a，應對圖層1作的調整是　 　。
（4）測試影片時，當最后一個數字0的動畫播放完畢后，動畫停止播放，可以實現這一要求的操作是　 　。
15．（2021高二下·杭州期中）學校需要從A班(共50人)選拔一批學生集訓準備比賽。小明為了減輕老師的工作量，編寫了一個程序幫助老師解決這個問題，將所有學生的成績排序后按照預設人數劃取分數線。由于相同分數可能有多個學生，找出最接近預設人數的分數作為分數線。如果按照前分和按后分錄取增加或減少的人數相同時則按高于錄取人數進行錄取，最后輸出錄取的學生名單。例如現要求選拔15個學生，排序后第14-20名的學生成績相同，由于13比20更接近預錄取人數，因此實際只錄取13人。小明編寫的VB程序如下，在文本框Text1中輸入擬錄取人數，單擊“確定”按鈕后，在標簽Labe15和Labe16中輸出錄取人數和分數線，在List1中輸出錄取學生名單。
實現上述功能的代碼如下。請回答下列問題：
（1）觀察代碼，“確定”按鈕的對象名是　 　。
（2）請在劃線處填入合適的代碼
Dim xh(0 To 100) As String ．
Dim cj(0 To 100) As Integer
Const num = 50
Private Sub Form_ Load ()
‘本過程從數據庫讀取每位學生的學號和成績存放在數組xh和cj中，代碼略
End Sub
Private Sub Com1_Click ()
Dim i
As Integer， m As Integer， n As Integer， k As Integer， a As Integ
a =
Val(Text1.Text)
For
i=1 To num-1
k=　 　
If
k<>i Then
t=cj(k)：cj(k)=cj(i)：cj(i)=t
s=xh(k)：xh(k)=xh(i)：xh(i)=s
End If
Next i
m=a-1：n=a+1
Do
While cj(m) = cj(a)
m=m-1
Loop
Do
While cj(n) = cj(a)
n=n+1
Loop
If
m<>0 And 　 　 Then lq = m Else lq=n-1
Label5.Caption
= Str(lq)
Label6.Caption
= Str(cj(lq))
List1.AddItem “字號”+“學號”+“成績”
For
i=1 To lq
List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))
Next i
End Sub
Function imax(x As Integer， y As Integer) As Integer
Dim i As Integer，j As Integer
i=x
For
j=x+1 To y
If 　 　 Then i=j
Next j
imax =
i
End Function
16．（2021高二下·杭州期中）某圖書館整理系統會自動將借閱歸還的書籍按照書籍編號從小到大進行排序，以便于圖書管理員查閱各閱覽室書籍的在架情況。小明模仿該系統設計了如下程序，程序運行時，會自動對在架的書籍根據編號進行升序排序，在文本框Text1中輸入閱覽室編號，點擊“查詢”按鈕，程序會將該閱覽室的所有書籍及其對應的位置和書名全部輸出到列表框List1中，如圖所示。已知該圖書館分成四個閱覽室，1號閱覽室放置圖書大類為A-F的書籍，2號閱覽室放置圖書大類為G-N的書籍……以此類推，每本書的編號第一位代表該書所屬的圖書大類。
實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于VB窗體文件的是 (單選，填字母)。
A．dj.vbp B．dj.frm C．jd.exe D．dj.Vbw
（2）請在劃線處填上合適的代碼。
Dim book(1 To 100) As String '存儲書籍的編號
Dim bname(1 To 100) As String '存儲書籍的書名
Dim pos(1 To 100) As String '存儲書籍所在閱覽室的位置
Dim rroom(1 To 4) As String '存儲每個閱覽室存放書籍的大類
Dim n As Integer'在架書籍總數
Private Sub Form_ Load ()
'在架書籍根據編號進行升序排序，書籍編號、書籍名稱和所在閱覽室的位置分別存放在數組book、bname 和pos中，在架書籍總數為n，代碼略
rroom(1)="ABCDEF"：rroom(2)="GHIJKN"
rroom(3)="OPQRST"：rroom(4)="UVXZ" '每個閱覽室存放的書籍大類
End Sub
Private Sub Command1_Click ()
Dim id
As Integer，i As Integer，key1 As String，key2 As String，flag As Integer
Dim
start1 As Integer，end1 As Integer
id = Val(Text1． Text)
key1=
Mid(rroom(id)，1，1)
key2= 　 　
start1 =check (key1，1)
end1 =
check (key2，-1)
For i =
start1 to 　 　
List1．AddItem "編號："+gs(book(i))+"位置："+gs(pos(i))+"書名："+gs
(bname(i))
Next i
End Sub
Function check(key As String， flag As Integer) As Integer
Dim
left As Integer， right As Integer， m As Integer
left=1：right=n
Do While left <= right
m=
(left + right) \ 2
If Then
right= m - 1
Else
left=m+1
End If
Loop
check = left
End Function
Function gs(s As String) As String
Dim i As Integer
For i=1To15-Len(s)
s=s+""
Next i
gs=S
End Function
（3）程序加框處代碼有錯誤，請改正。
答案解析部分
1．【答案】A
【知識點】信息及其特征；信息技術的發展歷史
2．【答案】B
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索
3．【答案】C
【知識點】數據庫的分類與應用；數據表、字段、記錄的編輯
4．【答案】B
【知識點】進制及數制轉換
5．【答案】A
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計；多媒體組成元素及文件格式；多媒體數據壓縮技術
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】D
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】流程圖識讀
9．【答案】C
【知識點】循環結構語句及程序實現
10．【答案】A
【知識點】常見數據類型、數組；循環結構語句及程序實現
11．【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
12．【答案】B
【知識點】常見數據類型、數組；排序算法及程序實現
13．【答案】（1）=AVERAGE(C3:H3)或等價答案
（2）B2，B4：B9，I2,I4：I9
（3）A2:J13或者A3:J13
（4）B
【知識點】表格數據的處理與計算
14．【答案】（1）D；C
（2）在聲音屬性面板中將鐘聲.wav的重復次數設置為6
（3）第51幀執行插入空白關鍵幀操作 或第51-60幀執行刪除幀操作或等價答案
（4）在“0”圖層的最后一幀添加動作腳本“stop（）；”或等同表述
【知識點】聲音素材的基本處理；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）com1
（2）imax(i, num)；a-m < n- 1- a或等價答案；cj(i) < cj(j)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；排序算法及程序實現
16．【答案】（1）B
（2）Mid(rroom(id), Len(rroom(id)), 1)；end1 - 1
（3）Mid(book(m), 1, 1) > key Or Mid(book(m), 1, 1) = key And flag = 1
或 flag= -1 And Mid(book(m), 1, 1)> key or flag= 1 And Mid(book(m), 1, 1)>= key
【知識點】過程與自定義函數；排序算法及程序實現；窗體文件、工程文件及其擴展名
1 / 1

展開更多......

收起↑