資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省百校2021-2022學年高三下學期信息技術3月開學模擬檢測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022高三下·浙江開學考）下列有關信息與信息技術的說法，不正確的是（　　）
A．信息無處不在，并可以通過不同的載體進行傳播和保存
B．監測得到氣象信息，經計算機處理后給出天氣預報，這體現了信息的可加工處理性
C．未經數字化處理的信息無法被計算機識別與存儲
D．信息技術是依靠計算機對信息進行處理的一種技術手段
【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術
2．（2022高三下·浙江開學考）下列有關網頁和瀏覽器的說法，正確的是（　　）
A．常見的網頁編輯的軟件有記事本、FrontPage、Dreamweaver
B．網頁中的文本、圖像和超鏈接等元素是用HTTP語言來描述的
C．將網頁添加至瀏覽器收藏夾可以保存其中的文字、圖片和超鏈接
D．訪問網頁時，瀏覽器與WEB服務器之間的信息通過SMTP協議進行傳輸
【答案】A
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具；網頁標記語言及基本組成
3．（2022高三下·浙江開學考）某公司設計一工程管理系統時，使用Acess軟件創建的數據表部分界面如圖所示。
下列說法正確的是（　　）
A．該工程管理系統屬于數據庫管理系統
B．當前不能對“工程材料出人記錄表”進行重命名操作
C．“2022- 1- 5”可作為“計劃驗收日期”字段的有效輸入值
D．“項目序號”字段值可根據需要進行修改和調整
【答案】C
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的編輯
4．（2022高三下·浙江開學考）自然數n轉換為8位二進制數，左側第一-位數字為“1”且末尾為“0”。 下列說法正確的是（　　）
A．二進制數去掉左側第一位數后值變為 n\2
B．(n-1) Mod 2的結果一定是1
C．n轉換為十六進制數值一定大于80H
D．n的值可能大于255
【答案】B
【知識點】進制及數制轉換
5．（2022高三下·浙江開學考）使用GoldWave軟件編輯某音頻文件，部分界面如第5題圖所示。
下列說法正確的是（　　）
A．當前狀態下，執行“刪除”操作后，聲音文件10~25秒將出現靜音
B．執行“降低音量”操作后，聲音文件的音質會明顯下降
C．當前聲音文件是經無損壓縮后的wav格式
D．當前狀態下，執行“剪裁”操作后，聲音文件容量將變小
【答案】D
【知識點】聲音素材的基本處理
6．（2022高三下·浙江開學考）一批未壓縮的BMP格式圖像，其參數如圖所示。則容量為512MB的閃存盤可存儲該批圖像的張數約為（　　）
A．340 B．48 C．100 D．256
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2022高三下·浙江開學考）下列VB表達式中，計算結果與其他三項不同的是（　　）
A．1+18Mod11\2
B．Val(Mid("20220101"，2，2))+(-1) *2
C．Asc("d")- Asc("a" )+ Int(Sqr(2))
D．-(7Mod3- 2-2)+ 1
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2022高三下·浙江開學考）某算法的部分流程圖如圖所示。執行這部分流程，若依次輸入x的值為6，10，15，20，28，則輸出結果分別為（　　）
A．0，1，0，1，0 B．1，0，1，0，1
C．1，0，0，0，1 D．0，0，1，0，1
【答案】C
【知識點】流程圖識讀
9．（2022高三下·浙江開學考）有如下VB程序段：
s=1
a(1) = 1
For i=2 To 6
a(i) =2*i+a(i-1)
If I Mod 2=0 Then
a(i)=a(i)+1
End If
s= s+ a(i)
Next i
Text. Text = Str(s)
程序運行時，單擊按鈕Command1后，文本框Text1中顯示的內容是（　　）
A．72 B．41 C．106 D．115
【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2022高三下·浙江開學考）有如下VB程序段：
For i=1 To 3
k=i
For j=i+1 To 8
If a(j)Next j
If k<> i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
數組元素a(1)到a(8)的值依次為“8，13，20，2，11 ，30， 25，17”，下列說法不正確的是（　　）
A．執行該程序段后，數組元素a(1)到a(8)的值依次為2，8，11，13，20，30，25，17
B．每執行一次外循環，數組a元素都會進行多次位置交換
C．將代碼“If k <> i”修改為“If k > i” ，不影響程序運行結果
D．執行該程序段后，變量k的值為5
【答案】B
【知識點】排序算法及程序實現
11．（2022高三下·浙江開學考）某加密算法為：從明文第一個字符開始，每間隔k個字符，將長度為k的字符串進行逆序換位加密，若剩余字符長度不滿k則不進行位置變換。如： 明文為“IVeryLikeVB6．0”，k的值為3，則加密結果為“IVeLyrike6BV．0”。編寫如下VB程序段實現該加密算法，則程序段中3個方框處的代碼分別為：
s = Text1． Text
k = Val(Text2． Text)
i=1
count = 0
flag = False
Do While i<= Len(s)
count = count+1
If i+k- 1 <= Len(s) And flag Then
Else
ns= ns+ Mid(s，i，1)
i=i+1
End If
If count = k Then
count = 0
If flag = True Then
End If
Loop
Labell． Caption = ns
A．①ns=ns+Mid(s，i+k-count，1)②i=i+k③flag=Not flag
B．①ns=ns+Mid(s，i+k-count，1)②i=i+1③flag=False
C．①ns=ns十Mid(s，i+k-1，1)②i=i+k③flag=Not flag
D．①ns=ns十Mid(s，i+k-1，1)②i=i+1③flag=False
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2022高三下·浙江開學考）有如下對分查找VB程序段：
Key = Val(Text1. Text)
i= 1：j=10：c= 0
flag = True
Do While i<= j And flag
m= (i+j)\2
cnt=cnt+1
If a(m) = Key Then flag = False
If a(m) < Key Then
i=m+1
ElseIf flag Then
j =m-1
End If
Loop
Text2． Text = Str(cnt)
若數組元素a(1)~a(10)的值依次為“5，9，13，18，22，27，31，39，40，44" ，運行程序后，文本框Text2中顯示的內容為3，則輸人的key值不可能為（　　）
A．5 B．13 C．39 D．40
【答案】C
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022高三下·浙江開學考）某品牌公司統計商品年銷售數據，并用Excel軟件進行數據處理，部分數據如第13題圖a所示。請回答下列問題：
（1）圖a中H2：K2單元格計算各銷售渠道銷售總額在2021年度總銷售額中的占比，I2：K2的值是通過H2單元格自動填充得到，則H2單元格公式為　 　。
(提示：各銷售渠道銷售總額在2021年度總銷售額中的占比=各銷售渠道銷售總額/2021年度總銷售額* 100)
（2）根據圖a中的數據，制作了一張部分銷售渠道2021年銷售額走勢圖表，如圖b所示，則制作該圖表的數據區域是　 　。
（3）下列有關對圖表和數據表操作描述，正確的是 (多選)。
A．將H2：K2區域設置單元格數字格式保留3位小數，會影響第13題圖b所示圖表效果
B．為增加統計數據，在“月份”列后插入一列新數據，不影響原區域H2：K2所對應的新區域中的值
C．要對2021全年12個月數據按“品牌官網”銷售額排序，可以僅選擇B2：B14 區域進行排序
D．要篩選出電商平臺和抖音直播間銷售額均排在最高前三位的月份，可同時設置“電商平臺”和“抖音直播間”列篩選條件為“最大的3項”得到
【答案】（1）= SUM(B3：B14)/SUM($B$3： $E$14) * 100 = SUM(B3：B14)/SUM( $B3： $E14) * 100 或= SUM(B$3：B$ 14)/SUM( $B$3： $E$14) * 100 或= SUM(B$ 3：B$ 14)/SUM( $B3： $E14)* 100
（2）A2：A14，D2：E14
（3）B；D
【知識點】表格數據的處理與計算；表格數據的圖表呈現；數據分析
14．（2022高三下·浙江開學考）小敏創作了一個“虎年大吉”的多媒體作品，她首先用Photoshop制作了一張背景圖片，然后用Flash制作動畫，請回答以下問題：
（1）如圖a所示，下列操作可行的是 (多選，填字母。)。
A．直接為“壬寅年”圖層設置“鏡頭光暈”濾鏡
B．交換“老虎”圖層和“壬寅年”圖層位置
C．將“花朵”圖層的圖層樣式復制到“背景”圖層
D．利用“橡皮擦”工具擦除“2022”圖層的內容
E．將“花朵”圖層內容進行水平翻轉
（2）動畫制作的進間軸如圖b所示：
“音樂”圖層中的聲音在動畫開始播放約1秒后才開始播放，為使音樂從動畫一開始即播放，可以執行的操作是　 　 。
（3）“燈籠”圖層中的燈籠都是“燈籠”元件的實例，則“燈籠”圖層的補間動畫類型是　 　(選填：形狀補間動畫/動畫補間動畫)；若修改“燈籠”元件的大小，則“燈籠”圖層中的燈籠實例　 　 (選填：會/不會)發生變化。
（4）該場景播放結束后畫面停止，出現“跳轉”按鈕。單擊“跳轉”按鈕，打開與本動畫文件處于同一目錄下的文件“新春快樂．jpg”，同時關閉動畫文件，則“跳轉”按鈕上的腳本命令是　 　。
【答案】（1）B；D；E
（2）選中“音樂”圖層的第1幀執行“清除關鍵幀”操作或選中“音樂”圖層的第10幀移動到第1幀
（3）動畫補間動畫；會
（4）on( press/ release) {getURL(“新春快樂． jipg") ； fscommand("quit")；}
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2022高三下·浙江開學考）某學校推出一款食堂套餐查詢小程序。學生登錄該小程序后，可以查詢相關套餐信息，系統根據以往購買評分，給出相關套餐的平均評分以及推薦指數。
編寫一個VB程序實現如下功能：程序運行后自動讀取數據庫中關于食堂套餐的相關數據，在文本框Text1中輸人查找套餐的關鍵詞，搜索到的套餐信息在列表框List1中顯示，程序計算套餐平均評分(四舍五入保留一位小數)和推薦指數，并顯示在套餐信息下方。程序運行界面如圖所示。
Const n = 50
Dim food(1 To n) As String
Dim price(1 To n) As Integer
Dim score(1 To n) As Single
Private Sub Form_ Load()
‘讀取數據庫中套餐名稱、套餐價格和套餐評分信息分別存儲于數組food、price和score中，代碼略。
End Sub
Private Sub Command1 _Click()
Dim food(1 To n) As String, s As String
Dim price(1 To n) As Integer
Dim judge(1 To n) As Boolean
Dim score(1 To n) As Single, sum As Single, ave As Single
Dim i As Integer, j As Integer, t As Integer, q As Integer
Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single
s = Text1.Text : q= 0
For i=1 To n
①
j= 1
Do While True
If j+Len(s)-1<=t Then
If s = Mid( food(i), j, Len(s)) Then
judge(i) = True
q=q+1
Else
②
End If
End If
If Then
Exit Do
End If
Loop
Next i
For i=1 To n-1
For j=n To i+1 Step -1
If Not judge(j-1) And judge(j) Then
w1 = judge(j)： judge(j) = judge(j-1)： judge(j-1) = w1
w2 = food(j)： food(j) = food(j - 1)： food(j-1) = w2
w3 = price(j)： price(j) = price(j -1)： price(j-1) = w3
w4 = score(j)： score(j) = score(j-1)： score(j -1) = w4
End If
Next j
Next i
For i= ③
List1. AddItem food(i) +Str( price(i))+"元"
sum =sum+score(i)
Next i
ave = Int(sum/ q * 10 +0.5) / 10
‘根據平均評分ave 的值給出推薦指數。若平均評分高于4.5分顯示推薦指數"* **"，若平均評分高于4.0分顯示推薦指數"* *"，4.0分以下的顯示推薦指數" *"，代碼略。
End Sub
（1）程序編寫完成后，若要得到運行文件，則保存文件類型為　 　(單選，填字母：A . *．exe /B . *． frm /C . *． vbp/D . *． txt)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
①　 　②　 　③　 　
（3）程序中加框處代碼有錯，請改正。
【答案】（1）A
（2）t = Len(food(i))；j=j+1；1 To q
（3）judge(i)=True Or j+Len(s) -1 > t 或 judge(i) Or j+Len(s) -1>t
【知識點】程序的保存與發布；分支結構語句及程序實現；循環結構語句及程序實現
16．（2022高三下·浙江開學考）學校創客社團開展機器人比賽活動，其中設置了機器人循跡項目。比賽規則如下：給出10* 10規模的矩陣地圖，隨機設定4個循跡點，小車以蛇形路線找到循跡點后，計算最長的兩點直線距離。矩陣圖中以0表示非循跡點，1表示循跡點，循跡過程如圖a所示：
編寫一個VB程序實現如下功能：單擊“開始循跡”按鈕Command1，呈現10*10矩陣地圖，并隨機生成4個循跡點，分別用數字1表示，數字0表示非循跡點；計算4點中相距最遠的兩點的直線距離，顯示在標簽Label1中。程序運行界面如圖b所示。
（1）若隨機生成的4個循跡點如圖a所示，則該4點中相距最遠的兩點直線距離為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 10
Const m=4
Dim b(1 To 8) As Integer
Private Sub Command1_Click()
Dim f(1 To n* n) As Integer
Dim i As Integer, j As Integer
Dim w As Integer, k As Integer
Dim length As Single, maxlen As Single
Dim s As String
'生成矩陣地圖和隨機生成4個循跡點，0表示非循跡點，1表示循跡點，存于數組f中，代碼略。
For i= 1 To n^2 '顯示矩陣地圖和4個循跡點
s = s+ Str(f(i))
If i Mod n=0 Then
List1. AddItem s
s=" "
End If
Next i
w=1
For i=1 To n
For j=1 To n
k = (n+1)* ((i-1) Mod 2)+(-1)-(i-1) * j
If 　 　 Then '記錄循跡點所在位置
b(2*w-1)=i
b(2*w)=k
w=w+1
End If
Next j
Next i
i=1
maxlen = 0
Do While i<=m-1
For j=i+1 To m
　 　
If length > maxlen Then maxlen = length
Next j
i= i+1
Loop
Label1. Caption = Str( maxlen)
End Sub
Function reck(x As Integer, y As Integer) As Single
Dim c As Integer, d As Integer
Dim h As Single
c= 　 　
d=Abs(b(2*x)-b(2*y))
h=Sqr(c^2+d^2)
reck = h
End Function
【答案】（1）5
（2）f((i-1)*n+k)=1；length = reck(i, j)；Abs(b(2*x-1)-b(2*y-1))或b(2*x-1)-b(2*y-1)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省百校2021-2022學年高三下學期信息技術3月開學模擬檢測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022高三下·浙江開學考）下列有關信息與信息技術的說法，不正確的是（　　）
A．信息無處不在，并可以通過不同的載體進行傳播和保存
B．監測得到氣象信息，經計算機處理后給出天氣預報，這體現了信息的可加工處理性
C．未經數字化處理的信息無法被計算機識別與存儲
D．信息技術是依靠計算機對信息進行處理的一種技術手段
2．（2022高三下·浙江開學考）下列有關網頁和瀏覽器的說法，正確的是（　　）
A．常見的網頁編輯的軟件有記事本、FrontPage、Dreamweaver
B．網頁中的文本、圖像和超鏈接等元素是用HTTP語言來描述的
C．將網頁添加至瀏覽器收藏夾可以保存其中的文字、圖片和超鏈接
D．訪問網頁時，瀏覽器與WEB服務器之間的信息通過SMTP協議進行傳輸
3．（2022高三下·浙江開學考）某公司設計一工程管理系統時，使用Acess軟件創建的數據表部分界面如圖所示。
下列說法正確的是（　　）
A．該工程管理系統屬于數據庫管理系統
B．當前不能對“工程材料出人記錄表”進行重命名操作
C．“2022- 1- 5”可作為“計劃驗收日期”字段的有效輸入值
D．“項目序號”字段值可根據需要進行修改和調整
4．（2022高三下·浙江開學考）自然數n轉換為8位二進制數，左側第一-位數字為“1”且末尾為“0”。 下列說法正確的是（　　）
A．二進制數去掉左側第一位數后值變為 n\2
B．(n-1) Mod 2的結果一定是1
C．n轉換為十六進制數值一定大于80H
D．n的值可能大于255
5．（2022高三下·浙江開學考）使用GoldWave軟件編輯某音頻文件，部分界面如第5題圖所示。
下列說法正確的是（　　）
A．當前狀態下，執行“刪除”操作后，聲音文件10~25秒將出現靜音
B．執行“降低音量”操作后，聲音文件的音質會明顯下降
C．當前聲音文件是經無損壓縮后的wav格式
D．當前狀態下，執行“剪裁”操作后，聲音文件容量將變小
6．（2022高三下·浙江開學考）一批未壓縮的BMP格式圖像，其參數如圖所示。則容量為512MB的閃存盤可存儲該批圖像的張數約為（　　）
A．340 B．48 C．100 D．256
7．（2022高三下·浙江開學考）下列VB表達式中，計算結果與其他三項不同的是（　　）
A．1+18Mod11\2
B．Val(Mid("20220101"，2，2))+(-1) *2
C．Asc("d")- Asc("a" )+ Int(Sqr(2))
D．-(7Mod3- 2-2)+ 1
8．（2022高三下·浙江開學考）某算法的部分流程圖如圖所示。執行這部分流程，若依次輸入x的值為6，10，15，20，28，則輸出結果分別為（　　）
A．0，1，0，1，0 B．1，0，1，0，1
C．1，0，0，0，1 D．0，0，1，0，1
9．（2022高三下·浙江開學考）有如下VB程序段：
s=1
a(1) = 1
For i=2 To 6
a(i) =2*i+a(i-1)
If I Mod 2=0 Then
a(i)=a(i)+1
End If
s= s+ a(i)
Next i
Text. Text = Str(s)
程序運行時，單擊按鈕Command1后，文本框Text1中顯示的內容是（　　）
A．72 B．41 C．106 D．115
10．（2022高三下·浙江開學考）有如下VB程序段：
For i=1 To 3
k=i
For j=i+1 To 8
If a(j)Next j
If k<> i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
數組元素a(1)到a(8)的值依次為“8，13，20，2，11 ，30， 25，17”，下列說法不正確的是（　　）
A．執行該程序段后，數組元素a(1)到a(8)的值依次為2，8，11，13，20，30，25，17
B．每執行一次外循環，數組a元素都會進行多次位置交換
C．將代碼“If k <> i”修改為“If k > i” ，不影響程序運行結果
D．執行該程序段后，變量k的值為5
11．（2022高三下·浙江開學考）某加密算法為：從明文第一個字符開始，每間隔k個字符，將長度為k的字符串進行逆序換位加密，若剩余字符長度不滿k則不進行位置變換。如： 明文為“IVeryLikeVB6．0”，k的值為3，則加密結果為“IVeLyrike6BV．0”。編寫如下VB程序段實現該加密算法，則程序段中3個方框處的代碼分別為：
s = Text1． Text
k = Val(Text2． Text)
i=1
count = 0
flag = False
Do While i<= Len(s)
count = count+1
If i+k- 1 <= Len(s) And flag Then
Else
ns= ns+ Mid(s，i，1)
i=i+1
End If
If count = k Then
count = 0
If flag = True Then
End If
Loop
Labell． Caption = ns
A．①ns=ns+Mid(s，i+k-count，1)②i=i+k③flag=Not flag
B．①ns=ns+Mid(s，i+k-count，1)②i=i+1③flag=False
C．①ns=ns十Mid(s，i+k-1，1)②i=i+k③flag=Not flag
D．①ns=ns十Mid(s，i+k-1，1)②i=i+1③flag=False
12．（2022高三下·浙江開學考）有如下對分查找VB程序段：
Key = Val(Text1. Text)
i= 1：j=10：c= 0
flag = True
Do While i<= j And flag
m= (i+j)\2
cnt=cnt+1
If a(m) = Key Then flag = False
If a(m) < Key Then
i=m+1
ElseIf flag Then
j =m-1
End If
Loop
Text2． Text = Str(cnt)
若數組元素a(1)~a(10)的值依次為“5，9，13，18，22，27，31，39，40，44" ，運行程序后，文本框Text2中顯示的內容為3，則輸人的key值不可能為（　　）
A．5 B．13 C．39 D．40
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022高三下·浙江開學考）某品牌公司統計商品年銷售數據，并用Excel軟件進行數據處理，部分數據如第13題圖a所示。請回答下列問題：
（1）圖a中H2：K2單元格計算各銷售渠道銷售總額在2021年度總銷售額中的占比，I2：K2的值是通過H2單元格自動填充得到，則H2單元格公式為　 　。
(提示：各銷售渠道銷售總額在2021年度總銷售額中的占比=各銷售渠道銷售總額/2021年度總銷售額* 100)
（2）根據圖a中的數據，制作了一張部分銷售渠道2021年銷售額走勢圖表，如圖b所示，則制作該圖表的數據區域是　 　。
（3）下列有關對圖表和數據表操作描述，正確的是 (多選)。
A．將H2：K2區域設置單元格數字格式保留3位小數，會影響第13題圖b所示圖表效果
B．為增加統計數據，在“月份”列后插入一列新數據，不影響原區域H2：K2所對應的新區域中的值
C．要對2021全年12個月數據按“品牌官網”銷售額排序，可以僅選擇B2：B14 區域進行排序
D．要篩選出電商平臺和抖音直播間銷售額均排在最高前三位的月份，可同時設置“電商平臺”和“抖音直播間”列篩選條件為“最大的3項”得到
14．（2022高三下·浙江開學考）小敏創作了一個“虎年大吉”的多媒體作品，她首先用Photoshop制作了一張背景圖片，然后用Flash制作動畫，請回答以下問題：
（1）如圖a所示，下列操作可行的是 (多選，填字母。)。
A．直接為“壬寅年”圖層設置“鏡頭光暈”濾鏡
B．交換“老虎”圖層和“壬寅年”圖層位置
C．將“花朵”圖層的圖層樣式復制到“背景”圖層
D．利用“橡皮擦”工具擦除“2022”圖層的內容
E．將“花朵”圖層內容進行水平翻轉
（2）動畫制作的進間軸如圖b所示：
“音樂”圖層中的聲音在動畫開始播放約1秒后才開始播放，為使音樂從動畫一開始即播放，可以執行的操作是　 　 。
（3）“燈籠”圖層中的燈籠都是“燈籠”元件的實例，則“燈籠”圖層的補間動畫類型是　 　(選填：形狀補間動畫/動畫補間動畫)；若修改“燈籠”元件的大小，則“燈籠”圖層中的燈籠實例　 　 (選填：會/不會)發生變化。
（4）該場景播放結束后畫面停止，出現“跳轉”按鈕。單擊“跳轉”按鈕，打開與本動畫文件處于同一目錄下的文件“新春快樂．jpg”，同時關閉動畫文件，則“跳轉”按鈕上的腳本命令是　 　。
15．（2022高三下·浙江開學考）某學校推出一款食堂套餐查詢小程序。學生登錄該小程序后，可以查詢相關套餐信息，系統根據以往購買評分，給出相關套餐的平均評分以及推薦指數。
編寫一個VB程序實現如下功能：程序運行后自動讀取數據庫中關于食堂套餐的相關數據，在文本框Text1中輸人查找套餐的關鍵詞，搜索到的套餐信息在列表框List1中顯示，程序計算套餐平均評分(四舍五入保留一位小數)和推薦指數，并顯示在套餐信息下方。程序運行界面如圖所示。
Const n = 50
Dim food(1 To n) As String
Dim price(1 To n) As Integer
Dim score(1 To n) As Single
Private Sub Form_ Load()
‘讀取數據庫中套餐名稱、套餐價格和套餐評分信息分別存儲于數組food、price和score中，代碼略。
End Sub
Private Sub Command1 _Click()
Dim food(1 To n) As String, s As String
Dim price(1 To n) As Integer
Dim judge(1 To n) As Boolean
Dim score(1 To n) As Single, sum As Single, ave As Single
Dim i As Integer, j As Integer, t As Integer, q As Integer
Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single
s = Text1.Text : q= 0
For i=1 To n
①
j= 1
Do While True
If j+Len(s)-1<=t Then
If s = Mid( food(i), j, Len(s)) Then
judge(i) = True
q=q+1
Else
②
End If
End If
If Then
Exit Do
End If
Loop
Next i
For i=1 To n-1
For j=n To i+1 Step -1
If Not judge(j-1) And judge(j) Then
w1 = judge(j)： judge(j) = judge(j-1)： judge(j-1) = w1
w2 = food(j)： food(j) = food(j - 1)： food(j-1) = w2
w3 = price(j)： price(j) = price(j -1)： price(j-1) = w3
w4 = score(j)： score(j) = score(j-1)： score(j -1) = w4
End If
Next j
Next i
For i= ③
List1. AddItem food(i) +Str( price(i))+"元"
sum =sum+score(i)
Next i
ave = Int(sum/ q * 10 +0.5) / 10
‘根據平均評分ave 的值給出推薦指數。若平均評分高于4.5分顯示推薦指數"* **"，若平均評分高于4.0分顯示推薦指數"* *"，4.0分以下的顯示推薦指數" *"，代碼略。
End Sub
（1）程序編寫完成后，若要得到運行文件，則保存文件類型為　 　(單選，填字母：A . *．exe /B . *． frm /C . *． vbp/D . *． txt)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
①　 　②　 　③　 　
（3）程序中加框處代碼有錯，請改正。
16．（2022高三下·浙江開學考）學校創客社團開展機器人比賽活動，其中設置了機器人循跡項目。比賽規則如下：給出10* 10規模的矩陣地圖，隨機設定4個循跡點，小車以蛇形路線找到循跡點后，計算最長的兩點直線距離。矩陣圖中以0表示非循跡點，1表示循跡點，循跡過程如圖a所示：
編寫一個VB程序實現如下功能：單擊“開始循跡”按鈕Command1，呈現10*10矩陣地圖，并隨機生成4個循跡點，分別用數字1表示，數字0表示非循跡點；計算4點中相距最遠的兩點的直線距離，顯示在標簽Label1中。程序運行界面如圖b所示。
（1）若隨機生成的4個循跡點如圖a所示，則該4點中相距最遠的兩點直線距離為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 10
Const m=4
Dim b(1 To 8) As Integer
Private Sub Command1_Click()
Dim f(1 To n* n) As Integer
Dim i As Integer, j As Integer
Dim w As Integer, k As Integer
Dim length As Single, maxlen As Single
Dim s As String
'生成矩陣地圖和隨機生成4個循跡點，0表示非循跡點，1表示循跡點，存于數組f中，代碼略。
For i= 1 To n^2 '顯示矩陣地圖和4個循跡點
s = s+ Str(f(i))
If i Mod n=0 Then
List1. AddItem s
s=" "
End If
Next i
w=1
For i=1 To n
For j=1 To n
k = (n+1)* ((i-1) Mod 2)+(-1)-(i-1) * j
If 　 　 Then '記錄循跡點所在位置
b(2*w-1)=i
b(2*w)=k
w=w+1
End If
Next j
Next i
i=1
maxlen = 0
Do While i<=m-1
For j=i+1 To m
　 　
If length > maxlen Then maxlen = length
Next j
i= i+1
Loop
Label1. Caption = Str( maxlen)
End Sub
Function reck(x As Integer, y As Integer) As Single
Dim c As Integer, d As Integer
Dim h As Single
c= 　 　
d=Abs(b(2*x)-b(2*y))
h=Sqr(c^2+d^2)
reck = h
End Function
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術
2．【答案】A
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具；網頁標記語言及基本組成
3．【答案】C
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的編輯
4．【答案】B
【知識點】進制及數制轉換
5．【答案】D
【知識點】聲音素材的基本處理
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】C
【知識點】流程圖識讀
9．【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】B
【知識點】排序算法及程序實現
11．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】C
【知識點】查找算法及程序實現
13．【答案】（1）= SUM(B3：B14)/SUM($B$3： $E$14) * 100 = SUM(B3：B14)/SUM( $B3： $E14) * 100 或= SUM(B$3：B$ 14)/SUM( $B$3： $E$14) * 100 或= SUM(B$ 3：B$ 14)/SUM( $B3： $E14)* 100
（2）A2：A14，D2：E14
（3）B；D
【知識點】表格數據的處理與計算；表格數據的圖表呈現；數據分析
14．【答案】（1）B；D；E
（2）選中“音樂”圖層的第1幀執行“清除關鍵幀”操作或選中“音樂”圖層的第10幀移動到第1幀
（3）動畫補間動畫；會
（4）on( press/ release) {getURL(“新春快樂． jipg") ； fscommand("quit")；}
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）A
（2）t = Len(food(i))；j=j+1；1 To q
（3）judge(i)=True Or j+Len(s) -1 > t 或 judge(i) Or j+Len(s) -1>t
【知識點】程序的保存與發布；分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）5
（2）f((i-1)*n+k)=1；length = reck(i, j)；Abs(b(2*x-1)-b(2*y-1))或b(2*x-1)-b(2*y-1)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑