資源簡介

浙江省嘉興市2020屆高三信息技術5月教學測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的。)
1．（2020·嘉興模擬）下列關于信息的說法，錯誤的是（　　）
A．報刊書籍是常用的信息表達技術
B．信息可以脫離載體但不能脫離它所反映的事物
C．信息必須通過編碼轉換為二進制代碼才能被計算機處理
D．英文字母的機內碼一般使用ASCII碼，反映了信息表達的規范化
2．（2020·嘉興模擬）下列關于人工智能的說法，錯誤的是（　?。?br/>A．人工智能技術可以對人的意識、思維進行模擬
B．學生上課刷卡簽到的過程應用了人工智能技術
C．通過虹膜識別辨識身份的開鎖方式應用了人工智能技術
D．人工智能研究領域包括語音識別、圖像識別和自然語言處理等
3．（2020·嘉興模擬）下列有關數據庫的說法，正確的是（　　）
A．Access數據表中的記錄刪除后可以撤銷
B．一個數據庫管理系統只能管理一個數據庫
C．數據庫系統中的數據不存在冗余
D．數據表是關于特定主題數據的集合
4．（2020·嘉興模擬）下列應用中，沒有體現對信息進行編碼的是（　?。?br/>A．在Word文檔中查找“2020”
B．用掃描儀獲取一張紙質照片的電子稿
C．生成址的二維碼
D．用麥克風和GoldWave軟件錄制一段音頻
5．（2020·嘉興模擬）用Photoshop軟件設計一張名片，部分界面如下圖所示。下列說法正確的是（　?。?br/>A．當前有3個圖層可以直接設置濾鏡效果
B．降低“背景”圖層的不透明度背景顏色會變淡
C．可用“自由變換”命令修改“個人信息”圖層中文字大小
D．交換“橫條”和“藝海廣告有限公司”圖層順序不影響作品呈現效果
6．（2020·嘉興模擬）一幅未經壓縮的1024×768像素、24位真彩色的BMP圖像，存儲為JPG格式(其他參數不變)后其存儲容量為168KB，則該圖像的壓縮比約為（　?。?br/>A．2：1 B．4：1 C．14：1 D．110：1
7．（2020·嘉興模擬）數組元素a(1)～a(n)中存儲了n個正整數，下列哪個表達式為True時，可檢測數組奇數位置元素的值為偶數（　?。?br/>A．a(i) Mod 2=i Mod 2-1 B．a(i) Mod 2=i Mod 2
C．a(i) Mod 2=0 Or i Mod 2=1 D．a(i) Mod 2=1 And i Mod 2=0
8．（2020·嘉興模擬）某算法的部分流程圖如圖所示。執行這部分流程后，n2和n1的值分別是（　　）
A．7，8 B．7，0 C．8，8 D．8，0
9．（2020·嘉興模擬）采用冒泡排序算法對字符串序列“f，i，g，h，t”自右向左排序，兩遍排序后的序列可能為（　?。?br/>①t，f，i，g，h ②f，g，h，i，t ③t，i，f，h，g ④i，h，t，g，f
A．①④ B．①③ C．②③ D．②④
10．（2020·嘉興模擬）有如下VB程序段：
Const n=3
Dim a(1 To n * n) As Integer
Dim I As Integer, j As Integer, s As String
List1.Clear
Randomize
For i=1To n
s=“”
For j=1 To n
a((i- 1)*n+ j)= Int(Rnd*i+j)
s=s + Str(a((i-1)*n+j))
Next j
List1.AddItem s
Next i
執行程序后，列表框List1中輸出的不可能是（　?。?br/>A． B． C． D．
11．（2020·嘉興模擬）有如下VB程序段，在文本框Text1中輸入一個僅包含字符“0”與“1”的字符串(字符串中沒有連續的“1”)，將其中任意位置的“0”翻轉為“1”，但要確保翻轉之后的字符串中仍然沒有連續的“1”，求最多可翻轉的“0”的個數，并在標簽Label1中輸出。
如：字符串“100101000100”中最多可將2個“0”翻轉為“1”，變為“ ”
s = "0" & Text1.Text & "0"
c=0: i= 2
Do While i< Len(s)
If ① Then
i=i+2
ElseIf ② Then
i=i+ 1
Elself ③ Then
i=i+3
Else
i=i+2: c=c+ 1
End If
Loop
Label1.Caption = "最多可翻轉" & Str(c) & "個0"
上述程序中方框處可選語句為：
①Mid(s，i-1，1)="1" ②Mid(s，i，1)="1" ③Mid(s，i+1，1)="1"
則①②③處語句依次是（　?。?br/>A．①②③ B．③②① C．②①③ D．②③①
12．（2020·嘉興模擬）編寫一個基于對分查找插入數據的程序代碼。實現把數據temp插入降序序列后得到一個新的降序序列，原序列各元素存放在數組元素a(1)-a(n)中。實現上述功能的程序段如下：
temp = Val(Text1.Text)
If temp <= a(n) Then
a(n + 1)= temp
Else
left= 1: right= n
Do While left <= right
mid = (left + right) \2
If ① Then right= mid- 1 Else left= mid+ 1
Loop
For j= n To left Step-1
②
Next j
③
End If
則橫線①②③上的語句分別是（　?。?br/>A．①a(mid)>temp ②a(j)=a(j-1) ③a(right+1)=temp
B．①a(mid)C．①a(mid)>temp ②a(j+1)=a(j) ③a(right+1)=temp
D．①a(mid)二、非選擇題(本大題共4小題，4+8+7+7，共26分。)
13．（2020·嘉興模擬）使用Excel軟件處理2019年7～12月小雜糧重點品種批發、零售價格數據，如圖所示。請回答下列問題：
（1）若要正確計算各種小雜糧的“平均零售價格”，可對C18單元格中的公式進行修改，再自動填充至區域D18：I18，則C18單元格中的公式是　 　。
(提示：AVERAGEIF函數用于返回某個區域內滿足給定條件的所有單元格的平均值。例如：=AVERAGEIF(B4：B15，"=批發"，D4：D15)用于計算7～12月綠豆的平均批發價格。)
（2）若C18單元格中的公式修改正確，并將區域C4：I15單元格的數值小數位數設置為1，則C18單元格中顯示的值　 　 (填字母：A
.變大/B .不變/C .變小)。
（3）要獲取7～12月紅小豆的最低零售價格，下列方法可行的是 (多選，填字母)。
A．使用MIN函數計算區域C4：C15中的最小值
B．以“批發/零售”列為零售、“紅小豆”列為最小1項進行篩選
C．以“批發/零售”列為零售進行篩選，以篩選結果中“日期”和“紅小豆”兩列數據為數據區域創建折線圖，選取圖上最低點的值
D．對區域A3：I15中的數據，以“批發/零售”為主要關鍵字、“紅小豆”為次要關鍵字，均按降序排序，選取單元格C15的值
14．（2020·嘉興模擬）用Flash軟件制作主題為“南湖菱”的作品，其“main”場景的制作腳本如下：
場景名：main 類別序號：2 進入方式：來自begin場景，通過“開始”按鈕進入
呈現方式： ⒈“logo”圖層的動畫位于舞臺左下角，從透明變化到完全顯示，并同時由快至慢順時針旋轉3圈 ⒉單擊“結束”按鈕，動畫跳轉到“end”場景第1幀并播放 (其他略)。 呈現順序說明： ⒈開始出現背景圖片、背景音樂和“標題”動畫 ⒉ 1秒后出現“簡介”和“logo”動畫。 ⒊最后出現“結束”按鈕 ⒋本場景動畫播放到最后停止，背景音樂隨之停止 (其他略)
編輯界面如圖a所示。
請回答下列問題：
（1）根據制作腳本、圖a和圖b，以下說法正確的是 (多選，填字母)。
A．當前場景至少需要添加2個按鈕
B．若背景音樂的時長為90秒，則同步方式應設為“數據流”
C．本場景制作腳本完成后還需進一步編寫相應的文字腳本
D．實現“本場景動畫播放到最后停止”的動作命令可直接添加在“按鈕”圖層上
E．圖b為矢量圖素材，是真實物體模型化、抽象化和線條化后得到的圖形
（2）根據制作腳本，在制作“logo”圖層的補間動畫時，補間類型應選擇　 　(選填：動畫補間/形狀補間)；其“緩動”值設置為　 　(選填：0/正/負)。
（3）測試場景時發現“logo”圖層第13幀～18幀的動畫播放速度太快。在不改變其他動畫播放速度的前提下，使其速度變為原來的一半，則在“logo”圖層中應進行的操作是　 　。
（4）根據制作腳本，“結束”按鈕上的動作腳本正確的有 (多選，填字母)。
A．on(press){gotoAndPlay("end",1);}
B．on(release){gotoAndStop("end",1);}
C．on(release){play();}
D．on(press){gotoAndPlay(1);}
15．（2020·嘉興模擬）編寫一個VB抽獎程序，功能如下：從數據庫讀取相關數據并顯示在列表框List1中，在文本框Text1中輸入中獎人數，單擊“抽獎”按鈕Command1，在列表框List2中輸出結果。
抽獎規則：中獎人數為1人，男女不限：
中獎人數超1人，男女對半(奇數時女性多1人)。
程序運行界面如圖所示。
實現上述功能的VB程序如下：
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer '學生總人數
Dim a(1 To 100) As Integer '抽中序號
Private Sub Form_ LoadO
'本過程讀取n位同學的序號、姓名和性別，
'分別存儲在數組xh、xm、xb中
并在列表框List1中顯示，代碼略
End Sub
Private Sub Command1_ ClickO
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & " " & "性別"
rs= ①
For i=1 To n
If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0
Next i
m=0
girl=0
If rs= 1 Then
x= Int(Rnd* n)+ 1
List2.AddItem xm(x) &" "&xb(x)
Else
Do While mx = Int(Rnd* n)+ 1
If checkf(x) Then
m=m+1: a(m)=x
girl = girl + xbs(a(m))
If ② Then
a(m)=0: m=m-1
ElseIf girl> (rs+1)\2 Then
a(m)=0: m=m-1
③
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核對重復中獎，未中過獎返回True
'代碼略
End Function
（1）請在劃線處①②③中填入合適的代碼。
①　 　②　 ?、邸? 　
（2）程序中加框代碼有錯，請改正。
16．（2020·嘉興模擬）給出n個不重復的介于區間[1-10，10]的整數(n≤10)，查找區間中未出現的正整數。例如：
按上述要求，編寫一個VB程序：在文本框Text1中輸入n個整數(逗號分隔并以逗號結尾)，單擊“查找”按鈕Command1，在標簽Label2中輸出查找結果。程序運行界面如圖所示。
（1）對從輸入字符串中提取的n個整數排序：將其中的正整數進行升序排序，排序后正整數在前，其它的在后。以圖中數據為例(10，3，-2，0，-6，6，-5，2，)提取整數，采用如下程序的選擇排序算法，所需的交換次數為　 　次。
（2）請在劃線處①②③中填入合適的代碼。
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res AS String, t1 As String, t2 As Integer
Dim m As Integer
'm記錄正整數的個數
Dim a(1 To 10) As Integer
s = Text1.Text
n= 0
For i= 1 To Len(s) ‘提取整數，并保存在數組a中
ch = Mid(s, i, 1)
If ch = "," Then
n=n+1
a(n)= Val(t1)
t1=“”
Else
t1=t1 + ch
End If
Next i
For i=1To n-1
k=i
For j=i+ 1 Ton
If a(j)> 0 Then
If ① Then k=j
End If
Next j
If k<>i Then
t2 = a(k): a(k) = a(i): a(i)= t2
End If
If ② Then
m = i 'm記錄正整數的個數小
Else
Exit For
End If
Next i
For i= m To 1 Step-1
③
Next i
For i= 1 To 10
If a(i) <>i Then res= res+ Str(i)+","
Next i
Label2.Caption = res
End Sub
①　 ?、凇? 　③　 　
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息表達方式與表達技術；信息表達要求
2．【答案】B
【知識點】人工智能的應用
3．【答案】D
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．【答案】A
【知識點】信息的編碼
5．【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．【答案】C
【知識點】排序算法及程序實現
10．【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；循環結構語句及程序實現
11．【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．【答案】D
【知識點】常量、變量及變量的賦值；查找算法及程序實現
13．【答案】（1）=AVERAGEIF($B$4:$BS15,"=零 售" ,C4:C15) 或=AVERAGEIF($B4:$B15,"=零售",C4:C15) 或=AVERAGEIF($B$4:$B$15,"零售",C4:C15) 或=AVERAGEIF($B4:$B15," 零售",C4:C15)
（2）B
（3）C；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．【答案】（1）B；D；E
（2）動畫補間；正
（3）將"logo"圖層第18幀移動到第24幀
（4）A；C
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；動畫的實現；常用影片控制函數的應用
15．【答案】（1）Val(Text1.Text)；m-girl> rs \2；girl= girl- 1
（2）xm(a(i)&" " & xb(a(i)
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
16．【答案】（1）3
（2）a(j) < a(k) or a(k) <= 0；a(i)>0；a(i)) = a(i)
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；排序算法及程序實現
1 / 1浙江省嘉興市2020屆高三信息技術5月教學測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的。)
1．（2020·嘉興模擬）下列關于信息的說法，錯誤的是（　?。?br/>A．報刊書籍是常用的信息表達技術
B．信息可以脫離載體但不能脫離它所反映的事物
C．信息必須通過編碼轉換為二進制代碼才能被計算機處理
D．英文字母的機內碼一般使用ASCII碼，反映了信息表達的規范化
【答案】B
【知識點】信息及其特征；信息表達方式與表達技術；信息表達要求
2．（2020·嘉興模擬）下列關于人工智能的說法，錯誤的是（　　）
A．人工智能技術可以對人的意識、思維進行模擬
B．學生上課刷卡簽到的過程應用了人工智能技術
C．通過虹膜識別辨識身份的開鎖方式應用了人工智能技術
D．人工智能研究領域包括語音識別、圖像識別和自然語言處理等
【答案】B
【知識點】人工智能的應用
3．（2020·嘉興模擬）下列有關數據庫的說法，正確的是（　?。?br/>A．Access數據表中的記錄刪除后可以撤銷
B．一個數據庫管理系統只能管理一個數據庫
C．數據庫系統中的數據不存在冗余
D．數據表是關于特定主題數據的集合
【答案】D
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．（2020·嘉興模擬）下列應用中，沒有體現對信息進行編碼的是（　　）
A．在Word文檔中查找“2020”
B．用掃描儀獲取一張紙質照片的電子稿
C．生成址的二維碼
D．用麥克風和GoldWave軟件錄制一段音頻
【答案】A
【知識點】信息的編碼
5．（2020·嘉興模擬）用Photoshop軟件設計一張名片，部分界面如下圖所示。下列說法正確的是（　?。?br/>A．當前有3個圖層可以直接設置濾鏡效果
B．降低“背景”圖層的不透明度背景顏色會變淡
C．可用“自由變換”命令修改“個人信息”圖層中文字大小
D．交換“橫條”和“藝海廣告有限公司”圖層順序不影響作品呈現效果
【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2020·嘉興模擬）一幅未經壓縮的1024×768像素、24位真彩色的BMP圖像，存儲為JPG格式(其他參數不變)后其存儲容量為168KB，則該圖像的壓縮比約為（　?。?br/>A．2：1 B．4：1 C．14：1 D．110：1
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2020·嘉興模擬）數組元素a(1)～a(n)中存儲了n個正整數，下列哪個表達式為True時，可檢測數組奇數位置元素的值為偶數（　?。?br/>A．a(i) Mod 2=i Mod 2-1 B．a(i) Mod 2=i Mod 2
C．a(i) Mod 2=0 Or i Mod 2=1 D．a(i) Mod 2=1 And i Mod 2=0
【答案】A
【知識點】運算符、基本運算與表達式
8．（2020·嘉興模擬）某算法的部分流程圖如圖所示。執行這部分流程后，n2和n1的值分別是（　?。?br/>A．7，8 B．7，0 C．8，8 D．8，0
【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．（2020·嘉興模擬）采用冒泡排序算法對字符串序列“f，i，g，h，t”自右向左排序，兩遍排序后的序列可能為（　?。?br/>①t，f，i，g，h ②f，g，h，i，t ③t，i，f，h，g ④i，h，t，g，f
A．①④ B．①③ C．②③ D．②④
【答案】C
【知識點】排序算法及程序實現
10．（2020·嘉興模擬）有如下VB程序段：
Const n=3
Dim a(1 To n * n) As Integer
Dim I As Integer, j As Integer, s As String
List1.Clear
Randomize
For i=1To n
s=“”
For j=1 To n
a((i- 1)*n+ j)= Int(Rnd*i+j)
s=s + Str(a((i-1)*n+j))
Next j
List1.AddItem s
Next i
執行程序后，列表框List1中輸出的不可能是（　　）
A． B． C． D．
【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；循環結構語句及程序實現
11．（2020·嘉興模擬）有如下VB程序段，在文本框Text1中輸入一個僅包含字符“0”與“1”的字符串(字符串中沒有連續的“1”)，將其中任意位置的“0”翻轉為“1”，但要確保翻轉之后的字符串中仍然沒有連續的“1”，求最多可翻轉的“0”的個數，并在標簽Label1中輸出。
如：字符串“100101000100”中最多可將2個“0”翻轉為“1”，變為“ ”
s = "0" & Text1.Text & "0"
c=0: i= 2
Do While i< Len(s)
If ① Then
i=i+2
ElseIf ② Then
i=i+ 1
Elself ③ Then
i=i+3
Else
i=i+2: c=c+ 1
End If
Loop
Label1.Caption = "最多可翻轉" & Str(c) & "個0"
上述程序中方框處可選語句為：
①Mid(s，i-1，1)="1" ②Mid(s，i，1)="1" ③Mid(s，i+1，1)="1"
則①②③處語句依次是（　　）
A．①②③ B．③②① C．②①③ D．②③①
【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．（2020·嘉興模擬）編寫一個基于對分查找插入數據的程序代碼。實現把數據temp插入降序序列后得到一個新的降序序列，原序列各元素存放在數組元素a(1)-a(n)中。實現上述功能的程序段如下：
temp = Val(Text1.Text)
If temp <= a(n) Then
a(n + 1)= temp
Else
left= 1: right= n
Do While left <= right
mid = (left + right) \2
If ① Then right= mid- 1 Else left= mid+ 1
Loop
For j= n To left Step-1
②
Next j
③
End If
則橫線①②③上的語句分別是（　?。?br/>A．①a(mid)>temp ②a(j)=a(j-1) ③a(right+1)=temp
B．①a(mid)C．①a(mid)>temp ②a(j+1)=a(j) ③a(right+1)=temp
D．①a(mid)【答案】D
【知識點】常量、變量及變量的賦值；查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分。)
13．（2020·嘉興模擬）使用Excel軟件處理2019年7～12月小雜糧重點品種批發、零售價格數據，如圖所示。請回答下列問題：
（1）若要正確計算各種小雜糧的“平均零售價格”，可對C18單元格中的公式進行修改，再自動填充至區域D18：I18，則C18單元格中的公式是　 　。
(提示：AVERAGEIF函數用于返回某個區域內滿足給定條件的所有單元格的平均值。例如：=AVERAGEIF(B4：B15，"=批發"，D4：D15)用于計算7～12月綠豆的平均批發價格。)
（2）若C18單元格中的公式修改正確，并將區域C4：I15單元格的數值小數位數設置為1，則C18單元格中顯示的值　 　 (填字母：A
.變大/B .不變/C .變小)。
（3）要獲取7～12月紅小豆的最低零售價格，下列方法可行的是 (多選，填字母)。
A．使用MIN函數計算區域C4：C15中的最小值
B．以“批發/零售”列為零售、“紅小豆”列為最小1項進行篩選
C．以“批發/零售”列為零售進行篩選，以篩選結果中“日期”和“紅小豆”兩列數據為數據區域創建折線圖，選取圖上最低點的值
D．對區域A3：I15中的數據，以“批發/零售”為主要關鍵字、“紅小豆”為次要關鍵字，均按降序排序，選取單元格C15的值
【答案】（1）=AVERAGEIF($B$4:$BS15,"=零 售" ,C4:C15) 或=AVERAGEIF($B4:$B15,"=零售",C4:C15) 或=AVERAGEIF($B$4:$B$15,"零售",C4:C15) 或=AVERAGEIF($B4:$B15," 零售",C4:C15)
（2）B
（3）C；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．（2020·嘉興模擬）用Flash軟件制作主題為“南湖菱”的作品，其“main”場景的制作腳本如下：
場景名：main 類別序號：2 進入方式：來自begin場景，通過“開始”按鈕進入
呈現方式： ⒈“logo”圖層的動畫位于舞臺左下角，從透明變化到完全顯示，并同時由快至慢順時針旋轉3圈 ⒉單擊“結束”按鈕，動畫跳轉到“end”場景第1幀并播放 (其他略)。 呈現順序說明： ⒈開始出現背景圖片、背景音樂和“標題”動畫 ⒉ 1秒后出現“簡介”和“logo”動畫。 ⒊最后出現“結束”按鈕 ⒋本場景動畫播放到最后停止，背景音樂隨之停止 (其他略)
編輯界面如圖a所示。
請回答下列問題：
（1）根據制作腳本、圖a和圖b，以下說法正確的是 (多選，填字母)。
A．當前場景至少需要添加2個按鈕
B．若背景音樂的時長為90秒，則同步方式應設為“數據流”
C．本場景制作腳本完成后還需進一步編寫相應的文字腳本
D．實現“本場景動畫播放到最后停止”的動作命令可直接添加在“按鈕”圖層上
E．圖b為矢量圖素材，是真實物體模型化、抽象化和線條化后得到的圖形
（2）根據制作腳本，在制作“logo”圖層的補間動畫時，補間類型應選擇　 　(選填：動畫補間/形狀補間)；其“緩動”值設置為　 　(選填：0/正/負)。
（3）測試場景時發現“logo”圖層第13幀～18幀的動畫播放速度太快。在不改變其他動畫播放速度的前提下，使其速度變為原來的一半，則在“logo”圖層中應進行的操作是　 　。
（4）根據制作腳本，“結束”按鈕上的動作腳本正確的有 (多選，填字母)。
A．on(press){gotoAndPlay("end",1);}
B．on(release){gotoAndStop("end",1);}
C．on(release){play();}
D．on(press){gotoAndPlay(1);}
【答案】（1）B；D；E
（2）動畫補間；正
（3）將"logo"圖層第18幀移動到第24幀
（4）A；C
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；動畫的實現；常用影片控制函數的應用
15．（2020·嘉興模擬）編寫一個VB抽獎程序，功能如下：從數據庫讀取相關數據并顯示在列表框List1中，在文本框Text1中輸入中獎人數，單擊“抽獎”按鈕Command1，在列表框List2中輸出結果。
抽獎規則：中獎人數為1人，男女不限：
中獎人數超1人，男女對半(奇數時女性多1人)。
程序運行界面如圖所示。
實現上述功能的VB程序如下：
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer '學生總人數
Dim a(1 To 100) As Integer '抽中序號
Private Sub Form_ LoadO
'本過程讀取n位同學的序號、姓名和性別，
'分別存儲在數組xh、xm、xb中
并在列表框List1中顯示，代碼略
End Sub
Private Sub Command1_ ClickO
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & " " & "性別"
rs= ①
For i=1 To n
If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0
Next i
m=0
girl=0
If rs= 1 Then
x= Int(Rnd* n)+ 1
List2.AddItem xm(x) &" "&xb(x)
Else
Do While mx = Int(Rnd* n)+ 1
If checkf(x) Then
m=m+1: a(m)=x
girl = girl + xbs(a(m))
If ② Then
a(m)=0: m=m-1
ElseIf girl> (rs+1)\2 Then
a(m)=0: m=m-1
③
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核對重復中獎，未中過獎返回True
'代碼略
End Function
（1）請在劃線處①②③中填入合適的代碼。
①　 　②　 ?、邸? 　
（2）程序中加框代碼有錯，請改正。
【答案】（1）Val(Text1.Text)；m-girl> rs \2；girl= girl- 1
（2）xm(a(i)&" " & xb(a(i)
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
16．（2020·嘉興模擬）給出n個不重復的介于區間[1-10，10]的整數(n≤10)，查找區間中未出現的正整數。例如：
按上述要求，編寫一個VB程序：在文本框Text1中輸入n個整數(逗號分隔并以逗號結尾)，單擊“查找”按鈕Command1，在標簽Label2中輸出查找結果。程序運行界面如圖所示。
（1）對從輸入字符串中提取的n個整數排序：將其中的正整數進行升序排序，排序后正整數在前，其它的在后。以圖中數據為例(10，3，-2，0，-6，6，-5，2，)提取整數，采用如下程序的選擇排序算法，所需的交換次數為　 　次。
（2）請在劃線處①②③中填入合適的代碼。
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res AS String, t1 As String, t2 As Integer
Dim m As Integer
'm記錄正整數的個數
Dim a(1 To 10) As Integer
s = Text1.Text
n= 0
For i= 1 To Len(s) ‘提取整數，并保存在數組a中
ch = Mid(s, i, 1)
If ch = "," Then
n=n+1
a(n)= Val(t1)
t1=“”
Else
t1=t1 + ch
End If
Next i
For i=1To n-1
k=i
For j=i+ 1 Ton
If a(j)> 0 Then
If ① Then k=j
End If
Next j
If k<>i Then
t2 = a(k): a(k) = a(i): a(i)= t2
End If
If ② Then
m = i 'm記錄正整數的個數小
Else
Exit For
End If
Next i
For i= m To 1 Step-1
③
Next i
For i= 1 To 10
If a(i) <>i Then res= res+ Str(i)+","
Next i
Label2.Caption = res
End Sub
①　 ?、凇? ?、邸? 　
【答案】（1）3
（2）a(j) < a(k) or a(k) <= 0；a(i)>0；a(i)) = a(i)
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；排序算法及程序實現
1 / 1

展開更多......

收起↑