資源簡介

浙江省東陽市2020屆高三信息技術6月模擬考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分)
1．（2020·東陽模擬）關于信息和多媒體，下列說法正確的是（　　）
A．對位圖圖像的修改實質上就是修改圖像中的像素
B．Flash是一款以幀為基礎的多媒體創作與集成軟件
C．文字腳本包括作品的屏幕設計、鏈接關系的描述等內容，是多媒體作品制作的直接依據
D．現代信息技術以計算機和通信技術為基礎，以微電子和光電子技術為支撐
2．（2020·東陽模擬）下列有關說法，不正確的是（　　）
A．因特網上存儲著海量信息，不同搜索引擎的檢索結果可能不同
B．聲音信息進行“采樣”和“量化”的加工過程，屬于“模數轉換”
C．靜態網頁可根據情況的變化、用戶的需要生成不同的頁面
D．POP 3協議將郵件從郵件服務器端送到個人終端機器上
3．（2020·東陽模擬）對于數據庫和數據表，下列說法不正確的是（　　）
A．數據庫可以存儲和管理文字、圖形、視頻等數據
B．Access數據表視圖中，可以修改記錄的字段值，也可設置某個字段為主鍵
C．Access同一張數據表中，常常用來存儲同一類型或同一主題的相關數據
D．Access數據表視圖中，表中的記錄和字段刪除后不可以使用撤銷命令來恢復，但在設計視圖中刪除字段后可以使用該命令來恢復
4．（2020·東陽模擬）使用Word軟件編輯文檔，部分界面如下圖所示
下列說法正確的是（　　）
A．實現圖中的圖文環繞效果只能采用“四周型”環繞方式
B．文中有2處批注，若在第三行增加1處批注，則該批注序號為3
C．刪除批注內容“前行的動力”，前面的“批注：[stu 2] ”不會被一起刪除
D．文中共有4處修訂，執行“接受所有修訂”命令，最后一句話是“覺得竟是如此的不可思議。”
5．（2020·東陽模擬）使用UltraEdit軟件觀察字符“眾志成城，抗擊疫情”的內碼部分界面如圖所示。下列說法正確的是（　　）
A．字符“疫”的十六進制內碼為“F7 D2”
B．字符“城”的二進制編碼是10110011 11000111
C．存儲“眾志成城，抗擊疫情”共需要16字節的存儲空間
D．圖中共有9個GB2312碼字符
6．（2020·東陽模擬）使用Goldwave軟件處理音頻，部分操作界面如圖所示
在當前狀態下，下列說法正確的是（　　）
A．執行“插入靜音”操作，右聲道音頻時長不變
B．執行“剪裁”操作，再“粘貼”，左聲道音頻時長不變
C．該音頻的播放速率為每秒播放128千個字節
D．按照原參數另存為WAV格式， 音頻存儲容量增大
7．（2020·東陽模擬）下列VB表達式的值為False的是（　　）
A．50 Mod 100＼50= 1 B．Int(2*Rnd-Rnd) ＼2= 0
C．Int(Rnd*10) /5< 2 D．”22”>”112”
8．（2020·東陽模擬）某算法的流程圖如圖所示。執行這部分流程，輸入41，則輸出的值是（　　）
A．0 B．19 C．22 D．32
9．（2020·東陽模擬）有如下VB程序段
Dim conn As New ADODB.Connection
Di mrs As New ADODB.Recordset
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0；DataSource=” & App.Path & “＼詞庫.accdb”
conn.Open
Set rs.Active Connection=conn
rs.Open “SELECT*FROM words”
n=0
Do While Not rs.EOF
n=n+1
en(n) =rs.Fields(1)
ch(n) =rs.Fields(2)
rs.MoveNext
Loop
rs.Close
conn.Close
下列說法中正確的是（　　）
①連接的數據庫文件名是“＼詞庫．accdb”
②程序運行后，變量n的值表示該數據表中記錄的總數
③數組en(n)所存儲的是數據表第2個字段的字段值
④“ConnectionString”是conn對象的屬性值
⑤查詢的數據表名稱是“words”
⑥省略語句“rs．MoveNext”，程序也可以正常運行
A．①④⑤ B．③④⑥ C．②③⑤ D．②③④
10．（2020·東陽模擬）字符串旋轉。若整型變量s、t、c的值分別為3、9、4，則下列程序執行后str 1的值為（　　）
str 1=“go it for！”
str 2=Mid(str 1， s， t-s+1)
len 1=Len(str 1) ：len 2=Len(str 2)
c=c Mod len 2
For i=1To c
str 2=Mid(str 2， len 2， 1) +Mid(str 2， 1， len 2-1)
Next i
str 1=Mid(str 1，1，s-1) +str 2+Mid(str 1，t+1，len 1-t)
A．go for it！ B．for！go it C．for it go！ D．it for go！
11．（2020·東陽模擬）有如下VB程序段：
Dim d(1 to 5) As Integer， i As Integer
For i= 1 To 8
a(i) =Int(Rnd*10) + 1
Next i
For i=1 To 5 Step 2
k=i
For j=i+2 To 7 Step 2
If a(j) Next j
Then k=j
If i<>k Then
t=a(i)：a(i)=a(k)：a(k)=t
t=a(i+1)：a(i+1)=a(k+1)：a(k+1)=t
EndIf
Next i
運行該程序段后，數組a各元素的值可能為（　　）
A．1，2，1，1，4，3，6，5 B．1，1，1，2，3，4，5，6
C．0，1，5，2，7，4，5，6 D．3，4，5，2，6，4，7，11
12．（2020·東陽模擬）有如下VB程序段：
Private Sub Command1_Click()
Dim a( 1 To 6) As Integer， i As Integer
For i= 1 To 6
a(i) =Int(Rnd*5) *2+ 1
Next i
For i=2 To 6 Step 2
a(i) =cha(a(i-1) ， a(i) )
Next i
End Sub
Function cha(x As Integer， y As Integer) As Integer
Dim t As Integer
If xt=x：x=y：y=t
cha=y
Else
cha=x-1
End If
EndFunction
執行該程序段后，在下列選項中，a(1)~a(6)各元素值可能的是（　　）
A．8，9，3，2，5，1 B．7，6，5，5，3，1
C．9，3，5，4，4，3 D．7，3，1，0，5，4
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·東陽模擬）小趙對公司某一食品倉庫的庫存進行整理統計，數據情況如圖a所示。請回答下列問題：
（1）圖a中J3：J6單元格計算同類產品的銷售額之和，J4：J6的公式是從J3單元格通過自動填充功能得出，可知J3單元格公式為 　 　(提示：SUM IF函數返回滿足條件的單元格之和。例如： =SUM IF(F2：F10， H 3，D2：D10) =，F2：F10為條件范圍，H3為條件，D2：D10為求和范圍)
（2）根據圖a中的數據制作的圖表如圖b所示，則創建該圖表的數據區域是　 　。
（3）小趙想找出調味品庫存量最多的兩個產品，下列方法可行的是 (多選，填字母)
A．以“產品”為調味品進行篩選，以“庫存量”為關鍵字降序排序，選取排在最前面兩個產品
B．以“庫存量”為主要關鍵字降序排序，以“產品”為次要關鍵字降序排序，選取排在最前面兩個產品
C．以“產品”為主要關鍵字降序排序，以“庫存量”為次要關鍵字降序排序，選取排在最前面兩個產品
D．以“產品”為調味品進行篩選，“庫存量”為最大2項進行篩選，然后選取篩選出的產品
14．（2020·東陽模擬）小王制作主題為“共戰疫情”的多媒體作品，首先使用Photoshop軟件處理圖片，然后使用Flash軟件制作動畫。請回答下列問題：
（1）使用Photoshop軟件處理“共戰疫情．psd”，如圖a所示。為使“加油！加油！”在“存儲為”JPG格式后的圖片中不可見， 下列操作可行的有　 　(多選，填字母：A ．將當前圖層設為不可見/B ．將當前圖層移到“背景”圖層下方/C ．使用“移動工具”將“加油！加油！”移到畫布外/D ．使用“橡皮擦工具”擦除“加油！加油！”/E ．將當前圖層柵格化)。
（2）如圖b所示，“標題”圖層中第1幀到第20幀實現了由“齊心協力”逐漸變成“眾志成城”的動畫效果，則該圖層第20幀上對象的類型為
　 　(填文字：位圖/影片剪輯/形狀/靜態文本)。
（3）“文字”圖層的補間動畫屬性設置如圖c所示，若將“緩動”的值由0改為100，則該圖層這段補間動畫播放一次所需的時間將　 　(填文字：不變/變長/變短)。
（4）“音效”圖層中的聲音屬性如圖d所示，若要在不改變其他動畫效果的前提下，使“攜手”圖層補間動畫停止時聲音也同時停止播放，可進行的調整是　 　(多選，填字母：A ．在“攜手”圖層第20幀添加動作命令Stop All Sounds()； /B ．在“攜手”圖層第20幀添加動作命令Stop() ； /C
．將“音效”圖層聲音的同步方式修改為“數據流”， 并在該圖層第21幀插入關鍵幀/D ．將圖d中的重復次數更改為1/E ．刪除“音效”圖層第21幀到第60幀)。
（5）測試影片時，單擊該場景中“抗疫”按鈕時，跳轉到“抗疫”場景的第1幀開始播放，則“抗疫”按鈕的動作腳本為　 　。
15．（2020·東陽模擬）(郊游活動)有n名同學參加學校組織的郊游活動，已知學校提供給這n名同學的郊游總經費為cnt元，與此同時每位同學都自帶了部分錢。為了方便郊游，活動地點提供m(n<=m<=100)輛自行車供人租用，租用每輛自行車也需要花費錢，每位同學可以使用自己攜帶的錢或者學校的郊游經費，為了方便賬務管理，每位同學只能為自己租用自行車，且不會借錢給他人，他們想知道最多有多少位同學能夠租用到自行車。
租車原則是首先考慮自帶經費多的部分同學優先租相對花費少的自行車，盡量少花學校經費以達到最多同學租車的結果。比如學生帶的錢為9，3，6，7，5，租車的錢分別需要15，8，12，6，9，11，如果5個人都能租車，至少需要學校提供經費為(6-3)+(8-5)+(9-6)+(11-7)+(12-9)=16，如果學校經費只有10元，則自帶錢最少的同學不租車，這時所需學校經費為(6-5)+(8-6)+(9-7)+(11-9)=7。計算過程中采用二分查找法來判斷租用自行車的人數能否達到最大值。
（1）若7位同學自帶經費分別為5，17，15，12，10，9，14，自行車租車費用分別為27，14，27，25，17，18，23，21，學校提供經費為25元，則最多有　 　位同學能夠租用到自行車。
（2）VB程序代碼如下，請在劃線處填入合適的代碼。
Dim a( 1 To 100) As
Integer， b(
1 To 100) As Integer
Dim n As Integer， m As
Integer
Private Sub Command1_Click()
Dim left As Integer， right As Integer， mid As
Integer， an s As Integer
n=Val(Text 1.Text) ：m=Val(Text 2.Text)
‘從數據庫讀取n位同學帶的錢存儲在數組a，m輛自行車租用的錢存儲在數組b，代碼略。
Call px(a()，n)
Call px(b()，m)
left =1：right=n：ans= 0
Do While
left<=right
mid=(left+right) ＼ 2
If check(mid) =True Then
①
right =mid-1
Else
left =mid+ 1
End If
Loop
Label 1.Caption=“能租車的最大人數為”+Str(ans)
End Sub
Sub px(d() As Integer，
s As Integer)
Dimi as integer， j as integer， k as integer
For i=2Tos
k=d(i)
j=i-1
Do While kd(j+1)=d(j)
j=j-1
If j=0ThenExitDo
Loop
②
Next i
End Sub
Function check(mid As
Integer) As Boolean
Dim cnt As Integer， jf As Integer， t As
Integer
cnt=Val(Text 3．Text)
For t=1Ton-mid+ 1
If b(t) >a(mid+t-1) Then jf=b(t)
-a(mid+t-1) Else jf= 0
③
Next t
If cnt>= 0 Then check=True
End Function
①　 　②　 　③　 　
16．（2020·東陽模擬）求最大連續子矩陣和。給出一個矩陣，序列元素有正整數、0、負整數，在矩陣中限定一塊區域，并要求找到該限定區域內的一個子矩陣，使得這個子矩陣與限定區域同寬但可能不同高，且包含的所有元素之和為限定區域矩陣中最大值，在和最大的前提下還要求該子矩陣包含的元素個數最多。
算法描述如下：
1)從第一行開始向下進行累加，累加和若大于之前的最大和，則記錄此時的最大和及結束位置；
2)若累加和等于之前的最大和，但元素個數大于之前的最大和的元素個數，則記錄此連續子矩陣的結束位置；
3)若累加和小于0，則重新開始記錄；
4)若有符合條件的多個連續子矩陣，則輸出最先找到的子矩陣。
小俞編寫了一個實現該功能的VB程序，窗體加載時生成m*n個序列數據，依次存放在數組a，并顯示在列表框List1中，在文本框Text1中輸入該矩陣限定區域的左上角位置，在文本框Text2中輸入右下角位置，單擊“計算”按鈕Command1后，找出連續和最大的子矩陣，在標簽Label3上顯示最大連續子矩陣和，在Label 4上顯示該連續子矩陣的元素個數，在Label 5上顯示該連續子矩陣開始與結束位置。程序運行界面如圖所示。
（1）在設計程序界面時，要清空文本框中的顯示內容，應修改文本框的　 　屬性
（2）VB程序代碼如下，請在劃線處填入合適的代碼。
Const m=12：Const n= 6
Dim a(1 Tom*n) As
Integer
Private SubForm_Load()
‘生成m*n個數據，并顯示在列表框List 1，代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer， j As Integer， k As Integer，
temp As Integer
Dim length As integer， begin As Integer， sum
As Integer
Dim ks As String， js As String
Dim xy( 1 to 4) As Integer， h sum(1tom*n) As
Integer
‘讀取文本框Text 1的數值分別存儲到數組xy(1)、xy(2)，讀取文本框Text 2的數值分別存儲到數組xy(3)、xy(4)，xy(1)、xy(3)表示所在行，xy(2)、xy(4)表示所在列，代碼略
For
i=1 To xy(3) -xy(1) + 1
h sum(i) = 0
Next i
‘求限定區域內每行數據之和
For i=1 To xy(3) -xy(1) + 1
For j= 1 To ①
h sum(i) =h sum(i) +a((xy(1) +i-2)
*n+xy(2) +j-1)
Next j
Next i
‘找出最大連續之矩陣和
temp =0：sum=0：length=0：begin= 0
For i=1 To xy(3)-xy(1) + 1
If temp+h sum(i) >sum Then
sum=temp+h sum(i)
length=i-begin
k=i
ElseIf temp+h sum(i) =sum And ② Then
length=i-begin
k=i
End
If
If
temp+h sum(i) < 0 Then
begin=i
temp=
0
Else
temp=temp+h
sum(i)
End
If
Next i
ks=“(“ ③ ”+Str(xy(2)
) +) ” ‘開始位置
js=“(“+Str(k+xy(1)
-1) +” “+Str(xy(4) ) +”) ” ‘結束位置
Label
3.Caption=“最大子矩陣和為：”+Str(Sum)
Label
4.Caption=“子矩陣中的元素個數為：”+Str(length*(xy(4)
-xy(2) +1) )
Label
5.Caption=“子矩陣位置為：”+ks+“，”+js
End Sub
①　 　②　 　③　 　
答案解析部分
1．【答案】A
【知識點】信息技術的發展趨勢；多媒體作品的規劃和設計；圖形與圖像、位圖與矢量圖的概念；多媒體創作工具
2．【答案】C
【知識點】網絡協議；網絡資源的檢索；網頁、網站的概念與聯系；數字化概念與作用
3．【答案】B
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念
4．【答案】C
【知識點】文本的基本編輯
5．【答案】B
【知識點】信息的編碼；進制及數制轉換
6．【答案】D
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】算法的常用表示方法；算法的控制結構
9．【答案】C
【知識點】常量、變量及變量的賦值；程序訪問數據庫
10．【答案】A
【知識點】運算符、基本運算與表達式
11．【答案】B
【知識點】常量、變量及變量的賦值；排序算法及程序實現
12．【答案】D
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
13．【答案】（1）=SUMIF($A$3:$A$21,I3,$F$3:$F$21)
（2）B6:B10,E6:E10(或B3,B6:B10,E3,E6:E1)
（3）A；C
【知識點】表格數據的基本操作；表格數據的處理與計算
14．【答案】（1）AC
（2）形狀
（3）不變
（4）AD
（5）on(press){gotoAndPlay("抗疫",1);} 或on(release){gotoAndPlay("抗疫",1);}
【知識點】時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．【答案】（1）5
（2）ans = n - mid + 1；d(j + 1) = k；cnt = cnt – jf
【知識點】常量、變量及變量的賦值；過程與自定義函數；查找算法及程序實現
16．【答案】（1）text
（2）xy(4) - xy(2) + 1；i-begin > length；Str(k - length + xy(1))
【知識點】常見數據類型、數組；常量、變量及變量的賦值
1 / 1浙江省東陽市2020屆高三信息技術6月模擬考試卷
一、選擇題(本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分)
1．（2020·東陽模擬）關于信息和多媒體，下列說法正確的是（　　）
A．對位圖圖像的修改實質上就是修改圖像中的像素
B．Flash是一款以幀為基礎的多媒體創作與集成軟件
C．文字腳本包括作品的屏幕設計、鏈接關系的描述等內容，是多媒體作品制作的直接依據
D．現代信息技術以計算機和通信技術為基礎，以微電子和光電子技術為支撐
【答案】A
【知識點】信息技術的發展趨勢；多媒體作品的規劃和設計；圖形與圖像、位圖與矢量圖的概念；多媒體創作工具
2．（2020·東陽模擬）下列有關說法，不正確的是（　　）
A．因特網上存儲著海量信息，不同搜索引擎的檢索結果可能不同
B．聲音信息進行“采樣”和“量化”的加工過程，屬于“模數轉換”
C．靜態網頁可根據情況的變化、用戶的需要生成不同的頁面
D．POP 3協議將郵件從郵件服務器端送到個人終端機器上
【答案】C
【知識點】網絡協議；網絡資源的檢索；網頁、網站的概念與聯系；數字化概念與作用
3．（2020·東陽模擬）對于數據庫和數據表，下列說法不正確的是（　　）
A．數據庫可以存儲和管理文字、圖形、視頻等數據
B．Access數據表視圖中，可以修改記錄的字段值，也可設置某個字段為主鍵
C．Access同一張數據表中，常常用來存儲同一類型或同一主題的相關數據
D．Access數據表視圖中，表中的記錄和字段刪除后不可以使用撤銷命令來恢復，但在設計視圖中刪除字段后可以使用該命令來恢復
【答案】B
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念
4．（2020·東陽模擬）使用Word軟件編輯文檔，部分界面如下圖所示
下列說法正確的是（　　）
A．實現圖中的圖文環繞效果只能采用“四周型”環繞方式
B．文中有2處批注，若在第三行增加1處批注，則該批注序號為3
C．刪除批注內容“前行的動力”，前面的“批注：[stu 2] ”不會被一起刪除
D．文中共有4處修訂，執行“接受所有修訂”命令，最后一句話是“覺得竟是如此的不可思議。”
【答案】C
【知識點】文本的基本編輯
5．（2020·東陽模擬）使用UltraEdit軟件觀察字符“眾志成城，抗擊疫情”的內碼部分界面如圖所示。下列說法正確的是（　　）
A．字符“疫”的十六進制內碼為“F7 D2”
B．字符“城”的二進制編碼是10110011 11000111
C．存儲“眾志成城，抗擊疫情”共需要16字節的存儲空間
D．圖中共有9個GB2312碼字符
【答案】B
【知識點】信息的編碼；進制及數制轉換
6．（2020·東陽模擬）使用Goldwave軟件處理音頻，部分操作界面如圖所示
在當前狀態下，下列說法正確的是（　　）
A．執行“插入靜音”操作，右聲道音頻時長不變
B．執行“剪裁”操作，再“粘貼”，左聲道音頻時長不變
C．該音頻的播放速率為每秒播放128千個字節
D．按照原參數另存為WAV格式， 音頻存儲容量增大
【答案】D
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
7．（2020·東陽模擬）下列VB表達式的值為False的是（　　）
A．50 Mod 100＼50= 1 B．Int(2*Rnd-Rnd) ＼2= 0
C．Int(Rnd*10) /5< 2 D．”22”>”112”
【答案】A
【知識點】運算符、基本運算與表達式
8．（2020·東陽模擬）某算法的流程圖如圖所示。執行這部分流程，輸入41，則輸出的值是（　　）
A．0 B．19 C．22 D．32
【答案】B
【知識點】算法的常用表示方法；算法的控制結構
9．（2020·東陽模擬）有如下VB程序段
Dim conn As New ADODB.Connection
Di mrs As New ADODB.Recordset
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0；DataSource=” & App.Path & “＼詞庫.accdb”
conn.Open
Set rs.Active Connection=conn
rs.Open “SELECT*FROM words”
n=0
Do While Not rs.EOF
n=n+1
en(n) =rs.Fields(1)
ch(n) =rs.Fields(2)
rs.MoveNext
Loop
rs.Close
conn.Close
下列說法中正確的是（　　）
①連接的數據庫文件名是“＼詞庫．accdb”
②程序運行后，變量n的值表示該數據表中記錄的總數
③數組en(n)所存儲的是數據表第2個字段的字段值
④“ConnectionString”是conn對象的屬性值
⑤查詢的數據表名稱是“words”
⑥省略語句“rs．MoveNext”，程序也可以正常運行
A．①④⑤ B．③④⑥ C．②③⑤ D．②③④
【答案】C
【知識點】常量、變量及變量的賦值；程序訪問數據庫
10．（2020·東陽模擬）字符串旋轉。若整型變量s、t、c的值分別為3、9、4，則下列程序執行后str 1的值為（　　）
str 1=“go it for！”
str 2=Mid(str 1， s， t-s+1)
len 1=Len(str 1) ：len 2=Len(str 2)
c=c Mod len 2
For i=1To c
str 2=Mid(str 2， len 2， 1) +Mid(str 2， 1， len 2-1)
Next i
str 1=Mid(str 1，1，s-1) +str 2+Mid(str 1，t+1，len 1-t)
A．go for it！ B．for！go it C．for it go！ D．it for go！
【答案】A
【知識點】運算符、基本運算與表達式
11．（2020·東陽模擬）有如下VB程序段：
Dim d(1 to 5) As Integer， i As Integer
For i= 1 To 8
a(i) =Int(Rnd*10) + 1
Next i
For i=1 To 5 Step 2
k=i
For j=i+2 To 7 Step 2
If a(j) Next j
Then k=j
If i<>k Then
t=a(i)：a(i)=a(k)：a(k)=t
t=a(i+1)：a(i+1)=a(k+1)：a(k+1)=t
EndIf
Next i
運行該程序段后，數組a各元素的值可能為（　　）
A．1，2，1，1，4，3，6，5 B．1，1，1，2，3，4，5，6
C．0，1，5，2，7，4，5，6 D．3，4，5，2，6，4，7，11
【答案】B
【知識點】常量、變量及變量的賦值；排序算法及程序實現
12．（2020·東陽模擬）有如下VB程序段：
Private Sub Command1_Click()
Dim a( 1 To 6) As Integer， i As Integer
For i= 1 To 6
a(i) =Int(Rnd*5) *2+ 1
Next i
For i=2 To 6 Step 2
a(i) =cha(a(i-1) ， a(i) )
Next i
End Sub
Function cha(x As Integer， y As Integer) As Integer
Dim t As Integer
If xt=x：x=y：y=t
cha=y
Else
cha=x-1
End If
EndFunction
執行該程序段后，在下列選項中，a(1)~a(6)各元素值可能的是（　　）
A．8，9，3，2，5，1 B．7，6，5，5，3，1
C．9，3，5，4，4，3 D．7，3，1，0，5，4
【答案】D
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·東陽模擬）小趙對公司某一食品倉庫的庫存進行整理統計，數據情況如圖a所示。請回答下列問題：
（1）圖a中J3：J6單元格計算同類產品的銷售額之和，J4：J6的公式是從J3單元格通過自動填充功能得出，可知J3單元格公式為 　 　(提示：SUM IF函數返回滿足條件的單元格之和。例如： =SUM IF(F2：F10， H 3，D2：D10) =，F2：F10為條件范圍，H3為條件，D2：D10為求和范圍)
（2）根據圖a中的數據制作的圖表如圖b所示，則創建該圖表的數據區域是　 　。
（3）小趙想找出調味品庫存量最多的兩個產品，下列方法可行的是 (多選，填字母)
A．以“產品”為調味品進行篩選，以“庫存量”為關鍵字降序排序，選取排在最前面兩個產品
B．以“庫存量”為主要關鍵字降序排序，以“產品”為次要關鍵字降序排序，選取排在最前面兩個產品
C．以“產品”為主要關鍵字降序排序，以“庫存量”為次要關鍵字降序排序，選取排在最前面兩個產品
D．以“產品”為調味品進行篩選，“庫存量”為最大2項進行篩選，然后選取篩選出的產品
【答案】（1）=SUMIF($A$3:$A$21,I3,$F$3:$F$21)
（2）B6:B10,E6:E10(或B3,B6:B10,E3,E6:E1)
（3）A；C
【知識點】表格數據的基本操作；表格數據的處理與計算
14．（2020·東陽模擬）小王制作主題為“共戰疫情”的多媒體作品，首先使用Photoshop軟件處理圖片，然后使用Flash軟件制作動畫。請回答下列問題：
（1）使用Photoshop軟件處理“共戰疫情．psd”，如圖a所示。為使“加油！加油！”在“存儲為”JPG格式后的圖片中不可見， 下列操作可行的有　 　(多選，填字母：A ．將當前圖層設為不可見/B ．將當前圖層移到“背景”圖層下方/C ．使用“移動工具”將“加油！加油！”移到畫布外/D ．使用“橡皮擦工具”擦除“加油！加油！”/E ．將當前圖層柵格化)。
（2）如圖b所示，“標題”圖層中第1幀到第20幀實現了由“齊心協力”逐漸變成“眾志成城”的動畫效果，則該圖層第20幀上對象的類型為
　 　(填文字：位圖/影片剪輯/形狀/靜態文本)。
（3）“文字”圖層的補間動畫屬性設置如圖c所示，若將“緩動”的值由0改為100，則該圖層這段補間動畫播放一次所需的時間將　 　(填文字：不變/變長/變短)。
（4）“音效”圖層中的聲音屬性如圖d所示，若要在不改變其他動畫效果的前提下，使“攜手”圖層補間動畫停止時聲音也同時停止播放，可進行的調整是　 　(多選，填字母：A ．在“攜手”圖層第20幀添加動作命令Stop All Sounds()； /B ．在“攜手”圖層第20幀添加動作命令Stop() ； /C
．將“音效”圖層聲音的同步方式修改為“數據流”， 并在該圖層第21幀插入關鍵幀/D ．將圖d中的重復次數更改為1/E ．刪除“音效”圖層第21幀到第60幀)。
（5）測試影片時，單擊該場景中“抗疫”按鈕時，跳轉到“抗疫”場景的第1幀開始播放，則“抗疫”按鈕的動作腳本為　 　。
【答案】（1）AC
（2）形狀
（3）不變
（4）AD
（5）on(press){gotoAndPlay("抗疫",1);} 或on(release){gotoAndPlay("抗疫",1);}
【知識點】時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用
15．（2020·東陽模擬）(郊游活動)有n名同學參加學校組織的郊游活動，已知學校提供給這n名同學的郊游總經費為cnt元，與此同時每位同學都自帶了部分錢。為了方便郊游，活動地點提供m(n<=m<=100)輛自行車供人租用，租用每輛自行車也需要花費錢，每位同學可以使用自己攜帶的錢或者學校的郊游經費，為了方便賬務管理，每位同學只能為自己租用自行車，且不會借錢給他人，他們想知道最多有多少位同學能夠租用到自行車。
租車原則是首先考慮自帶經費多的部分同學優先租相對花費少的自行車，盡量少花學校經費以達到最多同學租車的結果。比如學生帶的錢為9，3，6，7，5，租車的錢分別需要15，8，12，6，9，11，如果5個人都能租車，至少需要學校提供經費為(6-3)+(8-5)+(9-6)+(11-7)+(12-9)=16，如果學校經費只有10元，則自帶錢最少的同學不租車，這時所需學校經費為(6-5)+(8-6)+(9-7)+(11-9)=7。計算過程中采用二分查找法來判斷租用自行車的人數能否達到最大值。
（1）若7位同學自帶經費分別為5，17，15，12，10，9，14，自行車租車費用分別為27，14，27，25，17，18，23，21，學校提供經費為25元，則最多有　 　位同學能夠租用到自行車。
（2）VB程序代碼如下，請在劃線處填入合適的代碼。
Dim a( 1 To 100) As
Integer， b(
1 To 100) As Integer
Dim n As Integer， m As
Integer
Private Sub Command1_Click()
Dim left As Integer， right As Integer， mid As
Integer， an s As Integer
n=Val(Text 1.Text) ：m=Val(Text 2.Text)
‘從數據庫讀取n位同學帶的錢存儲在數組a，m輛自行車租用的錢存儲在數組b，代碼略。
Call px(a()，n)
Call px(b()，m)
left =1：right=n：ans= 0
Do While
left<=right
mid=(left+right) ＼ 2
If check(mid) =True Then
①
right =mid-1
Else
left =mid+ 1
End If
Loop
Label 1.Caption=“能租車的最大人數為”+Str(ans)
End Sub
Sub px(d() As Integer，
s As Integer)
Dimi as integer， j as integer， k as integer
For i=2Tos
k=d(i)
j=i-1
Do While kd(j+1)=d(j)
j=j-1
If j=0ThenExitDo
Loop
②
Next i
End Sub
Function check(mid As
Integer) As Boolean
Dim cnt As Integer， jf As Integer， t As
Integer
cnt=Val(Text 3．Text)
For t=1Ton-mid+ 1
If b(t) >a(mid+t-1) Then jf=b(t)
-a(mid+t-1) Else jf= 0
③
Next t
If cnt>= 0 Then check=True
End Function
①　 　②　 　③　 　
【答案】（1）5
（2）ans = n - mid + 1；d(j + 1) = k；cnt = cnt – jf
【知識點】常量、變量及變量的賦值；過程與自定義函數；查找算法及程序實現
16．（2020·東陽模擬）求最大連續子矩陣和。給出一個矩陣，序列元素有正整數、0、負整數，在矩陣中限定一塊區域，并要求找到該限定區域內的一個子矩陣，使得這個子矩陣與限定區域同寬但可能不同高，且包含的所有元素之和為限定區域矩陣中最大值，在和最大的前提下還要求該子矩陣包含的元素個數最多。
算法描述如下：
1)從第一行開始向下進行累加，累加和若大于之前的最大和，則記錄此時的最大和及結束位置；
2)若累加和等于之前的最大和，但元素個數大于之前的最大和的元素個數，則記錄此連續子矩陣的結束位置；
3)若累加和小于0，則重新開始記錄；
4)若有符合條件的多個連續子矩陣，則輸出最先找到的子矩陣。
小俞編寫了一個實現該功能的VB程序，窗體加載時生成m*n個序列數據，依次存放在數組a，并顯示在列表框List1中，在文本框Text1中輸入該矩陣限定區域的左上角位置，在文本框Text2中輸入右下角位置，單擊“計算”按鈕Command1后，找出連續和最大的子矩陣，在標簽Label3上顯示最大連續子矩陣和，在Label 4上顯示該連續子矩陣的元素個數，在Label 5上顯示該連續子矩陣開始與結束位置。程序運行界面如圖所示。
（1）在設計程序界面時，要清空文本框中的顯示內容，應修改文本框的　 　屬性
（2）VB程序代碼如下，請在劃線處填入合適的代碼。
Const m=12：Const n= 6
Dim a(1 Tom*n) As
Integer
Private SubForm_Load()
‘生成m*n個數據，并顯示在列表框List 1，代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer， j As Integer， k As Integer，
temp As Integer
Dim length As integer， begin As Integer， sum
As Integer
Dim ks As String， js As String
Dim xy( 1 to 4) As Integer， h sum(1tom*n) As
Integer
‘讀取文本框Text 1的數值分別存儲到數組xy(1)、xy(2)，讀取文本框Text 2的數值分別存儲到數組xy(3)、xy(4)，xy(1)、xy(3)表示所在行，xy(2)、xy(4)表示所在列，代碼略
For
i=1 To xy(3) -xy(1) + 1
h sum(i) = 0
Next i
‘求限定區域內每行數據之和
For i=1 To xy(3) -xy(1) + 1
For j= 1 To ①
h sum(i) =h sum(i) +a((xy(1) +i-2)
*n+xy(2) +j-1)
Next j
Next i
‘找出最大連續之矩陣和
temp =0：sum=0：length=0：begin= 0
For i=1 To xy(3)-xy(1) + 1
If temp+h sum(i) >sum Then
sum=temp+h sum(i)
length=i-begin
k=i
ElseIf temp+h sum(i) =sum And ② Then
length=i-begin
k=i
End
If
If
temp+h sum(i) < 0 Then
begin=i
temp=
0
Else
temp=temp+h
sum(i)
End
If
Next i
ks=“(“ ③ ”+Str(xy(2)
) +) ” ‘開始位置
js=“(“+Str(k+xy(1)
-1) +” “+Str(xy(4) ) +”) ” ‘結束位置
Label
3.Caption=“最大子矩陣和為：”+Str(Sum)
Label
4.Caption=“子矩陣中的元素個數為：”+Str(length*(xy(4)
-xy(2) +1) )
Label
5.Caption=“子矩陣位置為：”+ks+“，”+js
End Sub
①　 　②　 　③　 　
【答案】（1）text
（2）xy(4) - xy(2) + 1；i-begin > length；Str(k - length + xy(1))
【知識點】常見數據類型、數組；常量、變量及變量的賦值
1 / 1

展開更多......

收起↑