資源簡介

浙江省2021屆高三上學期信息技術9月百校聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)
1．（2020高三上·浙江月考）下列有關信息與信息處理的說法，不正確的是（　　）
A．“有一千個讀者就有一千個哈姆雷特”，說明了信息可以被加工處理
B．掃描商品條碼獲取商品信息，說明信息可以脫離載體而存在
C．二維碼過一段時間會失效，說明信息具有時效性
D．刷臉支付屬于人工智能應用
2．（2020高三上·浙江月考）下列有關網頁與瀏覽器的說法，正確的是（　　）
A．在E瀏覽器中，以“網頁，全部(*,Htm,*.html)”類型保存網頁，可以同時保存視頻
B．用HTTP語言可以描述網頁中的文本、圖像和超鏈接等元素
C．瀏覽器的“收藏夾”中保存了所收藏網頁的URL
D．訪問相同的網址，得到的網頁內容一定相同
3．（2020高三上·浙江月考）使用Access軟件設計一個數據表，存儲如圖所示的文章記錄數據。
文章ID 文章標題 文章內容 發布時間 審核
1 揚帆起航逐夢高考 (略) 2020- 07-31 待審核
2 慧心爾雅待展芳華 (略) 2020- 08-01 通過
3 選擇自己適合的路 (略) 2020-08-02 未通過
…… …… …… …… ……
注：因篇幅因素，表中省略了文章內容，該字段允許存儲學生日常習作(5000字以內)。
下列表格設計合理的是（　　）
A． B．
C． D．
4．（2020高三上·浙江月考）下列關于數制的說法，正確的是（　　）
A．二進制數1010011轉換為十六進制數是A3
B．二進制數110中的末位數碼0對應的權值是0
C．ASCII碼由128個代碼組成，碼值范圍為1~128
D．若二進制數1101去掉末位數碼1，則新數是原數的1\2
5．（2020高三上·浙江月考）用Photoshop軟件制作“紹興旅游”作品，如圖所示，下列說法正確的是（　　）
A．“如畫紹興"圖層設置了濾鏡效果
B．調換“如畫紹興”和“人文景觀"圖層的次序，會影響圖像效果
C．“如畫紹興”圖層創建了變形文字
D．選中“紹”字，執行修改字號命令僅將“紹”字變大
6．（2020高三上·浙江月考）一個未經壓縮的音頻文件，相關參數及選取狀態如圖所示。
則該文件執行裁剪命令后，該音頻文件的存儲容量約為（　　）
A．258KB B．602KB C．861KB D．881KB
7．（2021·浙江選考）x的范圍為(0 255)，下列選項中，與語句"n=x\128"功能相同的是（　　）
A．n=0 If x> 128 Then n= 1 B．n=0 If x<128 Then n=1
C．n= 1 If x<128 Then n=0 D．n=1 If x>128 Then n=0
8．（2020高三上·浙江月考）某算法的部分流程圖如圖所示，執行這部分流程，若輸人n值為35，k值為3，則輸出c的值為（　　）
A．35 B．62 C．90 D．93
9．（2020高三上·浙江月考）有如下VB程序段：
Dims As String, c As String, st As String
Dim n As Integer, i As Integer
s ="20zj20sx7"：n=0：st=""
For i=1 To Len(s)
c=Mid(s，i，1)
If c>= "a" And c<= "z" Then
st=Chr(Asc("a") *2+25-Asc(c))+st
Else
n=n*10+ Val(c)
End If
Next i
st =st+str(n)
執行該程序段后，變量st的值是（　　）
A．chqa 20207 B．cgpz 47 C．zpgc 20207 D．zjsx 47
10．（2020高三上·浙江月考）在字符串s中找連續最長不下降數字字符串長度max，如字符串“318714101223411624”連續最長不下降數字字符串為“012234”，其長度max為6，實現該功能的VB程序段如下：
s = "318714101223411624"
c=Mid(s, 1, 1)：i=1：max=0
For j=2 To Len(s)
If t> c Or j = Len(s) Then
End If
Next j
上述程序段中方框處可選語句如下：
①i=j
②t=c
③c = Mid(s, j, 1)
④If j-i>max Then max=j-i
則(1)(2)(3)(4)處語句依次為（　　）
A．③②④① B．②④③① C．②③④① D．③①④②
11．（2020高三上·浙江月考）有如下VB程序段：
a(1)=4：a(2)=5：a(3)=3：a(4)=1：a(5)=1：a(6)=5
s =0
For i=1 To 5
If a (i)t = a(i)：a(i) =a(i + 1)：a(i+1)=t
End If
s=s+a(i+ 1)
Next i
執行該程序段后，s的值是（　　）
A．10 B．11 C．18 D．19
12．（2020高三上·浙江月考）某對分查找算法的VB程序段如下：
Key = Val(Text1.Text)
i=1：j=10
Do While i<= j
m= (i+j)\ 2
s= s+Str(a(m)\ Key)
If a(m) > Key Then j= m- 1 Else i=m+1
Loop
Text2.Text = s
數組元素a(1)到a( 10)的值依次為“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中輸入待查找的整數，執行該程序段，則文本框Text2中顯示的內容可能的是（　　）
A．2 1 1 B．0 1 1 1
C．0 0 1 0 D．0 2 0 1
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·浙江月考）疫情期間學生在家進行網課學習，張老師對自己所帶的兩個班某節技術課的聽課情況進行了統計分析，如下圖a所示，請回答下列問題：
（1）單元格K4統計的是0301班在線時長率低于60%的學生人數，是使用COUNTIFS時計算得到的，并對K4：L5進行自動填充，K4單元格里的公式是　 　。
(提示：COUNTIFS函數用于計算多個區域中滿足給定條件的單元格的個數。例如：= COUNTIFS(F4：F83，"<60"，B4： B83，J5)表示求F4： F83區域內所選內容小于“60”且B4：B83區域內所選內容為“0302”的單元格數據，F列、G列均為百分數。)
（2）將工作表區域A3：H83的數據復制到新工作表，在新工作表中對“班級”和“總收看時長”進行篩選，如圖b和圖c所示，符合條件的篩選結果只有一項，原因是　 　。
（3）根據圖a數據，制作圖d，則該圖表的數據源是　 　。
14．（2020高三上·浙江月考）使用Flash軟件制作“魚牛的故事”動畫：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于創作需求分析的是　 　(多選，填字母：A .了解用戶的計算機應用水平/B .考慮作品創作及運行需要的硬件設施/C .確定獲取原始素材的方式/D .設計作品的主要界面/E .確定作品的發布方式)。
（2）測試該場景時，“魚”圖層內容在播放完第15幀后消失，為了使該圖層延續到45幀，下列操作可行的是 。(多選題，填字母)
A．選中“魚”圖層第16幀執行“清除關鍵幀”操作
B．選中“魚”圖層第45幀執行“插人關鍵幀”操作
C．刪除“魚”圖層第16幀
D．選中“魚”圖層第15幀執行“復制幀”操作，在第45幀執行“粘貼幀”操作
E．選中“魚”圖層第15幀執行“復制幀”操作，在第16幀執行“粘貼幀”操作
（3）“魚”圖層第1幀中的對象是完全透明的“魚兒”元件實例。測試當前場景時，第1幀到15幀沒有實現“魚兒”元件實例由完全透明到完全顯示的漸變動畫效果，要實現該效果，則在“魚”圖層第1幀中將“魚兒”實例的顏色Alpha值設為　 　%。
（4）刪除聲音圖層的第20幀到第45幀，對動畫整體音效 　 　(填：有/無)影響。
（5）單擊“replay”按鈕，跳轉到“第一幕”場景第1幀并開始播放，該按鈕的動作腳本命令是　 　。
15．（2020高三上·浙江月考）在一個整數序列中找第k大的數，若有相同的整數，則位置靠前的整數的名次靠前。如有整數序列為“10，13，12，13，15”，則第1大的數為15，在第5個位置，第2大的數為13，在第2個位置，第3大的數還是13，在第4個位置，第4大的數是12，在第3個位置，第5大的數是10，在第1個位置。
編寫一個VB程序，實現如下功能：程序啟動時產生n個1~20之間的隨機整數，在文本框
Text2中輸人整數k(k≤n)，單擊“查找"按鈕Command1后，在標簽Label1上顯示第k大的數及位置。程序運行界面如圖所示。
（1）下列對象不具有Caption屬性的是　 　(單選，填字母：mand1 /B .Form1 / C .Text1 /D .Label1)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const n= 10
Dima(1 To n) As Integer
Private Sub Form_ Load(　　)
'本過程產生n個1~20之間的隨機整數存數組a中，并在文本框Text1中顯示，代碼略
End Sub
Private Sub Command1_Click()
Dimi As Integer，key As Integer，c As Integer，k As Integer
Dim b(1 To 20) As Integer
　 　
For i= 1 To n
b(a(i)) = b(a(i)) +1
Next i
i= 20
Do While i> 1 And b(i) < k
　 　
i=i-1
Loop
　 　
Label3.Caption="第"+Str(k)+"大的數是"+Str( key)
c=0
For i=1 To n
If a(i) = key Then c= c+1
If c= Then Exit For
Next i
Label3.Caption =Label3.Caption + "，在第"+Str(i)+"位置"
End Sub
（3）程序代碼中的加框處代碼有誤，請改正。
16．（2020高三上·浙江月考）學校餐廳實施套餐預訂制度來提升窗口打菜效率，縮短學生排隊時間。每周學校都會提供“ABCD”四種套餐供學生選擇，然后按每種套餐的預定數量安排特定的點餐窗口(混合套餐窗口盡量少，一人只能預訂一份套餐)。
安排方法如下：先計算出每個窗口的平均售賣套餐數量num=套餐總需求量(n)\窗口數(k)，然后按平均套餐數量num順次安排“ABCD"四種套餐(首輪每個窗口出售一種套餐，數量為num)，當某種套餐需求數量或安排后剩余需求數量小于套餐平均數num時，待首輪安排結束后安排在混合窗口。如第一輪安排單-套餐窗口編號為1到b1，那么混合窗口編號為b1+1到k，為了均衡混合窗口的套餐種數，混合窗口從窗口編號k到b1+1按各類套餐剩余需求數由大到小安排一輪(安排k-b1種套餐)，然后從窗口編號b1+1到k按各套餐剩余數量由大到小順次安排，當窗口安排套餐數量達到num時，剩余套餐換至下一窗口繼續安排，最后一個窗口(k窗口)人數允許大于num。
編寫VB程序，實現窗口套餐分配功能：點擊“載人口點某窗口安排套餐預訂信息”按鈕Command1后，將預訂套餐總人數顯示在文本框Text1中，各套餐預訂人數顯示在列表框List1中，在文本框Text2中輸入點菜窗口數，然后點擊“窗口安排方案”按鈕Command2，在列表框List2中顯示點菜窗口安排結果。程序運行界面如圖所示。
（1）“ABCD”套餐預訂人數如程序運行界面所示，當窗口數設置為“8”時，最后一個窗口(8號窗口)安排的套餐為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To4) As Integer'順次存儲“ABCD"四種套餐預訂人數
Dim b(1 To 20) As Integer'存儲各窗口安排套餐數量
Dim c(1 To 20) As String '存儲窗口套餐方案
Dim n As Integer
Private Sub Command1_Click()
'載人套餐預訂信息，預訂人數存人n，各套餐預訂數量存人a數組，
代碼略
End Sub
Private Sub Command2_ Click()
Dim k As
Integer，num As Integer， b1 As Integer
Dim i As
Integer，j As Integer， t As Integer， t1 As Integer
Dims As
String
Dim d(1 To
4) As Integer
s =
"ABCD"
k = Text2.Text
num = n\k '計算各窗口平均排隊人數
b1= 1
For i=1 To
4
Do
While a(i)：>=num
c(b1) = Mid(s， i， 1)
b(b1) = num
a(i) = a(i)-num
b1=b1+1
Loop
　 　
Next i
b1=b1-1
For i = 1
To 4
For j=i+1 To 4
If a(i) < a(j) Then
t=a(i)：a(i)=a(j)：a(j)=t
t=d(i)：d(i)=d(j)：d(j)=t
End If
Next j
Next i
t=k
For i=1 To
k-b1 '按各類套餐剩余需求數從大到小安排一輪
b(t)
= a(i)
c(t)
= Mid(s, d(i), 1)
a(i) = 0
t=t-1
Next i
t =i
For i=b1 To
k
Do While b(i)num*(k-1)+b(k)<>n
b(i) = b(i) 十a(t)
　 　
a(t) = 0
t=t+1
Loop
If b(i)>num And i<>k Then
t=t-1
　 　
b(i) = num
End If
Next i
List2.AddItem
"套餐數量”
For i =1
To k
List2.AddItem c(i) + ""+ Str(b(i))
Next i
End Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征；人工智能的應用
2．【答案】C
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索；網頁標記語言及基本組成
3．【答案】A
【知識點】數據表的創建
4．【答案】D
【知識點】進制及數制轉換
5．【答案】D
【知識點】圖層及圖層的基本操作
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】分支結構語句及程序實現
【解析】【解答】大于等于128為1，小于128為0，故答案選C。
【分析】本題考查的是對語句的理解。
8．【答案】D
【知識點】流程圖識讀
9．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
10．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】A
【知識點】排序算法及程序實現
12．【答案】B
【知識點】查找算法及程序實現
13．【答案】（1）=COUNTIFS(F$4：F$83，"<60"， $B$4： $B$83， $J4)
（2）兩次篩選間是“與”的關系，表示總收看時長最大的三項中符合班級為0301的只有一項
（3）J3：J5，L3：L5或J4：J5，L4：L5
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．【答案】（1）BE
（2）A；E
（3）0
（4）無
（5）on( release) { gotoAndPlay(“第一幕” ，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或其他等價表述
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．【答案】（1）C
（2）k = Val(Text2.Text)；b(i-1)=b(i)+b(i-1)；key=i
（3）k-b(key+1)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）DBC
（2）d(i) = i；c(i) = c(i) + Mid(s， d(t)，1)；a(t) = b(i) -num
【知識點】排序算法及程序實現
1 / 1浙江省2021屆高三上學期信息技術9月百校聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)
1．（2020高三上·浙江月考）下列有關信息與信息處理的說法，不正確的是（　　）
A．“有一千個讀者就有一千個哈姆雷特”，說明了信息可以被加工處理
B．掃描商品條碼獲取商品信息，說明信息可以脫離載體而存在
C．二維碼過一段時間會失效，說明信息具有時效性
D．刷臉支付屬于人工智能應用
【答案】B
【知識點】信息及其特征；人工智能的應用
2．（2020高三上·浙江月考）下列有關網頁與瀏覽器的說法，正確的是（　　）
A．在E瀏覽器中，以“網頁，全部(*,Htm,*.html)”類型保存網頁，可以同時保存視頻
B．用HTTP語言可以描述網頁中的文本、圖像和超鏈接等元素
C．瀏覽器的“收藏夾”中保存了所收藏網頁的URL
D．訪問相同的網址，得到的網頁內容一定相同
【答案】C
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索；網頁標記語言及基本組成
3．（2020高三上·浙江月考）使用Access軟件設計一個數據表，存儲如圖所示的文章記錄數據。
文章ID 文章標題 文章內容 發布時間 審核
1 揚帆起航逐夢高考 (略) 2020- 07-31 待審核
2 慧心爾雅待展芳華 (略) 2020- 08-01 通過
3 選擇自己適合的路 (略) 2020-08-02 未通過
…… …… …… …… ……
注：因篇幅因素，表中省略了文章內容，該字段允許存儲學生日常習作(5000字以內)。
下列表格設計合理的是（　　）
A． B．
C． D．
【答案】A
【知識點】數據表的創建
4．（2020高三上·浙江月考）下列關于數制的說法，正確的是（　　）
A．二進制數1010011轉換為十六進制數是A3
B．二進制數110中的末位數碼0對應的權值是0
C．ASCII碼由128個代碼組成，碼值范圍為1~128
D．若二進制數1101去掉末位數碼1，則新數是原數的1\2
【答案】D
【知識點】進制及數制轉換
5．（2020高三上·浙江月考）用Photoshop軟件制作“紹興旅游”作品，如圖所示，下列說法正確的是（　　）
A．“如畫紹興"圖層設置了濾鏡效果
B．調換“如畫紹興”和“人文景觀"圖層的次序，會影響圖像效果
C．“如畫紹興”圖層創建了變形文字
D．選中“紹”字，執行修改字號命令僅將“紹”字變大
【答案】D
【知識點】圖層及圖層的基本操作
6．（2020高三上·浙江月考）一個未經壓縮的音頻文件，相關參數及選取狀態如圖所示。
則該文件執行裁剪命令后，該音頻文件的存儲容量約為（　　）
A．258KB B．602KB C．861KB D．881KB
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2021·浙江選考）x的范圍為(0 255)，下列選項中，與語句"n=x\128"功能相同的是（　　）
A．n=0 If x> 128 Then n= 1 B．n=0 If x<128 Then n=1
C．n= 1 If x<128 Then n=0 D．n=1 If x>128 Then n=0
【答案】C
【知識點】分支結構語句及程序實現
【解析】【解答】大于等于128為1，小于128為0，故答案選C。
【分析】本題考查的是對語句的理解。
8．（2020高三上·浙江月考）某算法的部分流程圖如圖所示，執行這部分流程，若輸人n值為35，k值為3，則輸出c的值為（　　）
A．35 B．62 C．90 D．93
【答案】D
【知識點】流程圖識讀
9．（2020高三上·浙江月考）有如下VB程序段：
Dims As String, c As String, st As String
Dim n As Integer, i As Integer
s ="20zj20sx7"：n=0：st=""
For i=1 To Len(s)
c=Mid(s，i，1)
If c>= "a" And c<= "z" Then
st=Chr(Asc("a") *2+25-Asc(c))+st
Else
n=n*10+ Val(c)
End If
Next i
st =st+str(n)
執行該程序段后，變量st的值是（　　）
A．chqa 20207 B．cgpz 47 C．zpgc 20207 D．zjsx 47
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
10．（2020高三上·浙江月考）在字符串s中找連續最長不下降數字字符串長度max，如字符串“318714101223411624”連續最長不下降數字字符串為“012234”，其長度max為6，實現該功能的VB程序段如下：
s = "318714101223411624"
c=Mid(s, 1, 1)：i=1：max=0
For j=2 To Len(s)
If t> c Or j = Len(s) Then
End If
Next j
上述程序段中方框處可選語句如下：
①i=j
②t=c
③c = Mid(s, j, 1)
④If j-i>max Then max=j-i
則(1)(2)(3)(4)處語句依次為（　　）
A．③②④① B．②④③① C．②③④① D．③①④②
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2020高三上·浙江月考）有如下VB程序段：
a(1)=4：a(2)=5：a(3)=3：a(4)=1：a(5)=1：a(6)=5
s =0
For i=1 To 5
If a (i)t = a(i)：a(i) =a(i + 1)：a(i+1)=t
End If
s=s+a(i+ 1)
Next i
執行該程序段后，s的值是（　　）
A．10 B．11 C．18 D．19
【答案】A
【知識點】排序算法及程序實現
12．（2020高三上·浙江月考）某對分查找算法的VB程序段如下：
Key = Val(Text1.Text)
i=1：j=10
Do While i<= j
m= (i+j)\ 2
s= s+Str(a(m)\ Key)
If a(m) > Key Then j= m- 1 Else i=m+1
Loop
Text2.Text = s
數組元素a(1)到a( 10)的值依次為“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中輸入待查找的整數，執行該程序段，則文本框Text2中顯示的內容可能的是（　　）
A．2 1 1 B．0 1 1 1
C．0 0 1 0 D．0 2 0 1
【答案】B
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·浙江月考）疫情期間學生在家進行網課學習，張老師對自己所帶的兩個班某節技術課的聽課情況進行了統計分析，如下圖a所示，請回答下列問題：
（1）單元格K4統計的是0301班在線時長率低于60%的學生人數，是使用COUNTIFS時計算得到的，并對K4：L5進行自動填充，K4單元格里的公式是　 　。
(提示：COUNTIFS函數用于計算多個區域中滿足給定條件的單元格的個數。例如：= COUNTIFS(F4：F83，"<60"，B4： B83，J5)表示求F4： F83區域內所選內容小于“60”且B4：B83區域內所選內容為“0302”的單元格數據，F列、G列均為百分數。)
（2）將工作表區域A3：H83的數據復制到新工作表，在新工作表中對“班級”和“總收看時長”進行篩選，如圖b和圖c所示，符合條件的篩選結果只有一項，原因是　 　。
（3）根據圖a數據，制作圖d，則該圖表的數據源是　 　。
【答案】（1）=COUNTIFS(F$4：F$83，"<60"， $B$4： $B$83， $J4)
（2）兩次篩選間是“與”的關系，表示總收看時長最大的三項中符合班級為0301的只有一項
（3）J3：J5，L3：L5或J4：J5，L4：L5
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．（2020高三上·浙江月考）使用Flash軟件制作“魚牛的故事”動畫：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于創作需求分析的是　 　(多選，填字母：A .了解用戶的計算機應用水平/B .考慮作品創作及運行需要的硬件設施/C .確定獲取原始素材的方式/D .設計作品的主要界面/E .確定作品的發布方式)。
（2）測試該場景時，“魚”圖層內容在播放完第15幀后消失，為了使該圖層延續到45幀，下列操作可行的是 。(多選題，填字母)
A．選中“魚”圖層第16幀執行“清除關鍵幀”操作
B．選中“魚”圖層第45幀執行“插人關鍵幀”操作
C．刪除“魚”圖層第16幀
D．選中“魚”圖層第15幀執行“復制幀”操作，在第45幀執行“粘貼幀”操作
E．選中“魚”圖層第15幀執行“復制幀”操作，在第16幀執行“粘貼幀”操作
（3）“魚”圖層第1幀中的對象是完全透明的“魚兒”元件實例。測試當前場景時，第1幀到15幀沒有實現“魚兒”元件實例由完全透明到完全顯示的漸變動畫效果，要實現該效果，則在“魚”圖層第1幀中將“魚兒”實例的顏色Alpha值設為　 　%。
（4）刪除聲音圖層的第20幀到第45幀，對動畫整體音效 　 　(填：有/無)影響。
（5）單擊“replay”按鈕，跳轉到“第一幕”場景第1幀并開始播放，該按鈕的動作腳本命令是　 　。
【答案】（1）BE
（2）A；E
（3）0
（4）無
（5）on( release) { gotoAndPlay(“第一幕” ，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或其他等價表述
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．（2020高三上·浙江月考）在一個整數序列中找第k大的數，若有相同的整數，則位置靠前的整數的名次靠前。如有整數序列為“10，13，12，13，15”，則第1大的數為15，在第5個位置，第2大的數為13，在第2個位置，第3大的數還是13，在第4個位置，第4大的數是12，在第3個位置，第5大的數是10，在第1個位置。
編寫一個VB程序，實現如下功能：程序啟動時產生n個1~20之間的隨機整數，在文本框
Text2中輸人整數k(k≤n)，單擊“查找"按鈕Command1后，在標簽Label1上顯示第k大的數及位置。程序運行界面如圖所示。
（1）下列對象不具有Caption屬性的是　 　(單選，填字母：mand1 /B .Form1 / C .Text1 /D .Label1)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const n= 10
Dima(1 To n) As Integer
Private Sub Form_ Load(　　)
'本過程產生n個1~20之間的隨機整數存數組a中，并在文本框Text1中顯示，代碼略
End Sub
Private Sub Command1_Click()
Dimi As Integer，key As Integer，c As Integer，k As Integer
Dim b(1 To 20) As Integer
　 　
For i= 1 To n
b(a(i)) = b(a(i)) +1
Next i
i= 20
Do While i> 1 And b(i) < k
　 　
i=i-1
Loop
　 　
Label3.Caption="第"+Str(k)+"大的數是"+Str( key)
c=0
For i=1 To n
If a(i) = key Then c= c+1
If c= Then Exit For
Next i
Label3.Caption =Label3.Caption + "，在第"+Str(i)+"位置"
End Sub
（3）程序代碼中的加框處代碼有誤，請改正。
【答案】（1）C
（2）k = Val(Text2.Text)；b(i-1)=b(i)+b(i-1)；key=i
（3）k-b(key+1)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
16．（2020高三上·浙江月考）學校餐廳實施套餐預訂制度來提升窗口打菜效率，縮短學生排隊時間。每周學校都會提供“ABCD”四種套餐供學生選擇，然后按每種套餐的預定數量安排特定的點餐窗口(混合套餐窗口盡量少，一人只能預訂一份套餐)。
安排方法如下：先計算出每個窗口的平均售賣套餐數量num=套餐總需求量(n)\窗口數(k)，然后按平均套餐數量num順次安排“ABCD"四種套餐(首輪每個窗口出售一種套餐，數量為num)，當某種套餐需求數量或安排后剩余需求數量小于套餐平均數num時，待首輪安排結束后安排在混合窗口。如第一輪安排單-套餐窗口編號為1到b1，那么混合窗口編號為b1+1到k，為了均衡混合窗口的套餐種數，混合窗口從窗口編號k到b1+1按各類套餐剩余需求數由大到小安排一輪(安排k-b1種套餐)，然后從窗口編號b1+1到k按各套餐剩余數量由大到小順次安排，當窗口安排套餐數量達到num時，剩余套餐換至下一窗口繼續安排，最后一個窗口(k窗口)人數允許大于num。
編寫VB程序，實現窗口套餐分配功能：點擊“載人口點某窗口安排套餐預訂信息”按鈕Command1后，將預訂套餐總人數顯示在文本框Text1中，各套餐預訂人數顯示在列表框List1中，在文本框Text2中輸入點菜窗口數，然后點擊“窗口安排方案”按鈕Command2，在列表框List2中顯示點菜窗口安排結果。程序運行界面如圖所示。
（1）“ABCD”套餐預訂人數如程序運行界面所示，當窗口數設置為“8”時，最后一個窗口(8號窗口)安排的套餐為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To4) As Integer'順次存儲“ABCD"四種套餐預訂人數
Dim b(1 To 20) As Integer'存儲各窗口安排套餐數量
Dim c(1 To 20) As String '存儲窗口套餐方案
Dim n As Integer
Private Sub Command1_Click()
'載人套餐預訂信息，預訂人數存人n，各套餐預訂數量存人a數組，
代碼略
End Sub
Private Sub Command2_ Click()
Dim k As
Integer，num As Integer， b1 As Integer
Dim i As
Integer，j As Integer， t As Integer， t1 As Integer
Dims As
String
Dim d(1 To
4) As Integer
s =
"ABCD"
k = Text2.Text
num = n\k '計算各窗口平均排隊人數
b1= 1
For i=1 To
4
Do
While a(i)：>=num
c(b1) = Mid(s， i， 1)
b(b1) = num
a(i) = a(i)-num
b1=b1+1
Loop
　 　
Next i
b1=b1-1
For i = 1
To 4
For j=i+1 To 4
If a(i) < a(j) Then
t=a(i)：a(i)=a(j)：a(j)=t
t=d(i)：d(i)=d(j)：d(j)=t
End If
Next j
Next i
t=k
For i=1 To
k-b1 '按各類套餐剩余需求數從大到小安排一輪
b(t)
= a(i)
c(t)
= Mid(s, d(i), 1)
a(i) = 0
t=t-1
Next i
t =i
For i=b1 To
k
Do While b(i)num*(k-1)+b(k)<>n
b(i) = b(i) 十a(t)
　 　
a(t) = 0
t=t+1
Loop
If b(i)>num And i<>k Then
t=t-1
　 　
b(i) = num
End If
Next i
List2.AddItem
"套餐數量”
For i =1
To k
List2.AddItem c(i) + ""+ Str(b(i))
Next i
End Sub
【答案】（1）DBC
（2）d(i) = i；c(i) = c(i) + Mid(s， d(t)，1)；a(t) = b(i) -num
【知識點】排序算法及程序實現
1 / 1

展開更多......

收起↑