資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省杭州市2022屆高三下學期信息技術4月教學質量檢測（二模）試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2022·杭州模擬）下列有關信息與信息技術的說法，正確的是（　　）
A．人類的生活離不開信息，信息無處不在
B．聲音、圖像、磁帶、光盤都是信息的載體，但人的大腦不是信息的載體
C．典型的現代信息技術包括攝影技術、電影技術、計算機技術和通信技術等
D．報刊書籍、廣播電視、網絡多媒體技術都是常用的信息表達方式
【答案】A
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．（2022·杭州模擬）下列關于網絡信息資源獲取與信息安全的說法，正確的是（　　）
A．利用搜索引擎檢索信息時，關鍵詞越多，搜索到的信息越多
B．因特網上檢索信息最常用的兩種途徑是自動網頁檢索和主題目錄檢索
C．計算機病毒是人為編寫、破壞他人計算機系統的計算機程序
D．開發者開發設計的計算機軟件，申請專利之后才開始受法律保護
【答案】C
【知識點】知識產權；病毒及其防治；網絡資源的檢索
3．（2022·杭州模擬）使用UltraEdit軟件查看字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“B”的二進制內碼值是00101010
B．字符“M”比字符“j”的內碼值大
C．“加油”兩個字符的內碼占32個bit
D．字符“！”的十六進制內碼值是A1
【答案】C
【知識點】進制及數制轉換；字符編碼
4．（2022·杭州模擬）用Access軟件設計圖書借閱管理系統的數據庫，其中已建好的“借閱信息”數據表用于存儲如圖所示的表格數據。
姓名 班級 學號 書名. 作者 出版社 借閱時間 圖書狀態
肖戰 101 20210101 吶喊 魯迅 現代出版社 2022/3/10 在借
朱一龍 206 20200262 圍城 錢鐘書 鐵道出版社 2021.9.30 已還
白敬亭 103 20210316 雷雨 曹禺 現代出版社 2022-1-10 逾期
下列關于“借閱信息"數據表的描述，不正確的是（　　）
A．該數據表用于存儲圖書借閱情況的流水信息
B．該數據表的字段數可以多于上述表格的列數
C．“借閱時間”列的數據類型可以設置為“日期/時間”
D．“圖書狀態”列的數據類型可以設置為“是/否”
【答案】D
【知識點】數據表、字段、記錄的概念；字段的數據類型
5．（2022·杭州模擬）使用GoldWave軟件對某音頻文件進行處理，部分界面如圖所示。
下列說法正確的是（　　）
A．把該音頻另存為MP3格式屬于有損壓縮
B．執行“靜音”操作后，該音頻播放時有4秒鐘靜音
C．執行“粘貼”4秒音頻操作后，該音頻總時長不變
D．執行“剪裁”操作后，該音頻總時長縮短為原來的2/5
【答案】A
【知識點】聲音素材的基本處理
6．（2022·杭州模擬）一個時長為10秒、1024×512像素、24位真彩色、25幀/秒的未經壓縮的AVI格式無聲視頻文件，壓縮為MP4格式，其壓縮比為10：1~50：1，則壓縮后的MP4文件容量最小約為（　　）
A．307.2KB B．7.5MB C．37.5MB D．60MB
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2022·杭州模擬）下列VB表達式中，值最大的是(　　)
A．Asc (Chr(65)) - 60 B．Int(-53/10)+10
C．41Mod22\3 D．Val("1"+ "2")
【答案】D
【知識點】運算符、基本運算與表達式
8．（2022·杭州模擬）某算法的部分流程圖如圖所示，執行這部分流程，若輸入m的值為18，n的值為31582，則輸出c的值是(　　)
A．35 B．25 C．352 D．253
【答案】B
【知識點】流程圖識讀
9．（2022·杭州模擬）兩個班級(人數均為50) 的學生參加志愿者活動的次數存儲在數組a中，其中第1段元素a(1)~a(50)存儲著第1個班的數據，第2段元素a(51) ~a(100)存儲著第2個班的數據。使用選擇排序算法分別對每段中的數據進行降序排列，則數組元素之間的總比較次數是(　　)
A．98 B．2450 C．2550 D．4950
【答案】B
【知識點】排序算法及程序實現
10．（2022·杭州模擬）統計6位由“0”、“1”組成的數字串中“0”和“1”個數相同的數字串個數。實現上述功能的VB程序段如下。
k=0
For i=0 To 63
n =0
For j=1 To 6
Next j
If n=3 Then k=k+1
Next i
Text1.Text=“符合要求的數字串有”+ Str(k) + “個”
上述程序段中方框處可選語句為：①d=d\2 ②d=I ③n =n+dMod2
則(1) (2) (3)處語句依次可為(　　)
A．①②③ B．①③② C．②③① D．②①③
【答案】C
【知識點】循環結構語句及程序實現
11．（2022·杭州模擬）有如下VB程序段：
s ="wantsfood"
t = Mid(s, Len(s), 1)
max=0
For i=Len(s)-1 To 1 Step-1
If Mid(s, i + 1, 1) >= Mid(s,i, 1) Then
t = Mid(s, i,1) + t
If Len(t) >= max Then max = Len(t): ans= t
Else
t = Mid(s, i, 1)
End If
Next i
執行該程序段后，變量ans和max的值分別是(　　)
A．"ant", 3 B．"foo",3 C．"stna", 4 D．"doof", 4
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2022·杭州模擬）某對分查找算法的VB程序段如下：
i =1：j=10: key = 88
Do While I <=j
m=(i+j)\2
If key < a(m) Then j = m-1 Else i=m+1
Loop
數組元素a(1)到a(10)的值依次為“12，15，18，20，25，39，47，88，90，99”，經過上述代碼查找后，下列表達式正確的是(　　)
A．jm+1 D．i= m
【答案】D
【知識點】查找算法及程序實現
二、非選擇題(本大題共4題，4+8+7+7，共26分)
13．（2022·杭州模擬）小華收集了2011年~2020年全國廢氣主要污染物排放的部分數據，并使用Excel軟件對數據進行處理，如圖a所示。
請回答下列問題：
（1）在C4單元格中輸入公式，再向下自動填充至單元格C12，并將區域C4：C12復制粘貼到區域E4：E12和G4：G12，則單元格E4中的公式為　 　。
（2）由于操作失誤，不小心清除了單元格B12中的內容，則C12單元格中顯示的結果是　 　(單選，填字母A . #DIV/O！ /
B . #REF！ / C . -100.00% / D . 100.00%)
（3）為了反映2011年~2020年全國廢氣主要污染物排放變化情況，根據圖a中的數據制作的圖表如圖b所示。綜合圖a和圖b，下列說法正確的有 (多選，填字母)。
A．創建該圖表的數據區域為A1，A2：B12，D2：D12，F2：F12
B．2011年~2020年間主要污染物排放量減少最快的是二氧化硫
C．將圖a中數據按年份進行降序排序，則圖表不會發生變化
D．將區域F3：F12中的數值格式設置為1位小數，則圖表不會發生變化
E．依次以“二氧化硫環比”、“氮氧化物環比”為篩選條件，都選擇“最小3項”進行篩選后，篩選結果只顯示2016年和2020年的數據
【答案】（1）= (D4-D3)/D3
（2）C
（3）B；D；E
【知識點】表格數據的處理與計算；數據分析
14．（2022·杭州模擬）小李制作主題為“冬奧會”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）如圖a所示，在當前狀態下，執行下列操作，能得到背景(卡通形象之外的區域)透明的卡通圖像文件的有 (多選，填字母)。
A．用橡皮擦工具擦除卡通形象之外的區域，再存儲為“冰墩墩.gif”文件
B．用魔棒工具選取卡通形象之外的區域設置不透明度為0%，再存儲為“冰墩墩.png”文件
C．用多邊形套索工具選取并刪除卡通形象之外的區域，再存儲為“冰墩墩．gif"文件
D．用磁性套索工具選取卡通形象后執行“拷貝”“粘貼”操作，再隱藏“圖層0”圖層，最后存儲為“冰墩墩.jpg”文件
（2）制作動畫作品的部分界面如圖b所示，“標題”圖層利用庫中的“文字”元件產生的實例創建由大變小的同時從完全透明到完全顯示的動畫效果，該補間類型是　 　。
（3）“卡通”圖層中的聲音素材總時長為10秒。測試場景，發現聲音播放到第15幀就停止不播放，若要實現聲音播放完整，不改變其它動畫的情況下，可以執行的操作是　 　。
（4）“會標”圖層的第15幀和第25幀是相同的內容，實現會標在第15-25幀靜止不動的效果。測試場景，會標在20-24幀消失不見。不改變其它動畫的情況下，下列修改操作可行的是 (多選，填字母)
A．對第20-24幀執行刪除幀操作
B．對第20幀執行清除關鍵幀操作
C．把第19幀移動到第20幀
D．把15幀中的實例拷貝到第24幀中
E．對第20-24幀執行清除幀操作
（5）測試影片，若要實現“場景1”動畫在第50幀停止播放，則選擇“標題”圖層第50幀添加動作腳本　 　。
【答案】（1）A；C
（2）動畫補間
（3）設置“卡通”圖層中的聲音同步屬性為“事件”或“開始
（4）B；C；D
（5）stop()；
【知識點】圖片加工常用工具的使用；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．（2022·杭州模擬）某超市管理人員需要對一周以來商品交易的部分流水賬單進行分析，以找出銷售額排在前3名(同金額同名次)的商品信息。
編寫VB程序，實現上述功能。運行程序，在列表框List1中顯示每筆交易流水記錄的商品貨號與銷售金額，單擊“分析”按鈕Command1，匯總同類商品的銷售額并在列表框List2中顯示銷售額前3名的商品貨號與銷售金額。程序運行界面如圖所示。
（1）在列表框中顯示結果時，使用到的“AddItem” 是　 　。
(單選，填字母： A .類名/B .屬性名/C .方法名/D .事件名)
（2）實現上述功能的部分VB程序如下，請在劃線處填入合適的代碼。
'n是交易流水的記錄總數，ng是商品種類，代碼略
Dim goods(1 To n) As String '每筆交易的商品貨號
Dim money(1 To n) As Single '每筆交易的銷售金額
Dim g(1 To ng) As String
Dim c(1 To ng) As Single
Private Sub Form_ Load ()
'讀取每筆交易流水，分別將商品貨號存入數組goods、銷售金額存入數組money
'g(1)~g (ng)分別存儲ng種商品的貨號，在List1中顯示交易記錄信息，代碼略
End Sub
Private Sub Command1_Click ()
Dim i As Integer, j As Integer,
tc As Single, tg As String
For i=1 To n
For j=1 To ng
If goods(i) = g(j)
Then 　 　
Next j
Next i
i =1
Do While i <= ng
Fo rj=ng To i+1 Step-1
If c(j)>c(j-1) Then
tc=c(j) : c(j)=c(j-1)
: c(j-1)=tc
tg=g(j) : g(j)=g(j-1)
: g(j-1)=tg
End If
Next j
If 　 　 Then Exit Do
i =i+1
Loop
For j=1 To
List2.AddItem g(j) +“”+ Str(c(j))
Next i
End Sub
（3）程序中加框處代碼有誤，請改正。
【答案】（1）C
（2）c(j) = c(j) + money(i)；c(i) 3或c(i)<>c(3) And i>3
（3）i-1
【知識點】排序算法及程序實現
16．（2022·杭州模擬）某辦事處每天都有客戶來辦理業務，每位客戶信息包括編號、到達時間(用字符串表示，例如“8：02”表示到達時間為8點2分)、辦理業務所需要的時間(單位：分鐘)。根據客戶到達時間和辦理業務所需要時間等信息，以及可同時辦理業務的窗口數量m(m<10)，現統計辦理完成所有業務時，客戶平均等待時間、等待時間最長的客戶編號及其等待時間。
根據上述要求編寫VB程序，功能如下：讀取某天上午辦理業務的num個客戶信息(已按到達時間順序排列)，顯示在列表框List1中。程序運行時，在文本框Text1中輸入可同時辦理業務的窗口數量m，單擊“輸出”按鈕Command1，在列表框List2中輸出客戶平均等待時間、等待時間最長的客戶編號及其等待時間。程序運行界面如第16題圖所示。
請回答下列問題：
（1）如圖所示，可同時辦理業務的窗口數量為3個，編號為“005”的客戶完成業務辦理的時間是　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 300
Dim no(1 To n) As String, st(1 To n) As String, ti(1 To n) As Integer
Dim num As Integer 'num為待辦理業務總人數
Private Sub Form_ load ()
'從數據庫中讀取所有客戶編號、到達時間和辦理業務所需要時間等信息，分別保存在
'數組no、st和ti中，統計總人數num，并在列表框List1中顯示客戶信息，代碼略。
End Sub
Function t2d(x As String) As Integer
'將時間轉化成從0點開始的時長(單位：分鐘)來表示，例如8：18用498來表示；
'代碼略
End Function
Private Sub Command1_ Click ()
Dim max_ no As String,max_ wait As Integer
Dim wait_ sum As Integer, wait_ time As Integer, wait_ num As Integer
Dim m As Integer, k As Integer, t As Integer
Dim w(1 To 10) As Integer '數組w存儲窗口辦理業務結束的時間(從0點開始的時長)
Dim i As Integer, p As Integer, q As Integer
m = Val (Text1. Text)
wait_ sum = 0
wait_ num = 0
max_ wait = 0
max_ no =""
k=0
For i=1 To m
w(i) = 0
Next i
For i=1 To num
If 　 　 Then '當前辦理業務不需要等待
t = t2d(st(i)) + ti(i)
Else
wait_ num = wait_ num + 1
wait_ time = w(1) - t2d(st (i))
wait_ sum = wait_ sum + wait_ time
If wait_ time > max_ wait Then
max_ wait = wait_ time
max_ no = no(i)
End If
　 　
End If
p =1
Do While w(p)p=p+1
Loop
If kq=k
Do While q > = p
w(q+1)=w(q)
q=q-1
Loop
w(p) = t
k=k+1
Else
q=1
Do While q< p -1
　 　
q=q+1
Loop
w(q) = t
End If
Next i
List2. AddItem "平均等待時間："+Str (Int (wait_ _sum/wait_ _num*10+0. 5)/10)+*分鐘"
List2. AddItem "等待時間最長的是："+max_ no+"號, 等待了"+Str (max_ wait)+^ 分鐘"
End Sub
【答案】（1）8：10或8點10分等其它等價寫法
（2）k < m Or w(1) < t2d(st(i))；t=w(1)+ti(i)；w(q) = w(q+ 1)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省杭州市2022屆高三下學期信息技術4月教學質量檢測（二模）試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2022·杭州模擬）下列有關信息與信息技術的說法，正確的是（　　）
A．人類的生活離不開信息，信息無處不在
B．聲音、圖像、磁帶、光盤都是信息的載體，但人的大腦不是信息的載體
C．典型的現代信息技術包括攝影技術、電影技術、計算機技術和通信技術等
D．報刊書籍、廣播電視、網絡多媒體技術都是常用的信息表達方式
2．（2022·杭州模擬）下列關于網絡信息資源獲取與信息安全的說法，正確的是（　　）
A．利用搜索引擎檢索信息時，關鍵詞越多，搜索到的信息越多
B．因特網上檢索信息最常用的兩種途徑是自動網頁檢索和主題目錄檢索
C．計算機病毒是人為編寫、破壞他人計算機系統的計算機程序
D．開發者開發設計的計算機軟件，申請專利之后才開始受法律保護
3．（2022·杭州模擬）使用UltraEdit軟件查看字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“B”的二進制內碼值是00101010
B．字符“M”比字符“j”的內碼值大
C．“加油”兩個字符的內碼占32個bit
D．字符“！”的十六進制內碼值是A1
4．（2022·杭州模擬）用Access軟件設計圖書借閱管理系統的數據庫，其中已建好的“借閱信息”數據表用于存儲如圖所示的表格數據。
姓名 班級 學號 書名. 作者 出版社 借閱時間 圖書狀態
肖戰 101 20210101 吶喊 魯迅 現代出版社 2022/3/10 在借
朱一龍 206 20200262 圍城 錢鐘書 鐵道出版社 2021.9.30 已還
白敬亭 103 20210316 雷雨 曹禺 現代出版社 2022-1-10 逾期
下列關于“借閱信息"數據表的描述，不正確的是（　　）
A．該數據表用于存儲圖書借閱情況的流水信息
B．該數據表的字段數可以多于上述表格的列數
C．“借閱時間”列的數據類型可以設置為“日期/時間”
D．“圖書狀態”列的數據類型可以設置為“是/否”
5．（2022·杭州模擬）使用GoldWave軟件對某音頻文件進行處理，部分界面如圖所示。
下列說法正確的是（　　）
A．把該音頻另存為MP3格式屬于有損壓縮
B．執行“靜音”操作后，該音頻播放時有4秒鐘靜音
C．執行“粘貼”4秒音頻操作后，該音頻總時長不變
D．執行“剪裁”操作后，該音頻總時長縮短為原來的2/5
6．（2022·杭州模擬）一個時長為10秒、1024×512像素、24位真彩色、25幀/秒的未經壓縮的AVI格式無聲視頻文件，壓縮為MP4格式，其壓縮比為10：1~50：1，則壓縮后的MP4文件容量最小約為（　　）
A．307.2KB B．7.5MB C．37.5MB D．60MB
7．（2022·杭州模擬）下列VB表達式中，值最大的是(　　)
A．Asc (Chr(65)) - 60 B．Int(-53/10)+10
C．41Mod22\3 D．Val("1"+ "2")
8．（2022·杭州模擬）某算法的部分流程圖如圖所示，執行這部分流程，若輸入m的值為18，n的值為31582，則輸出c的值是(　　)
A．35 B．25 C．352 D．253
9．（2022·杭州模擬）兩個班級(人數均為50) 的學生參加志愿者活動的次數存儲在數組a中，其中第1段元素a(1)~a(50)存儲著第1個班的數據，第2段元素a(51) ~a(100)存儲著第2個班的數據。使用選擇排序算法分別對每段中的數據進行降序排列，則數組元素之間的總比較次數是(　　)
A．98 B．2450 C．2550 D．4950
10．（2022·杭州模擬）統計6位由“0”、“1”組成的數字串中“0”和“1”個數相同的數字串個數。實現上述功能的VB程序段如下。
k=0
For i=0 To 63
n =0
For j=1 To 6
Next j
If n=3 Then k=k+1
Next i
Text1.Text=“符合要求的數字串有”+ Str(k) + “個”
上述程序段中方框處可選語句為：①d=d\2 ②d=I ③n =n+dMod2
則(1) (2) (3)處語句依次可為(　　)
A．①②③ B．①③② C．②③① D．②①③
11．（2022·杭州模擬）有如下VB程序段：
s ="wantsfood"
t = Mid(s, Len(s), 1)
max=0
For i=Len(s)-1 To 1 Step-1
If Mid(s, i + 1, 1) >= Mid(s,i, 1) Then
t = Mid(s, i,1) + t
If Len(t) >= max Then max = Len(t): ans= t
Else
t = Mid(s, i, 1)
End If
Next i
執行該程序段后，變量ans和max的值分別是(　　)
A．"ant", 3 B．"foo",3 C．"stna", 4 D．"doof", 4
12．（2022·杭州模擬）某對分查找算法的VB程序段如下：
i =1：j=10: key = 88
Do While I <=j
m=(i+j)\2
If key < a(m) Then j = m-1 Else i=m+1
Loop
數組元素a(1)到a(10)的值依次為“12，15，18，20，25，39，47，88，90，99”，經過上述代碼查找后，下列表達式正確的是(　　)
A．jm+1 D．i= m
二、非選擇題(本大題共4題，4+8+7+7，共26分)
13．（2022·杭州模擬）小華收集了2011年~2020年全國廢氣主要污染物排放的部分數據，并使用Excel軟件對數據進行處理，如圖a所示。
請回答下列問題：
（1）在C4單元格中輸入公式，再向下自動填充至單元格C12，并將區域C4：C12復制粘貼到區域E4：E12和G4：G12，則單元格E4中的公式為　 　。
（2）由于操作失誤，不小心清除了單元格B12中的內容，則C12單元格中顯示的結果是　 　(單選，填字母A . #DIV/O！ /
B . #REF！ / C . -100.00% / D . 100.00%)
（3）為了反映2011年~2020年全國廢氣主要污染物排放變化情況，根據圖a中的數據制作的圖表如圖b所示。綜合圖a和圖b，下列說法正確的有 (多選，填字母)。
A．創建該圖表的數據區域為A1，A2：B12，D2：D12，F2：F12
B．2011年~2020年間主要污染物排放量減少最快的是二氧化硫
C．將圖a中數據按年份進行降序排序，則圖表不會發生變化
D．將區域F3：F12中的數值格式設置為1位小數，則圖表不會發生變化
E．依次以“二氧化硫環比”、“氮氧化物環比”為篩選條件，都選擇“最小3項”進行篩選后，篩選結果只顯示2016年和2020年的數據
14．（2022·杭州模擬）小李制作主題為“冬奧會”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）如圖a所示，在當前狀態下，執行下列操作，能得到背景(卡通形象之外的區域)透明的卡通圖像文件的有 (多選，填字母)。
A．用橡皮擦工具擦除卡通形象之外的區域，再存儲為“冰墩墩.gif”文件
B．用魔棒工具選取卡通形象之外的區域設置不透明度為0%，再存儲為“冰墩墩.png”文件
C．用多邊形套索工具選取并刪除卡通形象之外的區域，再存儲為“冰墩墩．gif"文件
D．用磁性套索工具選取卡通形象后執行“拷貝”“粘貼”操作，再隱藏“圖層0”圖層，最后存儲為“冰墩墩.jpg”文件
（2）制作動畫作品的部分界面如圖b所示，“標題”圖層利用庫中的“文字”元件產生的實例創建由大變小的同時從完全透明到完全顯示的動畫效果，該補間類型是　 　。
（3）“卡通”圖層中的聲音素材總時長為10秒。測試場景，發現聲音播放到第15幀就停止不播放，若要實現聲音播放完整，不改變其它動畫的情況下，可以執行的操作是　 　。
（4）“會標”圖層的第15幀和第25幀是相同的內容，實現會標在第15-25幀靜止不動的效果。測試場景，會標在20-24幀消失不見。不改變其它動畫的情況下，下列修改操作可行的是 (多選，填字母)
A．對第20-24幀執行刪除幀操作
B．對第20幀執行清除關鍵幀操作
C．把第19幀移動到第20幀
D．把15幀中的實例拷貝到第24幀中
E．對第20-24幀執行清除幀操作
（5）測試影片，若要實現“場景1”動畫在第50幀停止播放，則選擇“標題”圖層第50幀添加動作腳本　 　。
15．（2022·杭州模擬）某超市管理人員需要對一周以來商品交易的部分流水賬單進行分析，以找出銷售額排在前3名(同金額同名次)的商品信息。
編寫VB程序，實現上述功能。運行程序，在列表框List1中顯示每筆交易流水記錄的商品貨號與銷售金額，單擊“分析”按鈕Command1，匯總同類商品的銷售額并在列表框List2中顯示銷售額前3名的商品貨號與銷售金額。程序運行界面如圖所示。
（1）在列表框中顯示結果時，使用到的“AddItem” 是　 　。
(單選，填字母： A .類名/B .屬性名/C .方法名/D .事件名)
（2）實現上述功能的部分VB程序如下，請在劃線處填入合適的代碼。
'n是交易流水的記錄總數，ng是商品種類，代碼略
Dim goods(1 To n) As String '每筆交易的商品貨號
Dim money(1 To n) As Single '每筆交易的銷售金額
Dim g(1 To ng) As String
Dim c(1 To ng) As Single
Private Sub Form_ Load ()
'讀取每筆交易流水，分別將商品貨號存入數組goods、銷售金額存入數組money
'g(1)~g (ng)分別存儲ng種商品的貨號，在List1中顯示交易記錄信息，代碼略
End Sub
Private Sub Command1_Click ()
Dim i As Integer, j As Integer,
tc As Single, tg As String
For i=1 To n
For j=1 To ng
If goods(i) = g(j)
Then 　 　
Next j
Next i
i =1
Do While i <= ng
Fo rj=ng To i+1 Step-1
If c(j)>c(j-1) Then
tc=c(j) : c(j)=c(j-1)
: c(j-1)=tc
tg=g(j) : g(j)=g(j-1)
: g(j-1)=tg
End If
Next j
If 　 　 Then Exit Do
i =i+1
Loop
For j=1 To
List2.AddItem g(j) +“”+ Str(c(j))
Next i
End Sub
（3）程序中加框處代碼有誤，請改正。
16．（2022·杭州模擬）某辦事處每天都有客戶來辦理業務，每位客戶信息包括編號、到達時間(用字符串表示，例如“8：02”表示到達時間為8點2分)、辦理業務所需要的時間(單位：分鐘)。根據客戶到達時間和辦理業務所需要時間等信息，以及可同時辦理業務的窗口數量m(m<10)，現統計辦理完成所有業務時，客戶平均等待時間、等待時間最長的客戶編號及其等待時間。
根據上述要求編寫VB程序，功能如下：讀取某天上午辦理業務的num個客戶信息(已按到達時間順序排列)，顯示在列表框List1中。程序運行時，在文本框Text1中輸入可同時辦理業務的窗口數量m，單擊“輸出”按鈕Command1，在列表框List2中輸出客戶平均等待時間、等待時間最長的客戶編號及其等待時間。程序運行界面如第16題圖所示。
請回答下列問題：
（1）如圖所示，可同時辦理業務的窗口數量為3個，編號為“005”的客戶完成業務辦理的時間是　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 300
Dim no(1 To n) As String, st(1 To n) As String, ti(1 To n) As Integer
Dim num As Integer 'num為待辦理業務總人數
Private Sub Form_ load ()
'從數據庫中讀取所有客戶編號、到達時間和辦理業務所需要時間等信息，分別保存在
'數組no、st和ti中，統計總人數num，并在列表框List1中顯示客戶信息，代碼略。
End Sub
Function t2d(x As String) As Integer
'將時間轉化成從0點開始的時長(單位：分鐘)來表示，例如8：18用498來表示；
'代碼略
End Function
Private Sub Command1_ Click ()
Dim max_ no As String,max_ wait As Integer
Dim wait_ sum As Integer, wait_ time As Integer, wait_ num As Integer
Dim m As Integer, k As Integer, t As Integer
Dim w(1 To 10) As Integer '數組w存儲窗口辦理業務結束的時間(從0點開始的時長)
Dim i As Integer, p As Integer, q As Integer
m = Val (Text1. Text)
wait_ sum = 0
wait_ num = 0
max_ wait = 0
max_ no =""
k=0
For i=1 To m
w(i) = 0
Next i
For i=1 To num
If 　 　 Then '當前辦理業務不需要等待
t = t2d(st(i)) + ti(i)
Else
wait_ num = wait_ num + 1
wait_ time = w(1) - t2d(st (i))
wait_ sum = wait_ sum + wait_ time
If wait_ time > max_ wait Then
max_ wait = wait_ time
max_ no = no(i)
End If
　 　
End If
p =1
Do While w(p)p=p+1
Loop
If kq=k
Do While q > = p
w(q+1)=w(q)
q=q-1
Loop
w(p) = t
k=k+1
Else
q=1
Do While q< p -1
　 　
q=q+1
Loop
w(q) = t
End If
Next i
List2. AddItem "平均等待時間："+Str (Int (wait_ _sum/wait_ _num*10+0. 5)/10)+*分鐘"
List2. AddItem "等待時間最長的是："+max_ no+"號, 等待了"+Str (max_ wait)+^ 分鐘"
End Sub
答案解析部分
1．【答案】A
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．【答案】C
【知識點】知識產權；病毒及其防治；網絡資源的檢索
3．【答案】C
【知識點】進制及數制轉換；字符編碼
4．【答案】D
【知識點】數據表、字段、記錄的概念；字段的數據類型
5．【答案】A
【知識點】聲音素材的基本處理
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】D
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】流程圖識讀
9．【答案】B
【知識點】排序算法及程序實現
10．【答案】C
【知識點】循環結構語句及程序實現
11．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）= (D4-D3)/D3
（2）C
（3）B；D；E
【知識點】表格數據的處理與計算；數據分析
14．【答案】（1）A；C
（2）動畫補間
（3）設置“卡通”圖層中的聲音同步屬性為“事件”或“開始
（4）B；C；D
（5）stop()；
【知識點】圖片加工常用工具的使用；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）C
（2）c(j) = c(j) + money(i)；c(i) 3或c(i)<>c(3) And i>3
（3）i-1
【知識點】排序算法及程序實現
16．【答案】（1）8：10或8點10分等其它等價寫法
（2）k < m Or w(1) < t2d(st(i))；t=w(1)+ti(i)；w(q) = w(q+ 1)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑