資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省山水聯盟2021-2022學年高三上學期信息技術12月聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高三上·浙江月考）下列關于信息和信息技術描述不正確的是（　　）
A．典型的近代信息技術包括攝影技術、電影技術、廣播和電視、電報和電話等
B．古代用烽火臺來表示與傳遞邊防警示信號屬于利用設備來獲取信息
C．賀知章的名詩《回鄉偶書》廣為流傳，說明信息具有時效性
D．信息表達的規范化就是表達信息時要遵照一定的標準，如POP3協議就是一種規范
【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息獲取的環節與方法；信息表達要求
2．（2021高三上·浙江月考）用瀏覽器打開浙江省教育廳官網(http：//jyt.zj./index.html)，可在頁面上瀏覽各種圖文并茂的教育新聞，下列描述不正確的是（　　）
A．當前網頁的URL是http：//jyt.zj./index.html
B．該頁面是通過HTTP協議從網站服務器傳輸到瀏覽器
C．在該網站上找到的信息具有較高的參考價值
D．網頁上呈現的所有內容均存儲在index.html文件中
【答案】D
【知識點】網址與統一資源定位器
3．（2021高三上·浙江月考）用Access軟件編輯某數據庫，其設計視圖的部分界面如下圖所示，下列說法正確的是（　　）
A．當前數據表名為“志愿者信息.accdb '
B．可在“出生年月”字段輸入“1998年9月1日10時”
C．可在“性別”字段輸入“是”或“否”
D．刪除ID字段后，不可以通過“撤銷”操作恢復
【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；字段的數據類型
4．（2021高三上·浙江月考）一個兩位的十六進制正整數n，其末位是“P”，下列說法正確的是（　　）
A．n*2mod8的結果是6
B．去掉末位F，所得新數等同于n/16
C．n+1結果對應一個3位十六進制數
D．無法確定n是奇數還是偶數
【答案】A
【知識點】進制及數制轉換
5．（2021高三上·浙江月考）用photoshop編輯某作品，部分編輯界面如下圖所示，下列說法正確的是（　　）
A．可以將“快樂街舞”圖層的圖層樣式復制粘貼到“背景”圖層
B．刪除“背景”圖層，左下角“文檔：2.02 M/6.01 M"中2.02將變小
C．在當前狀態下執行復制操作，會出現“所選區域是空的”錯誤提示
D．當前狀態下可以將畫布中右邊的人移動到中間人物的左邊
【答案】C
【知識點】圖層及圖層的基本操作
6．（2021高三上·浙江月考）一個時長為1分鐘、采樣頻率為44.1KHz，量化位數16bit的立體聲Wave格式音頻文件，按10：1的壓縮比壓縮為MP3格式后的文件大小約為（　　）
A．1MB B．126KB C．5MB D．10MB
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2021高三上·浙江月考）下列VB表達式中，與表達式x=5>3計算結果相同的是（　　）
A．x=not 4>3 and 5>3 B．x=not 4>3 or 5>3
C．x=not (4>3 or 5>3) D．x=4<3 or 5>3 and 4>5
【答案】B
【知識點】運算符、基本運算與表達式
8．（2021高三上·浙江月考）某算法的部分流程圖如圖所示，執行這部分流程后，下列描述正確的是（　　）
A．輸入56和13，最后r的值為1
B．輸入56和13，r<>0判斷了2次
C．輸入56和13，輸出1
D．該算法的功能為，用輾轉相除法求m、n的最小公倍數
【答案】C
【知識點】流程圖識讀
9．（2021高三上·浙江月考）下述vb程序段用以實現：在數組a的指定位置k (1-n范圍)插入數據m。
i=n+1
Do While i>k
①
②
Loop
③
橫線處的語句由以下三部分組成
①a(i)=m
②i=i-1
③a(i) = a(i-1)
下列選項中，代碼順序正確的是（　　）
A．①②③ B．②③① C．②①③ D．③②①
【答案】D
【知識點】循環結構語句及程序實現
10．（2021高三上·浙江月考）下列選項中，不能實現表達式1-1/3+1/5-1/7+1/9- 1/11計算的是（　　）
A Sum=0 For i=1 To 12 Step 2 Sum =Sum+1/i Sum =-Sum Next i B Sum=1：t=1 For i=3 To 11 Step 2 Sum= Sum+t/i t =-t Next i
C Sum=0 For i=1 To 11 Step 4 Sum =Sum+1/i Sum =Sum-1/(i + 2) Next i D Sum=1 For i=3 To 11 Step 2 t=(-1)^ (i\2) Sum= Sum+t/i Next i
A．A B．B C．C D．D
【答案】B
【知識點】循環結構語句及程序實現
11．（2021高三上·浙江月考）某VB程序段如下：
S=””
For i=2 to 4
For j=8 to i+1 step -1
If d(j) < d(j-1) then
t=d(j)：d(j)=d(j-1)：d(j-1)=t
End if
Next j
s=s+" "+d(i)
Next i
Label1. caption=s，
若數組元素d(1)到d(8)的數據依次為：
"12"，"7"，"18”，"13"，”9"，"17"，"6"，"23"，運行該程序段后，標簽label1中顯示的內容是(　　)
A．7 9 13 B．6 7 9
C．13 17 18 D．12 13 17
【答案】C
【知識點】排序算法及程序實現
12．（2021高三上·浙江月考）有如下VB程序段：
i = 0：j=9：x= 0：key= 75
Do While i<=j
m= Int((i+j)/2)
If d(m)=key Then x=m
If d(m)〉key Then i= m+ 1 Elsej=m- 1
Loop
數組元素a(0)到a(9)的值依次為：99，94，90，90，87，75，75，75，63，52執行該程序段，以下變量正確的是(　　)
A．x=5 B．m=6 C．i=6 D．j=5
【答案】A
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）用Excel軟件對部分省市60歲以上老人健康數據進行處理，如圖a所示：
（1）表格中E列、G列、I列數據都是計算所得。計算過程為：在E3單元格中輸入公式　 　，自動填充到E18單元格，然后將E3單元格公式復制到G3單元格，自動填充到G18單元格，用同樣的方法計算得到I列數據。(注： 健康人口占比=健康人口/60歲及以上人口數X100，G列和I列的占比計算也是基于“60 歲及以上人口”)
（2）用圖a所示數據創建圖b所示圖表，則該圖表所用的數據區域為　 　。
（3）對圖a所示工作表中的數據進行處理，下列說法正確的有 (多選)
A．對表格數據按“60歲及以上人口”降序排序，圖b的圖表會相應變化
B．要實現將各省市數據按“健康人口占比”降序排序，可選擇E4：E18區域進行排序
C．刪圖a表格的第三行，則C列單元格會顯示#DIV/0！錯誤提示
D．對“60歲及以上人口”和“健康人口占比”列都進行最大3項篩選，最后顯示在表格中的只有山東的數據
【答案】（1）=D3/ $B3* 100或等價答案
（2）A2， A6：A8， D2， D6：D8， F2， F6：F8或等價答案
（3）A；D
【知識點】表格數據的處理與計算
14．（2021高三上·浙江月考）小慶使用Flash軟件制作主題為“快樂街舞”的多媒體作品，如圖a所示。
請回答下列問題：
（1）多媒體作品的設計需要經過需求分析、規劃設計和腳本編寫，下列說法正確的是 ；
A．確定該作品主題為“快樂街舞”屬于創作需求分析
B．該作品要求使用Flash軟件制作屬于應用需求分析
C．作品劃分為start、main、end三個主要界面屬于結構設計
D．制作腳本可以作為多媒體作品制作的直接依據
E．編寫制作腳本是腳本編寫的最后一步
（2）測試影片，首先播放的場景為　 　(填場景名)，“彈幕二”圖層實現文字“酷！ ！ ！”從右往左邊移動的動畫效果，其動畫類型是　 　(選填：逐幀動畫/形狀補間/動畫補間)
（3）“跳舞的人”圖層使用庫中“跳舞”影片剪輯元件，實現一段人物跳街舞的動畫效果，“跳舞”影片剪輯元件時間軸如圖b所示。測試影片發現，人物的舞蹈動畫只持續了約2秒時間，2秒后人物靜止不動，可能的原因是　 　。
（4）“掌聲”圖層第25幀屬性如圖c所示，要實現掌聲持續2秒結束，下列操作可行的是 (多選，填字母)
A．在“掌聲”圖層的第48幀插入關鍵幀
B．選中“掌聲”圖層第48幀，添加腳本StopAllSounds() ；
C．選中“掌聲”圖層的第48-60幀，執行刪除幀操作
D．在“觀眾”圖層第48幀上添加腳本Stop("掌聲2. wav")；
【答案】（1）A；C；D
（2）start；動畫補間
（3）在“跳舞”元件“圖層1”圖層的最后幀上有stop() ；動作腳本或等價答案
（4）A；C
【知識點】多媒體作品的規劃和設計；動畫的類型；元件的類型與應用
15．（2021高三上·浙江月考）某運動會100米比賽的晉級規則是根據個人年度最好成績分組，采用交叉排序法，把成績好的隊員分開到各個小組，保證最優秀的隊員能進入最后的決賽。100米比賽分兩輪進行：預賽和決賽。預賽：共三個小組，每組8名運動員，取各組的前兩名再從剩下18名運動員中取成績最好的兩名共8名進入決賽。決賽跑道分配規則是按預賽成績的第1名到第8名分別對應第4、5、3、6、2、7、1、8跑道。某同學編寫VB程序實現以下功能，點擊“決賽名單”按鈕將在Listl中顯示姓名、預賽成績和決賽的跑道。程序運行界面如圖所示。請回答下列問題：
（1）根據程序界面和代碼，“決賽名單”按鈕的“名稱”屬性值是　 　。
（2）在程序劃線處填入合適代碼
Dim Group_ score(0 To 24) As Single
Dim Group _name(1 To 24) As String
Dim flag(1 To 24) As Integer
Dim Finals_ name(1 To 8) As String '參加決賽名單
Dim Finals_ score(1 To 8) As Single '參加決賽的預賽成績
Dim First As Integer， second1 As Integer
Private Sub Form Load ()
'讀取三個小組的運動員姓名和預賽成績(不存在相同成績)，分別存放在Group_ name
'和Group_ score 數組，其中Group_ name(1) 到Group_ name(8) 、Group_ score(1) 到Group_ score (8)
'是第1小組運動員的姓名和成績。以此類推存放第2、3組的數據，并且對flag數組
'的各元素賦初值為0。代碼略
End Sub
Private Sub Comd1_Click (　　)
Dim i As Integer， j As Integer， Left As Integer， Right As Integer
Dim Temp As Single ，Name As String ， runway As String
runway = "45362718”
Group_ score(0) = 1000
For i=1 To 3
Call search(i， 8)
Finals_ score(2 * i - 1) = Group_ score (First)： Finals_ name (2* i- 1) = Group_ _name (First)
Finals_ score(2 * i) = Group_ score (second1)： Finals_ name(2 *i) = Group_ name (second1)
Next i
Call 　 　
Finals_ score(7) = Group_ score (First) ：Finals_ name(7) =Group_ name (First)
Finals_ score(8) = Group_ score (secondl)：Finals_ name(8) =Group_ name (second1)
For i=3 To 8
Left = 1
Right = 　 　
Temp = Finals_ score(i) ： Name = Finals_ name(i)
Do While Left <= Right
m=(Left+Right)\2
If Finals_ score(i) < Finals_ score(m) Then Right = m- 1
Else Left=m+ 1
Loop
For 　 　
Finals_ score(j) = Finals_ score(j- 1) ： Finals_ name (j)= Finals_ name(j - 1)
Next j
Finals_ score(Left) = Temp ：
Finals_ name(Left) = Name
Next i
For i=1 To 8
List1. AddItem Finals_ name(i) +””+ Str(Finals_ score(i))+””+ Mid(runway， i， 1)
Next i
End Sub
Private Sub search(ByVal a As Integer， ByVal b As Integer)
Dim j As Integer
First=0：second1=0
For j =
If Group_ score(j) < Group_score(First) And flag(j) = 0 Then
second1 = First
First = j
ElseIf Group_ score(j) < Group_ score (secondl) And flag(j) =0 Then
second1 = j
End If
Next j
flag(First) = 1： flag(second1) = 1
End Sub
（3）加框處代碼有錯，請改正
【答案】（1）Comd1
（2）search(1，24)；i-1；j=i to Left+1 step -1 或 j=i to Left step -1或其他等價答案
（3） (a- 1)*b+1 To a*b或(a-1)*8+1To (a-1) *8 +b或其他等價答案
【知識點】排序算法及程序實現
16．（2021高三上·浙江月考）國際乒聯現任主席自從上任以來就立志于推行一系列改革，其中11分制改革引起了很大的爭議，有一部分球員因為無法適應新規則只能選擇退役。小明就是其中一位，他退役之后走上了乒乓球研究工作，為分析11分制和21分制對選手的不同影響，編寫了如下VB程序。在Text1中輸入比賽記錄(其中w表示小明獲得一分，f表示對手獲得一-分)最終運行界面如第16題圖，發現21分制確實對小明這種慢熱型的選手有利：
（1）如果記錄是wwfffffffffwfwwfwwfwfwffffffwwwwfffwf， 請問11分制比賽的第二局小明與對手的比分是　 　(注：當任一方得分大于等于11分，且領先對方2分及以上，領先一方贏一局)
（2）在程序劃線處填入合適代碼
Private Sub Command2_ Click()
Dim sp As String， s As String
Dim a(1 To 1000) As Integer
Dim b(1 To 100) As Integer
Dim c(1 To 100) As Integer
Dim i As Integer， j As Integer
Dim n As Integer， f1 As Integer
Dim f2 As Integer， h1 As Integer
Dim k As Integer， x As Integer
'對數組a賦初值為0，代碼略
s = Text1.Text： j = 1： k=1： x=0
For i=1 To Len(s)
If Mid(s，i，1)="w" Then a(i)=1
Next i
　 　
For i=1Ton
If a(i)=1 Then f1=f1+1 Else f2=f2+1
H1=h1+a(i)
　 　
If heck(f1， f2， 11) Then
b(j)=f1：b(j+1)=f2：j=j+2
f1 =0：f2= C
End If
If check(h1， h2，21) Then
c(k) = h1：c(k+1)=h2：k=k+2
h1=0：x=i
End If
Next i
'輸出各局比分代碼略
End Sub
Function check (ByVal dl As Integer， ByVal d2 As Integer， fz As Integer) As Boolean
check = False
If 　 　Then check = True
End Function
【答案】（1）11：13
（2）n=len(s)；h2=i-x-h1；abs(d1-d2)>=2 and (d1>=fz or d2>=fz) 或其他等價答案
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省山水聯盟2021-2022學年高三上學期信息技術12月聯考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2021高三上·浙江月考）下列關于信息和信息技術描述不正確的是（　　）
A．典型的近代信息技術包括攝影技術、電影技術、廣播和電視、電報和電話等
B．古代用烽火臺來表示與傳遞邊防警示信號屬于利用設備來獲取信息
C．賀知章的名詩《回鄉偶書》廣為流傳，說明信息具有時效性
D．信息表達的規范化就是表達信息時要遵照一定的標準，如POP3協議就是一種規范
2．（2021高三上·浙江月考）用瀏覽器打開浙江省教育廳官網(http：//jyt.zj./index.html)，可在頁面上瀏覽各種圖文并茂的教育新聞，下列描述不正確的是（　　）
A．當前網頁的URL是http：//jyt.zj./index.html
B．該頁面是通過HTTP協議從網站服務器傳輸到瀏覽器
C．在該網站上找到的信息具有較高的參考價值
D．網頁上呈現的所有內容均存儲在index.html文件中
3．（2021高三上·浙江月考）用Access軟件編輯某數據庫，其設計視圖的部分界面如下圖所示，下列說法正確的是（　　）
A．當前數據表名為“志愿者信息.accdb '
B．可在“出生年月”字段輸入“1998年9月1日10時”
C．可在“性別”字段輸入“是”或“否”
D．刪除ID字段后，不可以通過“撤銷”操作恢復
4．（2021高三上·浙江月考）一個兩位的十六進制正整數n，其末位是“P”，下列說法正確的是（　　）
A．n*2mod8的結果是6
B．去掉末位F，所得新數等同于n/16
C．n+1結果對應一個3位十六進制數
D．無法確定n是奇數還是偶數
5．（2021高三上·浙江月考）用photoshop編輯某作品，部分編輯界面如下圖所示，下列說法正確的是（　　）
A．可以將“快樂街舞”圖層的圖層樣式復制粘貼到“背景”圖層
B．刪除“背景”圖層，左下角“文檔：2.02 M/6.01 M"中2.02將變小
C．在當前狀態下執行復制操作，會出現“所選區域是空的”錯誤提示
D．當前狀態下可以將畫布中右邊的人移動到中間人物的左邊
6．（2021高三上·浙江月考）一個時長為1分鐘、采樣頻率為44.1KHz，量化位數16bit的立體聲Wave格式音頻文件，按10：1的壓縮比壓縮為MP3格式后的文件大小約為（　　）
A．1MB B．126KB C．5MB D．10MB
7．（2021高三上·浙江月考）下列VB表達式中，與表達式x=5>3計算結果相同的是（　　）
A．x=not 4>3 and 5>3 B．x=not 4>3 or 5>3
C．x=not (4>3 or 5>3) D．x=4<3 or 5>3 and 4>5
8．（2021高三上·浙江月考）某算法的部分流程圖如圖所示，執行這部分流程后，下列描述正確的是（　　）
A．輸入56和13，最后r的值為1
B．輸入56和13，r<>0判斷了2次
C．輸入56和13，輸出1
D．該算法的功能為，用輾轉相除法求m、n的最小公倍數
9．（2021高三上·浙江月考）下述vb程序段用以實現：在數組a的指定位置k (1-n范圍)插入數據m。
i=n+1
Do While i>k
①
②
Loop
③
橫線處的語句由以下三部分組成
①a(i)=m
②i=i-1
③a(i) = a(i-1)
下列選項中，代碼順序正確的是（　　）
A．①②③ B．②③① C．②①③ D．③②①
10．（2021高三上·浙江月考）下列選項中，不能實現表達式1-1/3+1/5-1/7+1/9- 1/11計算的是（　　）
A Sum=0 For i=1 To 12 Step 2 Sum =Sum+1/i Sum =-Sum Next i B Sum=1：t=1 For i=3 To 11 Step 2 Sum= Sum+t/i t =-t Next i
C Sum=0 For i=1 To 11 Step 4 Sum =Sum+1/i Sum =Sum-1/(i + 2) Next i D Sum=1 For i=3 To 11 Step 2 t=(-1)^ (i\2) Sum= Sum+t/i Next i
A．A B．B C．C D．D
11．（2021高三上·浙江月考）某VB程序段如下：
S=””
For i=2 to 4
For j=8 to i+1 step -1
If d(j) < d(j-1) then
t=d(j)：d(j)=d(j-1)：d(j-1)=t
End if
Next j
s=s+" "+d(i)
Next i
Label1. caption=s，
若數組元素d(1)到d(8)的數據依次為：
"12"，"7"，"18”，"13"，”9"，"17"，"6"，"23"，運行該程序段后，標簽label1中顯示的內容是(　　)
A．7 9 13 B．6 7 9
C．13 17 18 D．12 13 17
12．（2021高三上·浙江月考）有如下VB程序段：
i = 0：j=9：x= 0：key= 75
Do While i<=j
m= Int((i+j)/2)
If d(m)=key Then x=m
If d(m)〉key Then i= m+ 1 Elsej=m- 1
Loop
數組元素a(0)到a(9)的值依次為：99，94，90，90，87，75，75，75，63，52執行該程序段，以下變量正確的是(　　)
A．x=5 B．m=6 C．i=6 D．j=5
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）用Excel軟件對部分省市60歲以上老人健康數據進行處理，如圖a所示：
（1）表格中E列、G列、I列數據都是計算所得。計算過程為：在E3單元格中輸入公式　 　，自動填充到E18單元格，然后將E3單元格公式復制到G3單元格，自動填充到G18單元格，用同樣的方法計算得到I列數據。(注： 健康人口占比=健康人口/60歲及以上人口數X100，G列和I列的占比計算也是基于“60 歲及以上人口”)
（2）用圖a所示數據創建圖b所示圖表，則該圖表所用的數據區域為　 　。
（3）對圖a所示工作表中的數據進行處理，下列說法正確的有 (多選)
A．對表格數據按“60歲及以上人口”降序排序，圖b的圖表會相應變化
B．要實現將各省市數據按“健康人口占比”降序排序，可選擇E4：E18區域進行排序
C．刪圖a表格的第三行，則C列單元格會顯示#DIV/0！錯誤提示
D．對“60歲及以上人口”和“健康人口占比”列都進行最大3項篩選，最后顯示在表格中的只有山東的數據
14．（2021高三上·浙江月考）小慶使用Flash軟件制作主題為“快樂街舞”的多媒體作品，如圖a所示。
請回答下列問題：
（1）多媒體作品的設計需要經過需求分析、規劃設計和腳本編寫，下列說法正確的是 ；
A．確定該作品主題為“快樂街舞”屬于創作需求分析
B．該作品要求使用Flash軟件制作屬于應用需求分析
C．作品劃分為start、main、end三個主要界面屬于結構設計
D．制作腳本可以作為多媒體作品制作的直接依據
E．編寫制作腳本是腳本編寫的最后一步
（2）測試影片，首先播放的場景為　 　(填場景名)，“彈幕二”圖層實現文字“酷！ ！ ！”從右往左邊移動的動畫效果，其動畫類型是　 　(選填：逐幀動畫/形狀補間/動畫補間)
（3）“跳舞的人”圖層使用庫中“跳舞”影片剪輯元件，實現一段人物跳街舞的動畫效果，“跳舞”影片剪輯元件時間軸如圖b所示。測試影片發現，人物的舞蹈動畫只持續了約2秒時間，2秒后人物靜止不動，可能的原因是　 　。
（4）“掌聲”圖層第25幀屬性如圖c所示，要實現掌聲持續2秒結束，下列操作可行的是 (多選，填字母)
A．在“掌聲”圖層的第48幀插入關鍵幀
B．選中“掌聲”圖層第48幀，添加腳本StopAllSounds() ；
C．選中“掌聲”圖層的第48-60幀，執行刪除幀操作
D．在“觀眾”圖層第48幀上添加腳本Stop("掌聲2. wav")；
15．（2021高三上·浙江月考）某運動會100米比賽的晉級規則是根據個人年度最好成績分組，采用交叉排序法，把成績好的隊員分開到各個小組，保證最優秀的隊員能進入最后的決賽。100米比賽分兩輪進行：預賽和決賽。預賽：共三個小組，每組8名運動員，取各組的前兩名再從剩下18名運動員中取成績最好的兩名共8名進入決賽。決賽跑道分配規則是按預賽成績的第1名到第8名分別對應第4、5、3、6、2、7、1、8跑道。某同學編寫VB程序實現以下功能，點擊“決賽名單”按鈕將在Listl中顯示姓名、預賽成績和決賽的跑道。程序運行界面如圖所示。請回答下列問題：
（1）根據程序界面和代碼，“決賽名單”按鈕的“名稱”屬性值是　 　。
（2）在程序劃線處填入合適代碼
Dim Group_ score(0 To 24) As Single
Dim Group _name(1 To 24) As String
Dim flag(1 To 24) As Integer
Dim Finals_ name(1 To 8) As String '參加決賽名單
Dim Finals_ score(1 To 8) As Single '參加決賽的預賽成績
Dim First As Integer， second1 As Integer
Private Sub Form Load ()
'讀取三個小組的運動員姓名和預賽成績(不存在相同成績)，分別存放在Group_ name
'和Group_ score 數組，其中Group_ name(1) 到Group_ name(8) 、Group_ score(1) 到Group_ score (8)
'是第1小組運動員的姓名和成績。以此類推存放第2、3組的數據，并且對flag數組
'的各元素賦初值為0。代碼略
End Sub
Private Sub Comd1_Click (　　)
Dim i As Integer， j As Integer， Left As Integer， Right As Integer
Dim Temp As Single ，Name As String ， runway As String
runway = "45362718”
Group_ score(0) = 1000
For i=1 To 3
Call search(i， 8)
Finals_ score(2 * i - 1) = Group_ score (First)： Finals_ name (2* i- 1) = Group_ _name (First)
Finals_ score(2 * i) = Group_ score (second1)： Finals_ name(2 *i) = Group_ name (second1)
Next i
Call 　 　
Finals_ score(7) = Group_ score (First) ：Finals_ name(7) =Group_ name (First)
Finals_ score(8) = Group_ score (secondl)：Finals_ name(8) =Group_ name (second1)
For i=3 To 8
Left = 1
Right = 　 　
Temp = Finals_ score(i) ： Name = Finals_ name(i)
Do While Left <= Right
m=(Left+Right)\2
If Finals_ score(i) < Finals_ score(m) Then Right = m- 1
Else Left=m+ 1
Loop
For 　 　
Finals_ score(j) = Finals_ score(j- 1) ： Finals_ name (j)= Finals_ name(j - 1)
Next j
Finals_ score(Left) = Temp ：
Finals_ name(Left) = Name
Next i
For i=1 To 8
List1. AddItem Finals_ name(i) +””+ Str(Finals_ score(i))+””+ Mid(runway， i， 1)
Next i
End Sub
Private Sub search(ByVal a As Integer， ByVal b As Integer)
Dim j As Integer
First=0：second1=0
For j =
If Group_ score(j) < Group_score(First) And flag(j) = 0 Then
second1 = First
First = j
ElseIf Group_ score(j) < Group_ score (secondl) And flag(j) =0 Then
second1 = j
End If
Next j
flag(First) = 1： flag(second1) = 1
End Sub
（3）加框處代碼有錯，請改正
16．（2021高三上·浙江月考）國際乒聯現任主席自從上任以來就立志于推行一系列改革，其中11分制改革引起了很大的爭議，有一部分球員因為無法適應新規則只能選擇退役。小明就是其中一位，他退役之后走上了乒乓球研究工作，為分析11分制和21分制對選手的不同影響，編寫了如下VB程序。在Text1中輸入比賽記錄(其中w表示小明獲得一分，f表示對手獲得一-分)最終運行界面如第16題圖，發現21分制確實對小明這種慢熱型的選手有利：
（1）如果記錄是wwfffffffffwfwwfwwfwfwffffffwwwwfffwf， 請問11分制比賽的第二局小明與對手的比分是　 　(注：當任一方得分大于等于11分，且領先對方2分及以上，領先一方贏一局)
（2）在程序劃線處填入合適代碼
Private Sub Command2_ Click()
Dim sp As String， s As String
Dim a(1 To 1000) As Integer
Dim b(1 To 100) As Integer
Dim c(1 To 100) As Integer
Dim i As Integer， j As Integer
Dim n As Integer， f1 As Integer
Dim f2 As Integer， h1 As Integer
Dim k As Integer， x As Integer
'對數組a賦初值為0，代碼略
s = Text1.Text： j = 1： k=1： x=0
For i=1 To Len(s)
If Mid(s，i，1)="w" Then a(i)=1
Next i
　 　
For i=1Ton
If a(i)=1 Then f1=f1+1 Else f2=f2+1
H1=h1+a(i)
　 　
If heck(f1， f2， 11) Then
b(j)=f1：b(j+1)=f2：j=j+2
f1 =0：f2= C
End If
If check(h1， h2，21) Then
c(k) = h1：c(k+1)=h2：k=k+2
h1=0：x=i
End If
Next i
'輸出各局比分代碼略
End Sub
Function check (ByVal dl As Integer， ByVal d2 As Integer， fz As Integer) As Boolean
check = False
If 　 　Then check = True
End Function
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息獲取的環節與方法；信息表達要求
2．【答案】D
【知識點】網址與統一資源定位器
3．【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；字段的數據類型
4．【答案】A
【知識點】進制及數制轉換
5．【答案】C
【知識點】圖層及圖層的基本操作
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】C
【知識點】流程圖識讀
9．【答案】D
【知識點】循環結構語句及程序實現
10．【答案】B
【知識點】循環結構語句及程序實現
11．【答案】C
【知識點】排序算法及程序實現
12．【答案】A
【知識點】查找算法及程序實現
13．【答案】（1）=D3/ $B3* 100或等價答案
（2）A2， A6：A8， D2， D6：D8， F2， F6：F8或等價答案
（3）A；D
【知識點】表格數據的處理與計算
14．【答案】（1）A；C；D
（2）start；動畫補間
（3）在“跳舞”元件“圖層1”圖層的最后幀上有stop() ；動作腳本或等價答案
（4）A；C
【知識點】多媒體作品的規劃和設計；動畫的類型；元件的類型與應用
15．【答案】（1）Comd1
（2）search(1，24)；i-1；j=i to Left+1 step -1 或 j=i to Left step -1或其他等價答案
（3） (a- 1)*b+1 To a*b或(a-1)*8+1To (a-1) *8 +b或其他等價答案
【知識點】排序算法及程序實現
16．【答案】（1）11：13
（2）n=len(s)；h2=i-x-h1；abs(d1-d2)>=2 and (d1>=fz or d2>=fz) 或其他等價答案
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑