資源簡介

浙江大學附屬中學2022屆高三上學期信息技術(shù)12月月考暨首考模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·浙江模擬）北京時間2021年11月7日，航天員翟志剛、王亞平身著我國新一代“飛天”艙外航天服，先后從天和核心艙節(jié)點艙成功出艙，經(jīng)過約6.5小時的出艙活動，神舟十三號航天員乘組密切協(xié)同，圓滿完成出艙活動期間全部既定任務(wù)。以下說法正確的是（　　）
A．現(xiàn)代信息技術(shù)以計算機和通信技術(shù)為支撐，體現(xiàn)信息的載體依附性
B．神舟十三號飛船要驗證的6個月長期在軌飛行技術(shù)，體現(xiàn)計算機系統(tǒng)運行的準確性高
C．航天服能實現(xiàn)隔熱，應(yīng)對真空溫差、輻射等，保障生命安全，體現(xiàn)信息安全性
D．隨著技術(shù)不斷發(fā)展，信息必將脫離它所反映的事物，無需載體就可以傳播保存
【答案】B
【知識點】信息及其特征
2．（2021·浙江模擬）下列有關(guān)網(wǎng)頁的說法，正確的是（　　）
A．聯(lián)網(wǎng)狀態(tài)下可以通過點擊收藏夾網(wǎng)址直接瀏覽網(wǎng)頁，不需要網(wǎng)頁瀏覽器支持
B．網(wǎng)頁三要素：文字，圖片，超文本傳輸協(xié)議(HTTP)
C．統(tǒng)計評價能反應(yīng)出資源可信度較高，從本質(zhì)上一定具有較強的專業(yè)性
D．用賬號和密碼認證登錄網(wǎng)站，是為了提高信息數(shù)據(jù)安全和加強信息保密
【答案】D
【知識點】因特網(wǎng)信息資源評價；瀏覽器；網(wǎng)頁組成元素
3．（2021·浙江模擬）使用Access軟件編輯數(shù)據(jù)表，部分界面如圖所示。
當前狀態(tài)下下列說法不正確的是（　　）
A．當前視圖中，可以在“一段線”前面插入“特殊線”字段
B．修改某一個數(shù)值后，可以通過撤銷恢復(fù)，刪除某個字段或某條記錄，則無法撤回
C．通過導入Excel表數(shù)據(jù)來添加記錄，但無法導入文本文檔來添加記錄
D．“ID”字段可以轉(zhuǎn)為“文本”或“數(shù)字”格式，“一段線”字段不能轉(zhuǎn)成“自動編號”類型
【答案】C
【知識點】數(shù)據(jù)表、字段、記錄的編輯
4．（2021·浙江模擬）使用UltraEdit觀察機內(nèi)碼，如圖所示：
下列說法不正確的是（　　）
A．由圖可知，相應(yīng)字符ASCII碼值關(guān)系"+"<"C"<"y"
B．英文字母"P"的機內(nèi)碼為50H，所以英文字母"O"的機內(nèi)碼為4FH
C．圖中漢字編碼字符共有2個Byte
D．根據(jù)ASCII碼值大小關(guān)系可以推斷出關(guān)系表達式"9">"10"的值為True
【答案】C
【知識點】運算符、基本運算與表達式；字符編碼
5．（2021·浙江模擬）對某音頻素材使用GoldWave進行處理，界面如下圖所示：
以下操作將導致音頻容量發(fā)生改變的是（　　）
A．選擇左聲道全部，點“刪除”，然后按原格式保存
B．執(zhí)行復(fù)制和粘貼，選擇部分修改成“雙聲道”，然后刪除
C．左下角“左聲道”改成“雙聲道”，點靜音
D．插入靜音，持續(xù)時間5秒，然后點擊“刪除”
【答案】D
【知識點】聲音素材的基本處理
6．（2021·浙江模擬）使用PhotoShop軟件處理圖片，顏色模式為RGB/8，參數(shù)界面如圖所示：
當前狀態(tài)下將圖中寬度參數(shù)調(diào)成512，保存為BMP格式，關(guān)于結(jié)果文件大小、畫面大小、圖片內(nèi)容變化情況下列說法正確的是（　　）
①容量約0.73MB ②容量約375KB ③高度500像素 ④高度250像素 ⑤圖像、內(nèi)容比例縮小 ⑥畫面內(nèi)容被裁剪
A．②④⑤ B．①④⑤ C．②③⑥ D．①④⑥
【答案】A
【知識點】圖片素材的基本處理
7．（2021·浙江模擬）下列有關(guān)VB表達式的描述，正確的是（　　）
A．505 Mod 10+Int(Sqr(6))和Len("python")+1相等
B．Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34
C．Int(Rnd*45)*2+9一定產(chǎn)生兩位數(shù)的奇數(shù)
D．Int(Rnd*100)+54\9/3的值可能是12
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021·浙江模擬）某算法的流程圖如圖所示：
執(zhí)行這部分流程后，輸出的s,a值分別是（　　）
A．12,11 B．24,15 C．12,12 D．24,12
【答案】B
【知識點】流程圖識讀
9．（2021·浙江模擬）以下程序要實現(xiàn)十進制轉(zhuǎn)換為十六進制的功能，則劃線處的代碼為（　　）
Private Sub Command1_Click()
Const jz = "0123456789ABCDEF"
Dim d As Integer, r As Integer, s As String
d = Val(Text1.Text)
s = ""
Do While d > 0
Loop
Label1.Caption = "十六進制結(jié)果是" + s
End Sub
①d=d\16 ② s=Mid(jz,r+1,1)+s ③ s=s + Mid(jz,r,1) ④ r=d Mod 16
A．④①③ B．①②④ C．④①② D．①②③
【答案】C
【知識點】循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；常用標準函數(shù)
10．（2021·浙江模擬）有如下VB程序段：
flag = False: txt = "Fighting"
For i = 1 To Len(txt)
ch = Mid(txt, i, 1)
If (ch>="a" And ch<="z" Or ch>="A" And ch<="Z") And Not flag Then
s = ch + s: flag = True
Else
flag = False
End If
Next i
Text1.Text = s
程序運行結(jié)束后，Text1中顯示的內(nèi)容是（　　）
A．Fighting B．ntgF C．gnithgiF D．Fgtn
【答案】B
【知識點】分支結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)
11．（2021·浙江模擬）有如下VB程序段：
For i=1 To 6
a(i) =Int(Rnd()*10)+1
If a(i) Mod 2=i Mod 2 Then i=i-1
Next i
For i=1 To 2
For j= 6 To i+2 Step -1
If a(j)>a(j-2) Then
t=a(j):a(j)=a(j-2):a(j-2)=t
End If
Next j
Next i
執(zhí)行程序后，數(shù)組a各元素可能是（　　）
A．7,6,5,4,3,2 B．6,7,4,5,2,3
C．11,8,9,6,7,4,5 D．2,5,6,9,8,11
【答案】B
【知識點】排序算法及程序?qū)崿F(xiàn)；常用標準函數(shù)
12．（2021·浙江模擬）某對分查找算法的VB程序段如下：
i=1 : j=8
key=Text1.Text
Do While im=(i+j)\2
If key>=a(m) Then i=m+1 Else j=m
Loop
數(shù)組a(1)至a(7)分別是"123","25","35","477","66","8","82"，當在Text1中輸入5時，運行這段程序后，下面說法錯誤的是（　　）
A．i【答案】C
【知識點】查找算法及程序?qū)崿F(xiàn)
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·浙江模擬）高三各科學考后的等第被統(tǒng)計用于下學期2-3月份的三位一體報名，現(xiàn)以杭電三位一體報考為例進行分數(shù)折算，將全年級的數(shù)據(jù)進行統(tǒng)計和分析，數(shù)據(jù)如圖a所示。
圖a
（1）M3單元格使用COUNTIF函數(shù)計算出“關(guān)羽”同學各科學考A等的數(shù)量，再使用“自動填充”功能先后統(tǒng)計其他“BCDE”等第數(shù)量，以及年級所有同學的各等第數(shù)量。M3單元格公式有誤，需更正為　 　（函數(shù)COUNTIF使用說明，例“=COUNTIF（A3:A451,A3）”從A3到A451統(tǒng)計出1班人數(shù)）。
（2）如圖a通過等第分數(shù)折算公式(A等15分，B等10分，C等5分)計算出每位同學的“杭電折算”分，3班班主任需要查看自己班杭電折算分的最高3位同學，下列方法可以實現(xiàn)的是 （多選，填字母）。
A．對班級列篩選條件是“3”的數(shù)據(jù)，再對杭電折算列進行篩選條件為最大3項
B．對杭電折算列進行篩選條件為最大3項，再對班級列篩選條件是“3”的班級
C．對“A2：R451”區(qū)域以“杭電折算”為主要關(guān)鍵字進行降序排序，再篩選班級為“3”的數(shù)據(jù)項，選擇前3項
D．先篩選出班級為“3”的數(shù)據(jù)，再對“A2:R451”區(qū)域，以“杭電折算”為主要關(guān)鍵字降序排序，選擇前3項
（3）在新的工作表中計算出各班語數(shù)外三門課A等人數(shù)情況。如圖b所示，在“英語”列前面插入新的一列標題為“日語”，柱形圖圖表　 　（選填：會/不會）隨之增加“日語”數(shù)據(jù)。
圖b
【答案】（1）=COUNTIF（$C3:$L3,M$2）
（2）C；D
（3）不會
【知識點】表格數(shù)據(jù)的處理與計算
14．（2021·浙江模擬）用Flash軟件打開只做“飛天夢.Fla”文件，編輯界面如圖a所示。
圖a
請回答下列問題：
（1）下列關(guān)于多媒體作品設(shè)計的一般步驟描述正確的是 （多選，填字母）。
A．文字腳本按多媒體作品的演示順序，描述每一環(huán)節(jié)的展示內(nèi)容及呈現(xiàn)方式
B．媒體元素分解是多媒體作品制作的最后一個環(huán)節(jié)，實現(xiàn)媒體元素逐一列出，分類登記
C．確定多媒體作品的主要內(nèi)容，相互間的鏈接方式，屬于系統(tǒng)結(jié)構(gòu)設(shè)計環(huán)節(jié)
D．完成多媒體作業(yè)預(yù)計需要1個月時間，所需資金約***元，屬于應(yīng)用需求分析
E．功能模塊設(shè)計包含對模塊文本內(nèi)容、背景顏色、音頻內(nèi)容、交互方式等設(shè)計要求
（2）航天飛機圖層實現(xiàn)“航天飛機”從舞臺右下角移入舞臺右上角區(qū)域，并一直屬于噴火動畫狀態(tài)，請問“航天飛機”圖層動畫類型屬于　 　（單選，填字母：A .形狀補間 / B .逐幀動畫 /
C .動畫補間）。
（3）測試場景，發(fā)現(xiàn)背景圖層從第1幀到第24幀未顯示背景內(nèi)容，要讓背景內(nèi)容從第一幀開始一直顯示，下列做法正確的是 。（多選，填字母）
A．選中背景圖層第1幀至第24幀“清除幀”
B．點擊背景圖層第1幀“清除關(guān)鍵幀”
C．選中背景圖層第1幀至24幀“刪除幀”，并在第50幀“插入幀”
D．在背景圖層第25幀“復(fù)制幀”，在第1幀“粘貼幀”
E．點擊背景圖層第25幀，復(fù)制舞臺上內(nèi)容，在背景圖層第1幀粘貼內(nèi)容，調(diào)整位置
（4）“關(guān)閉”按鈕元件的編輯界面如圖b所示。下列說法正確的是 。（多選，填字母）
A．按鈕有效，所以測試影片時鼠標移至“關(guān)閉”文字上時出現(xiàn)手形
B．使用菜單“控制”下的“測試場景”，按鈕動作可以響應(yīng)
C．“文字”圖層插入幀，測試影片時鼠標移至“關(guān)閉”文字上時按鈕有聲音
D．使用菜單“控制”下的“播放”命令，按鈕不響應(yīng)，但可以聽到“指針經(jīng)過”的聲音
E．“測試影片”時，鼠標移至“關(guān)閉”按鈕矩形區(qū)可以聽到“指針經(jīng)過”的聲音
（5）“場景 1”要實現(xiàn)點擊“關(guān)閉”按鈕關(guān)閉動畫播放，則“關(guān)閉”按鈕動作腳本為on(Press){　 　}。
【答案】（1）A；D；E
（2）C
（3）B；C；D
（4）B；C；E
（5）FSCommand（"Quit"）
【知識點】多媒體作品的規(guī)劃和設(shè)計；動畫的類型；常用影片控制函數(shù)的應(yīng)用；多媒體作品的調(diào)試與遞交；聲音同步屬性設(shè)置
15．（2021·浙江模擬）疫情期間，教師回校在教師宿舍隔離上網(wǎng)課，后勤人員連續(xù)一周輪流給教師送三餐。本校后勤人員共25人，每天安排2個人一起送餐，要求其中一名必須是年齡在40歲以下（包括40歲）的男后勤工作人員（本校符合該條件的后勤人員超過7個），另一名按如下規(guī)則進行安排：優(yōu)先安排年輕的工作人員配送。每人最多安排一天的配送工作。
編寫VB程序，根據(jù)后勤人員信息安排一周每天的送餐人。運行程序，在列表框List1中輸出學校每個后勤人員的基本信息，單擊“安排”命令按鈕Command1，在列表框List2中顯示每天的送餐人編號（編號是01,02,03,04，……，24,25）。程序運行界面如圖a所示。
圖a
請回答下列問題：
（1）要使程序運行時自動將窗體標題改為"三餐配送安排"，則語句Form1.Caption="三餐配送安排"應(yīng)放在　 　（單選，填字母：A
.Form1_Load() / B .Form_Load() / C .Form1_Click() / D .Form_Click()）事件處理過程中。
（2）實現(xiàn)上述功能程序代碼如下，完善劃線處語句。
Dim
num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim
xb(1 To 25) As String, age(1 To 25) As Integer
Dim
flag(1 To 25) As Boolean '表示相應(yīng)的員工是否已經(jīng)被安排過配送任務(wù)
Dim
zudui(1 To 7) As String '表示每天的配送人員組合
Private
Sub Form_Load()
'從數(shù)據(jù)庫中獲取本校后勤人員所有信息，將編號、姓名、性別、年齡分別存入數(shù)組bh、xm、xb、age中，總?cè)藬?shù)在num變量中。并在list1中輸出后勤人員信息。代碼略。
End
Sub
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, Dim k As
Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then
zudui(k) = bh(i)
flag(Val(bh(i))) = True
k = k + 1
If 　 　Then Exit For
End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num
If flag(j) = False Then
If
Then k = j
End If
Next j
If k <> i Then
t1 = bh(k): bh(k) = bh(i): bh(i) = t1
t1 = xm(k): xm(k) = xm(i): xm(i) = t1
t1 = xb(k): xb(k) = xb(i): xb(i) = t1
t2 = age(k): age(k) = age(i): age(i) = t2
End If
　 　
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +　 　
Next i
End Sub
（3）程序加框處代碼有問題，請修改。
【答案】（1）B
（2）k>7 或k>=8 或k=8；flag(Val(bh(i)))=True；Mid(zudui(i),3,2)或者bh（i）
（3）flag(k)=True Or age(j)【知識點】類、對象、屬性、方法、事件和事件處理的概念及應(yīng)用；排序算法及程序?qū)崿F(xiàn)
16．（2021·浙江模擬）模擬某新型病毒傳播的過程，已知有n*n個格子（1<=n<=10），某天其中某些格子由于不知名原因感染了病毒，開始影響周圍的格子。傳染原理如圖a所示：
某3行3列的格子初始狀態(tài)如圖a所示，1表示異常（由于不知名原因感染了病毒且具有傳染性），0表示正常。除了邊上一圈的格子，每個格子周圍有8個格子，第一天某正常格子周圍超過半數(shù)格子異常，則該格子第二天就會變異常，并且?guī)в袀魅拘浴魅具^程如圖b所示，矩陣中1、2、3、4分別表示該格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出該矩陣格子第4天全部被感染。
編寫VB程序，運行程序后，在Text1中輸入矩陣規(guī)模（不超過10），單擊“初始化”命令按鈕，在List1中輸出第一天所有格子的狀態(tài)，單擊“傳播”命令按鈕，在List2中輸出所有格子的最終狀態(tài)，并在Label2中輸出第幾天全部被感染或者“不會被全部感染”。
程序運行界面如圖c所示。
（1）已知第一天所有格子狀態(tài)如圖d所示，則第　 　天所有格子全部被感染。
（2）實現(xiàn)上述功能程序代碼如下，完善劃線處語句。
Dim
a(1 To 100) As Integer '存放格子狀態(tài)
Dim
b(1 To 100) As Integer '輔助作用
Dim
zc(1 To 10000) As Integer '記錄每一天的正常格子數(shù)
Dim
n As Integer '存放矩陣規(guī)模
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
List1.Clear
n = Val(Text1.Text)
For i = 1 To n
s =
""
For j = 1 To n
a((i - 1) * n + j) = Int(Rnd() * 2)
s = s + Str(a((i - 1) * n + j))
If a((i - 1) * n + j) = 0 Then 　 　
Next j
List1.AddItem
s
Next i
End
Sub
Private
Sub Command2_Click()
Dim i As Integer, j As Integer, tian As
Integer, flag As Boolean
List2.Clear
'下面代碼實現(xiàn)病毒傳染過程
tian = 1: flag = False
Do While zc(tian) > 0
tian = tian + 1
For i = 1 To n * n
If
a(i) = 0 Then
If　 　 Then b(i) = tian
Else
b(i) = a(i)
End If
Next
i
For i = 1 To n * n
If
b(i) = 0 Then zc(tian) = zc(tian) + 1
a(i) = b(i)
Next i
If　 　 Then flag = True: Exit Do
Loop
'在List2中輸出所有格子的最終狀態(tài)，代碼略。
If flag Then
Label2.Caption = "不會被全部感染"
Else
Label2.Caption = "第" + Str(tian) + "天全部被感染"
End If
End
Sub
'Judge函數(shù)用來判斷第i行第j列的格子周圍的異常格子數(shù)是否超過半數(shù)，超過半數(shù)返回True
Function
Judge(i As Integer, j As Integer) As Boolean
'代碼略
End
Function
【答案】（1）2
（2）zc(1)=zc(1)+1；Judge((i-1)\n+1,(i-1) Mod n+1)；zc(tian)=zc(tian-1)
【知識點】分支結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)
1 / 1浙江大學附屬中學2022屆高三上學期信息技術(shù)12月月考暨首考模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·浙江模擬）北京時間2021年11月7日，航天員翟志剛、王亞平身著我國新一代“飛天”艙外航天服，先后從天和核心艙節(jié)點艙成功出艙，經(jīng)過約6.5小時的出艙活動，神舟十三號航天員乘組密切協(xié)同，圓滿完成出艙活動期間全部既定任務(wù)。以下說法正確的是（　　）
A．現(xiàn)代信息技術(shù)以計算機和通信技術(shù)為支撐，體現(xiàn)信息的載體依附性
B．神舟十三號飛船要驗證的6個月長期在軌飛行技術(shù)，體現(xiàn)計算機系統(tǒng)運行的準確性高
C．航天服能實現(xiàn)隔熱，應(yīng)對真空溫差、輻射等，保障生命安全，體現(xiàn)信息安全性
D．隨著技術(shù)不斷發(fā)展，信息必將脫離它所反映的事物，無需載體就可以傳播保存
2．（2021·浙江模擬）下列有關(guān)網(wǎng)頁的說法，正確的是（　　）
A．聯(lián)網(wǎng)狀態(tài)下可以通過點擊收藏夾網(wǎng)址直接瀏覽網(wǎng)頁，不需要網(wǎng)頁瀏覽器支持
B．網(wǎng)頁三要素：文字，圖片，超文本傳輸協(xié)議(HTTP)
C．統(tǒng)計評價能反應(yīng)出資源可信度較高，從本質(zhì)上一定具有較強的專業(yè)性
D．用賬號和密碼認證登錄網(wǎng)站，是為了提高信息數(shù)據(jù)安全和加強信息保密
3．（2021·浙江模擬）使用Access軟件編輯數(shù)據(jù)表，部分界面如圖所示。
當前狀態(tài)下下列說法不正確的是（　　）
A．當前視圖中，可以在“一段線”前面插入“特殊線”字段
B．修改某一個數(shù)值后，可以通過撤銷恢復(fù)，刪除某個字段或某條記錄，則無法撤回
C．通過導入Excel表數(shù)據(jù)來添加記錄，但無法導入文本文檔來添加記錄
D．“ID”字段可以轉(zhuǎn)為“文本”或“數(shù)字”格式，“一段線”字段不能轉(zhuǎn)成“自動編號”類型
4．（2021·浙江模擬）使用UltraEdit觀察機內(nèi)碼，如圖所示：
下列說法不正確的是（　　）
A．由圖可知，相應(yīng)字符ASCII碼值關(guān)系"+"<"C"<"y"
B．英文字母"P"的機內(nèi)碼為50H，所以英文字母"O"的機內(nèi)碼為4FH
C．圖中漢字編碼字符共有2個Byte
D．根據(jù)ASCII碼值大小關(guān)系可以推斷出關(guān)系表達式"9">"10"的值為True
5．（2021·浙江模擬）對某音頻素材使用GoldWave進行處理，界面如下圖所示：
以下操作將導致音頻容量發(fā)生改變的是（　　）
A．選擇左聲道全部，點“刪除”，然后按原格式保存
B．執(zhí)行復(fù)制和粘貼，選擇部分修改成“雙聲道”，然后刪除
C．左下角“左聲道”改成“雙聲道”，點靜音
D．插入靜音，持續(xù)時間5秒，然后點擊“刪除”
6．（2021·浙江模擬）使用PhotoShop軟件處理圖片，顏色模式為RGB/8，參數(shù)界面如圖所示：
當前狀態(tài)下將圖中寬度參數(shù)調(diào)成512，保存為BMP格式，關(guān)于結(jié)果文件大小、畫面大小、圖片內(nèi)容變化情況下列說法正確的是（　　）
①容量約0.73MB ②容量約375KB ③高度500像素 ④高度250像素 ⑤圖像、內(nèi)容比例縮小 ⑥畫面內(nèi)容被裁剪
A．②④⑤ B．①④⑤ C．②③⑥ D．①④⑥
7．（2021·浙江模擬）下列有關(guān)VB表達式的描述，正確的是（　　）
A．505 Mod 10+Int(Sqr(6))和Len("python")+1相等
B．Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34
C．Int(Rnd*45)*2+9一定產(chǎn)生兩位數(shù)的奇數(shù)
D．Int(Rnd*100)+54\9/3的值可能是12
8．（2021·浙江模擬）某算法的流程圖如圖所示：
執(zhí)行這部分流程后，輸出的s,a值分別是（　　）
A．12,11 B．24,15 C．12,12 D．24,12
9．（2021·浙江模擬）以下程序要實現(xiàn)十進制轉(zhuǎn)換為十六進制的功能，則劃線處的代碼為（　　）
Private Sub Command1_Click()
Const jz = "0123456789ABCDEF"
Dim d As Integer, r As Integer, s As String
d = Val(Text1.Text)
s = ""
Do While d > 0
Loop
Label1.Caption = "十六進制結(jié)果是" + s
End Sub
①d=d\16 ② s=Mid(jz,r+1,1)+s ③ s=s + Mid(jz,r,1) ④ r=d Mod 16
A．④①③ B．①②④ C．④①② D．①②③
10．（2021·浙江模擬）有如下VB程序段：
flag = False: txt = "Fighting"
For i = 1 To Len(txt)
ch = Mid(txt, i, 1)
If (ch>="a" And ch<="z" Or ch>="A" And ch<="Z") And Not flag Then
s = ch + s: flag = True
Else
flag = False
End If
Next i
Text1.Text = s
程序運行結(jié)束后，Text1中顯示的內(nèi)容是（　　）
A．Fighting B．ntgF C．gnithgiF D．Fgtn
11．（2021·浙江模擬）有如下VB程序段：
For i=1 To 6
a(i) =Int(Rnd()*10)+1
If a(i) Mod 2=i Mod 2 Then i=i-1
Next i
For i=1 To 2
For j= 6 To i+2 Step -1
If a(j)>a(j-2) Then
t=a(j):a(j)=a(j-2):a(j-2)=t
End If
Next j
Next i
執(zhí)行程序后，數(shù)組a各元素可能是（　　）
A．7,6,5,4,3,2 B．6,7,4,5,2,3
C．11,8,9,6,7,4,5 D．2,5,6,9,8,11
12．（2021·浙江模擬）某對分查找算法的VB程序段如下：
i=1 : j=8
key=Text1.Text
Do While im=(i+j)\2
If key>=a(m) Then i=m+1 Else j=m
Loop
數(shù)組a(1)至a(7)分別是"123","25","35","477","66","8","82"，當在Text1中輸入5時，運行這段程序后，下面說法錯誤的是（　　）
A．i二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·浙江模擬）高三各科學考后的等第被統(tǒng)計用于下學期2-3月份的三位一體報名，現(xiàn)以杭電三位一體報考為例進行分數(shù)折算，將全年級的數(shù)據(jù)進行統(tǒng)計和分析，數(shù)據(jù)如圖a所示。
圖a
（1）M3單元格使用COUNTIF函數(shù)計算出“關(guān)羽”同學各科學考A等的數(shù)量，再使用“自動填充”功能先后統(tǒng)計其他“BCDE”等第數(shù)量，以及年級所有同學的各等第數(shù)量。M3單元格公式有誤，需更正為　 　（函數(shù)COUNTIF使用說明，例“=COUNTIF（A3:A451,A3）”從A3到A451統(tǒng)計出1班人數(shù)）。
（2）如圖a通過等第分數(shù)折算公式(A等15分，B等10分，C等5分)計算出每位同學的“杭電折算”分，3班班主任需要查看自己班杭電折算分的最高3位同學，下列方法可以實現(xiàn)的是 （多選，填字母）。
A．對班級列篩選條件是“3”的數(shù)據(jù)，再對杭電折算列進行篩選條件為最大3項
B．對杭電折算列進行篩選條件為最大3項，再對班級列篩選條件是“3”的班級
C．對“A2：R451”區(qū)域以“杭電折算”為主要關(guān)鍵字進行降序排序，再篩選班級為“3”的數(shù)據(jù)項，選擇前3項
D．先篩選出班級為“3”的數(shù)據(jù)，再對“A2:R451”區(qū)域，以“杭電折算”為主要關(guān)鍵字降序排序，選擇前3項
（3）在新的工作表中計算出各班語數(shù)外三門課A等人數(shù)情況。如圖b所示，在“英語”列前面插入新的一列標題為“日語”，柱形圖圖表　 　（選填：會/不會）隨之增加“日語”數(shù)據(jù)。
圖b
14．（2021·浙江模擬）用Flash軟件打開只做“飛天夢.Fla”文件，編輯界面如圖a所示。
圖a
請回答下列問題：
（1）下列關(guān)于多媒體作品設(shè)計的一般步驟描述正確的是 （多選，填字母）。
A．文字腳本按多媒體作品的演示順序，描述每一環(huán)節(jié)的展示內(nèi)容及呈現(xiàn)方式
B．媒體元素分解是多媒體作品制作的最后一個環(huán)節(jié)，實現(xiàn)媒體元素逐一列出，分類登記
C．確定多媒體作品的主要內(nèi)容，相互間的鏈接方式，屬于系統(tǒng)結(jié)構(gòu)設(shè)計環(huán)節(jié)
D．完成多媒體作業(yè)預(yù)計需要1個月時間，所需資金約***元，屬于應(yīng)用需求分析
E．功能模塊設(shè)計包含對模塊文本內(nèi)容、背景顏色、音頻內(nèi)容、交互方式等設(shè)計要求
（2）航天飛機圖層實現(xiàn)“航天飛機”從舞臺右下角移入舞臺右上角區(qū)域，并一直屬于噴火動畫狀態(tài)，請問“航天飛機”圖層動畫類型屬于　 　（單選，填字母：A .形狀補間 / B .逐幀動畫 /
C .動畫補間）。
（3）測試場景，發(fā)現(xiàn)背景圖層從第1幀到第24幀未顯示背景內(nèi)容，要讓背景內(nèi)容從第一幀開始一直顯示，下列做法正確的是 。（多選，填字母）
A．選中背景圖層第1幀至第24幀“清除幀”
B．點擊背景圖層第1幀“清除關(guān)鍵幀”
C．選中背景圖層第1幀至24幀“刪除幀”，并在第50幀“插入幀”
D．在背景圖層第25幀“復(fù)制幀”，在第1幀“粘貼幀”
E．點擊背景圖層第25幀，復(fù)制舞臺上內(nèi)容，在背景圖層第1幀粘貼內(nèi)容，調(diào)整位置
（4）“關(guān)閉”按鈕元件的編輯界面如圖b所示。下列說法正確的是 。（多選，填字母）
A．按鈕有效，所以測試影片時鼠標移至“關(guān)閉”文字上時出現(xiàn)手形
B．使用菜單“控制”下的“測試場景”，按鈕動作可以響應(yīng)
C．“文字”圖層插入幀，測試影片時鼠標移至“關(guān)閉”文字上時按鈕有聲音
D．使用菜單“控制”下的“播放”命令，按鈕不響應(yīng)，但可以聽到“指針經(jīng)過”的聲音
E．“測試影片”時，鼠標移至“關(guān)閉”按鈕矩形區(qū)可以聽到“指針經(jīng)過”的聲音
（5）“場景 1”要實現(xiàn)點擊“關(guān)閉”按鈕關(guān)閉動畫播放，則“關(guān)閉”按鈕動作腳本為on(Press){　 　}。
15．（2021·浙江模擬）疫情期間，教師回校在教師宿舍隔離上網(wǎng)課，后勤人員連續(xù)一周輪流給教師送三餐。本校后勤人員共25人，每天安排2個人一起送餐，要求其中一名必須是年齡在40歲以下（包括40歲）的男后勤工作人員（本校符合該條件的后勤人員超過7個），另一名按如下規(guī)則進行安排：優(yōu)先安排年輕的工作人員配送。每人最多安排一天的配送工作。
編寫VB程序，根據(jù)后勤人員信息安排一周每天的送餐人。運行程序，在列表框List1中輸出學校每個后勤人員的基本信息，單擊“安排”命令按鈕Command1，在列表框List2中顯示每天的送餐人編號（編號是01,02,03,04，……，24,25）。程序運行界面如圖a所示。
圖a
請回答下列問題：
（1）要使程序運行時自動將窗體標題改為"三餐配送安排"，則語句Form1.Caption="三餐配送安排"應(yīng)放在　 　（單選，填字母：A
.Form1_Load() / B .Form_Load() / C .Form1_Click() / D .Form_Click()）事件處理過程中。
（2）實現(xiàn)上述功能程序代碼如下，完善劃線處語句。
Dim
num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim
xb(1 To 25) As String, age(1 To 25) As Integer
Dim
flag(1 To 25) As Boolean '表示相應(yīng)的員工是否已經(jīng)被安排過配送任務(wù)
Dim
zudui(1 To 7) As String '表示每天的配送人員組合
Private
Sub Form_Load()
'從數(shù)據(jù)庫中獲取本校后勤人員所有信息，將編號、姓名、性別、年齡分別存入數(shù)組bh、xm、xb、age中，總?cè)藬?shù)在num變量中。并在list1中輸出后勤人員信息。代碼略。
End
Sub
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, Dim k As
Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then
zudui(k) = bh(i)
flag(Val(bh(i))) = True
k = k + 1
If 　 　Then Exit For
End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num
If flag(j) = False Then
If
Then k = j
End If
Next j
If k <> i Then
t1 = bh(k): bh(k) = bh(i): bh(i) = t1
t1 = xm(k): xm(k) = xm(i): xm(i) = t1
t1 = xb(k): xb(k) = xb(i): xb(i) = t1
t2 = age(k): age(k) = age(i): age(i) = t2
End If
　 　
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +　 　
Next i
End Sub
（3）程序加框處代碼有問題，請修改。
16．（2021·浙江模擬）模擬某新型病毒傳播的過程，已知有n*n個格子（1<=n<=10），某天其中某些格子由于不知名原因感染了病毒，開始影響周圍的格子。傳染原理如圖a所示：
某3行3列的格子初始狀態(tài)如圖a所示，1表示異常（由于不知名原因感染了病毒且具有傳染性），0表示正常。除了邊上一圈的格子，每個格子周圍有8個格子，第一天某正常格子周圍超過半數(shù)格子異常，則該格子第二天就會變異常，并且?guī)в袀魅拘浴魅具^程如圖b所示，矩陣中1、2、3、4分別表示該格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出該矩陣格子第4天全部被感染。
編寫VB程序，運行程序后，在Text1中輸入矩陣規(guī)模（不超過10），單擊“初始化”命令按鈕，在List1中輸出第一天所有格子的狀態(tài)，單擊“傳播”命令按鈕，在List2中輸出所有格子的最終狀態(tài)，并在Label2中輸出第幾天全部被感染或者“不會被全部感染”。
程序運行界面如圖c所示。
（1）已知第一天所有格子狀態(tài)如圖d所示，則第　 　天所有格子全部被感染。
（2）實現(xiàn)上述功能程序代碼如下，完善劃線處語句。
Dim
a(1 To 100) As Integer '存放格子狀態(tài)
Dim
b(1 To 100) As Integer '輔助作用
Dim
zc(1 To 10000) As Integer '記錄每一天的正常格子數(shù)
Dim
n As Integer '存放矩陣規(guī)模
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
List1.Clear
n = Val(Text1.Text)
For i = 1 To n
s =
""
For j = 1 To n
a((i - 1) * n + j) = Int(Rnd() * 2)
s = s + Str(a((i - 1) * n + j))
If a((i - 1) * n + j) = 0 Then 　 　
Next j
List1.AddItem
s
Next i
End
Sub
Private
Sub Command2_Click()
Dim i As Integer, j As Integer, tian As
Integer, flag As Boolean
List2.Clear
'下面代碼實現(xiàn)病毒傳染過程
tian = 1: flag = False
Do While zc(tian) > 0
tian = tian + 1
For i = 1 To n * n
If
a(i) = 0 Then
If　 　 Then b(i) = tian
Else
b(i) = a(i)
End If
Next
i
For i = 1 To n * n
If
b(i) = 0 Then zc(tian) = zc(tian) + 1
a(i) = b(i)
Next i
If　 　 Then flag = True: Exit Do
Loop
'在List2中輸出所有格子的最終狀態(tài)，代碼略。
If flag Then
Label2.Caption = "不會被全部感染"
Else
Label2.Caption = "第" + Str(tian) + "天全部被感染"
End If
End
Sub
'Judge函數(shù)用來判斷第i行第j列的格子周圍的異常格子數(shù)是否超過半數(shù)，超過半數(shù)返回True
Function
Judge(i As Integer, j As Integer) As Boolean
'代碼略
End
Function
答案解析部分
1．【答案】B
【知識點】信息及其特征
2．【答案】D
【知識點】因特網(wǎng)信息資源評價；瀏覽器；網(wǎng)頁組成元素
3．【答案】C
【知識點】數(shù)據(jù)表、字段、記錄的編輯
4．【答案】C
【知識點】運算符、基本運算與表達式；字符編碼
5．【答案】D
【知識點】聲音素材的基本處理
6．【答案】A
【知識點】圖片素材的基本處理
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】流程圖識讀
9．【答案】C
【知識點】循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；常用標準函數(shù)
10．【答案】B
【知識點】分支結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)
11．【答案】B
【知識點】排序算法及程序?qū)崿F(xiàn)；常用標準函數(shù)
12．【答案】C
【知識點】查找算法及程序?qū)崿F(xiàn)
13．【答案】（1）=COUNTIF（$C3:$L3,M$2）
（2）C；D
（3）不會
【知識點】表格數(shù)據(jù)的處理與計算
14．【答案】（1）A；D；E
（2）C
（3）B；C；D
（4）B；C；E
（5）FSCommand（"Quit"）
【知識點】多媒體作品的規(guī)劃和設(shè)計；動畫的類型；常用影片控制函數(shù)的應(yīng)用；多媒體作品的調(diào)試與遞交；聲音同步屬性設(shè)置
15．【答案】（1）B
（2）k>7 或k>=8 或k=8；flag(Val(bh(i)))=True；Mid(zudui(i),3,2)或者bh（i）
（3）flag(k)=True Or age(j)【知識點】類、對象、屬性、方法、事件和事件處理的概念及應(yīng)用；排序算法及程序?qū)崿F(xiàn)
16．【答案】（1）2
（2）zc(1)=zc(1)+1；Judge((i-1)\n+1,(i-1) Mod n+1)；zc(tian)=zc(tian-1)
【知識點】分支結(jié)構(gòu)語句及程序?qū)崿F(xiàn)；循環(huán)結(jié)構(gòu)語句及程序?qū)崿F(xiàn)
1 / 1

展開更多......

收起↑