資源簡介

【xj】浙江省2019-2020學年高中信息技術仿真演練卷（二）
一、選擇題
1．（2020·浙江模擬）關于信息安全、網絡道德和知識產權，下列做法正確的是（　　）
A．開啟智能手機的手勢密碼登錄驗證
B．關閉操作系統更新，不安裝系統補丁
C．在觀影時錄制影片并分享到網絡云盤
D．未經許可使用他人相片制作宣傳海報
2．（2018高一上·浙江期末）小王用IE瀏覽器打開“百度”主頁，下列說法不正確的是（　　）
A．該網頁采用文件傳輸協議ftp協議來發送和接收信息
B．網頁文件遵循HTML語言標準，可以用記事本打開并編輯
C．如果只需保存網頁中的文字信息，可以選擇的保存類型為“文本（*.txt）”
D．收藏該網站就是保存百度主頁的地址“http://www.”
3．（2020·浙江模擬）下列應用中，使用了OCR技術的是（　　）
①車輛牌照識別系統拍攝車輛照片后，自動識別出其中的車牌號碼
②視頦監控系統監測紅綠燈路口的車輛通行情況
③某手機云筆記App通過掃措文字稿件，自動識別后轉化成可編輯的文本
④手機拍攝練習題解題過程照片，并發布在班級QQ群中討論
⑤某手機銀行App轉賬時，通過掃描銀行卡自動輸入卡號
A．①②④ B．①③⑤ C．②③⑤ D．③④⑤
4．（2020·浙江模擬）下圖所示是Access數據庫中的student數據表，以下說法正確的是（　　）
A．當前狀態下執行“新記錄（W）”命令，則新添加的記錄位于第3行位置
B．當前為數據視圖，無法將“性別”字段修改為文本類型
C．新建記錄時，無法在“出生日期”字段輸入“一九九六年六月一日”
D．存儲“性別”字段的值，需要的存儲空間為1 bit
5．使用 UltraEdit軟件觀察字符“寧波Ningbo!”的內碼，部分界面如圖所示。

下列說法正確的是（　　）
A．英文字符“o”的內碼表示成十六進制為“A3”
B．字符“波”的內碼表示成二進制為“10110010 10101100”
C．字符“N”的內碼與其ASCII碼一致
D．圖中所示“！”的內碼占用了一個字節
6．（2020·浙江模擬）使用Photoshop軟件制作“香港回歸20周年”作品，部分界面如圖所示
下列說法正確的是
A．“1997年-2017年”圖層中使用了濾鏡效果
B．“紫荊花”圖層可以拖動到“1997年-2017年”圖層的上方
C．“背景”圖層可以使用“自由變換”命令將其縮小
D．將作品存儲為JPEG格式文件，會呈現“香港回歸20周年”圖層中的3種圖層樣式效果
7．某算法流程圖如下圖所示，執行該流程后，變量x，y的值分別是（　　）
A．0，" 3 1" B．0，" 1 3" C．3，31 D．3，1
8．（2020·浙江模擬）已知數組a(1)到a(6)的原始數據為“118”，“36”，“98”，“15”，“88”，“2”，對該數組進行排序操作，某同學編寫了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
則程序運行之后，數組a(1)到a(6)的值依次為（　　）
A．“118”，“15”，“2”，“36”，“88”，“98”
B．“118”，“15”，“36”，“88”，“98”，“2”
C．“2”，“15”，“36”，“118”，“88”，“98”
D．“2”，“15”，“36”，“88”，“98”，“118”
9．（2020·浙江模擬）某對分查找算法的VB程序如下：
c=0: i=1: j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then
f= True
Else If key>d(m) Then
j=m-1
Else
i=m+1
End If
Loop
數組元素d(1)到d(8)的值依次為“97，79，68，48，35，23，18，10”，若運行該程序段后，c的值為2，則文本框Text1中輸入的值是（　　）
A．68或18 B．68或23 C．79或23 D．79或18
10．（2020·浙江模擬）編寫VB程序，實現如下功能：在文本框Text1中輸入一個大于1000的正整數，單擊按鈕Command1后會去除其中3個數字，保證余下的數字在不改變順序的情況下其數值最大，然后在文本框Text2中輸出該數。
Private Sub Command1_Click()
Dim s As string
Dim n As Integer, w As Integer
s=Text1.Text
For i=1 To 3
n=Len(s):w=1
For j=2 To n
If ________ Then w=j Else Exit For
Next j
s=Mid(s,1,w-1)+Mid(s, w+l, n-w)
Next i
Text2.Text=s
End Sub
畫線處的正確代碼為（　　）
A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))
B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))
C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))
D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))
11．（2020·浙江模擬）小張編寫程序，實現把數據temp插入到升序序列中，得到一個新的升序序列，原升序序列各元素已依次存放在數組元素a(1),a(2),a(3),……,a(n)中。他編寫的VB程序段如下：
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And tempj=j-1
Loop
End If
要使程序實現上述功能，則方框①②中的語句分別是（　　）
A．a(j+1)=a(j)a(j+1)=temp B．a(j)=a(j-1)a(j+1)=temp
C．a(j+1)=a(j)a(j)=temp D．a(j)=a(j-1)a(j)=temp
二、操作題
12．（2020·浙江模擬）某同學收集了浙江省2017年第一季度消費者信心指數的統計數據，并使用Excel軟件進行數據處理，如下圖表格所示。
請回答下列問題：
（1）要計算各地就業信心指數與全省的差距，可先在F2單元格中輸入公式，再用自動填充功能完成區域F3:F12的計算，則F2單元格中的公式是　 　（提示：各地就業信心指數與省差距=各城市就業信心指數-全省就業信心指數），若將C2單元格的小數位數設置為1位，則F2單元格內的數值會　 　（填變大/不變/變小）。
（2）若要制作一張圖表來反映各城市的消費者信心總指數情況，則應選擇的數據區域是　 　。
（3）將區域A1:F12的數據復制到新工作表，在新工作表中對“收入信心指數”和“消費意愿指數”進行篩選操作，篩選設置均如下圖所示，則按此設置給指出的城市為　 　（填城市名稱）。
13．（2020·浙江模擬）小張制作主題為“端午節”的多媒體作品。他使用PhotoShop軟件制作一張背景圖片，然后使用Flash軟件制作動畫。請回答下列問題：

（1）如圖a所示，當前狀態下，下列說法正確的是　 　（多選，填字母：A .“端午情”圖層不能直接添加濾鏡/B .“菖蒲”圖層的各圖層效果均可見/C .“粽子”圖層不能直接添加圖層樣式D .“背景”圖層可以直接刪除）。
（2）如圖b所示，“愛心”圖層的補間動畫持續時間是　 　秒（保留整數），該動畫類型是　 　（填：形狀補間/動畫補間）。

（3）測試影片時，發現動畫播放過程中背景圖突然消失，現在要求背景圖一直出現在舞臺上，請寫出正確的操作方法　 　。
（4）測試影片時，單擊“按鈕”圖層最后一幀的“退出”按鈕，實現跳轉到“片尾”場景的第1幀并停止播放動畫，則該按鈕的動作腳本是　 　。
14．（2020·浙江模擬）數據的有損壓縮：對多媒體數據進行有損壓縮時，以少量數據丟失作為代價的，比如對某8 bit量化縮為6 bit量化，其算法可簡單表示為：逐一刪除各個字節的后2 bit，將刪除后的6 bit數據首尾相連，然后重新按照8 bit一組構建字節，以十六進制顯示。
例如，壓縮前的原始數據為：
11111100 010111010 10110000可表示為十六進制：FC 5A B0
刪除每字節的后2 bit：
111111 00 010110
10 101100 00
首尾相連構建新的數據：
11 11110101 10101100表示為十六進制：…F5 AC
自此，原數據進行了有損壓縮。程序運行界面如下所示，
實現上述算法的VB程序如下，但程序中加框處有誤，請改正。
Dim a(1 To 100) As Integer
Const code="0123456789ABCDEF"
Const n=100
Private Sub Form_Load() '以隨機數模擬讀取原始數據
s=""
Randomize
For i=1 To n
a(i)=Int (Rnd()*16)
Text1.Text=Text1.Text+ '①
Next i
End sub
Private Sub Command1_Click()
For i=1 To n
t=t+HtoB(a(i))
Next i
For j=1 To n* 4 Step 8 '每8位一組每8位一組，取前6個字符
s=s+Mid(t, j, 6)
Next j
For i=1 To 4 *(n-1) Step 4 '每4位一組轉為十六進制顯示
Text2.Text= Text2.Text +BtoH (Mid(s, 1, 4))
Next i
End sub
Function HtoB (x As Integer) As String '十六進十六進制轉為二進制函數
t=""
m=0
Do While '②
r=x Mod 2
m=m+1
t= Trim(r)+t 'trim()用于刪除前導空格
x=x\2
Loop
HtoB=Mid("0000", 1, 4-m)+t
End Function
Function BtoH (y As String) As String '二進制轉為十六進制函數
t1=Val(Mid(y, 4, 1))
t2=Val(Mid(y, 3, 1))
t3=Val(Mid(y, 2, 1))
t4=Val(Mid(y, 1, 1))
s=t1+t2*+t3*4+t4*8
BtoH= Mid(code,s+1,1)
End Function
（1）①處加框代碼應改為　 　。
（2）②處加框代碼應改為　 　。
15．（2020·浙江模擬）物品裝袋問題。現有n物品（不超過20個），及一個能裝體積不超過y的袋子，分別給出各物品的體積及價值，求裝入袋子里的物品價值總和的最大值。請編寫VB程序，實現如下功能：在文本框Text1中輸入袋子的體積，單擊“就算”按鈕Command1，在文本框Text2中輸出裝如袋子里的物品價值總和的最大值，運行效果如圖所示。
算法設計：為了使裝入袋子的價值總和最大，首先應該把單位價值（該物品的價值÷體積）最大的物品全部放入袋子（如果袋子當前剩余的容量不小于該物品的體積），然后再放單位價值第二的物品，如此往復。當袋子剩余的容量裝不下一個完整的物品時，可以將這個物品的部分（若干個單位體積）裝入袋子，直到袋子裝滿。實現上述功能的VB程序如下，請回答下列問題：
物品編號 體積 價值
1 26 19
2 7 14
3 22 11
4 10 22
（1）根據題意與算法描述，現有4個物品，其對應的體積和價值如表所示，若袋子的體積為30，則裝入袋子里的物品最大價值為　 　（四舍五入保留1位小數）。
（2）請在畫線處填入合適的代碼。
Dim v(1 To 20)As Integer
'依次存儲每個物品的體積
Dim w(1 To 20)As Integer
'依次存儲每個物品的價
Dim pw(1 To 20)As Double
'依次存儲每個物品的單位價值
Dim n As Integer '存儲物品的總個數
Private Sub Form_Load()
'初始化操作，并將每個物品的體積和價值依次顯示在列表框List1中（代碼略）
'將物品的個數存入變量n中
'將每個物品的體積依次存入數組v(1)到v(n)中
'將每個物品的價值依次存入數組w(1)到w(n)中
End Sub
Sub sort()
'根據每個物品的單位價值進行降序排序
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k < >i Then
t=v(i): v(i)=v(k): v(k)=t
t=w(i): w(i)=w(k): w(k)=t
p=pw(i): pw(i)=pw(k): pw(k)=p
End If
Next i
End
sub
Private
Sub Command1_Click()
Dim i As Integer, k As Integer, t As
Integer
Dim p as Double
Dim bw As Integer
Dim tot As Double
bw= Val(Text1.Text)
For i=1 To n
pw(i)=w(i)/v(i)
Next i
　 　
For i=1 To n
If bw＞=v(i) Then
tot=tot+w(i)
bw=bw-v(i)
Else
　 　
Exit for
End If
Next i
Text2.Text=Str(tot)
End
Sub
答案解析部分
1．【答案】A
【知識點】信息系統安全防護；信息素養、網絡道德規范及法律法規
2．【答案】A
【知識點】網絡協議；常用的網頁編輯與制作工具
【解析】【解答】選項A：打開網頁一般使用http協議，在下載文件或上傳文件時使用ftp協議，本項錯。選項B：網頁文件使用超文本編輯語言進行編寫，其實質是文本文件可以使用記事本打開并編輯，本項對。選項C：如果只保存網頁上的文字信息在使用了“文件”-》“保存”后可以選擇保存類型為“文本（*.txt）”。本項對。選項D：收藏網站不是保存網站只是為了下次快速打開網頁所以保存網址就可以了，本項對。故答案選A。
【分析】本題考查的是網頁的基礎知識。網頁是一種遵循超文本標記語言的文本文件，在瀏覽器端打開網頁傅用超文本傳輸協議:http協議。
3．【答案】B
【知識點】字符識別
4．【答案】D
【知識點】數據表、字段、記錄的編輯
5．【答案】C
【知識點】信息的編碼；進制及數制轉換
【解析】【解答】A選項：“o”的內碼是6F；B選項：“波”的內碼是B2 A8，轉換為二進制后是1011001010101000 ； D選項：“”!”的內碼以英文字母開始，占兩個字節。故答案選C。
【分析】本題考查的是內碼的查看和進制轉換。用UltraEdit軟件觀察字符的內碼時，每個英文字母占用1個字節，每個漢字占用2個字節。
6．【答案】B
【知識點】圖層及圖層的基本操作
7．【答案】A
【知識點】流程圖識讀
8．【答案】A
【知識點】排序算法及程序實現
9．【答案】A
【知識點】查找算法及程序實現
10．【答案】C
【知識點】枚舉算法及程序實現；常用標準函數
11．【答案】A
【知識點】常見數據類型、數組；排序算法及程序實現
12．【答案】（1）=C2-C$13（或=C2-$C$13）；不變
（2）A1：B12
（3）湖州、臺州、麗水
【知識點】表格數據的處理與計算
13．【答案】（1）ACD
（2）4；形狀補間
（3）選中“背景”圖層第70幀執行“清除關鍵”或選中“背景”圖層第1幀“復制幀”，再選中第70幀“粘貼幀”
（4）on(release){gotoAndstop("片尾",1);}或on(press){gotoAndStop("片尾",1);}
【知識點】圖層及圖層的基本操作；動畫的類型；動畫的實現；常用影片控制函數的應用
14．【答案】（1）Mid(code,a(i)+1,1)
（2）x>0或x< >0
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
15．【答案】（1）45.5
（2）pw(k)【知識點】排序算法及程序實現；循環結構語句及程序實現
1 / 1【xj】浙江省2019-2020學年高中信息技術仿真演練卷（二）
一、選擇題
1．（2020·浙江模擬）關于信息安全、網絡道德和知識產權，下列做法正確的是（　　）
A．開啟智能手機的手勢密碼登錄驗證
B．關閉操作系統更新，不安裝系統補丁
C．在觀影時錄制影片并分享到網絡云盤
D．未經許可使用他人相片制作宣傳海報
【答案】A
【知識點】信息系統安全防護；信息素養、網絡道德規范及法律法規
2．（2018高一上·浙江期末）小王用IE瀏覽器打開“百度”主頁，下列說法不正確的是（　　）
A．該網頁采用文件傳輸協議ftp協議來發送和接收信息
B．網頁文件遵循HTML語言標準，可以用記事本打開并編輯
C．如果只需保存網頁中的文字信息，可以選擇的保存類型為“文本（*.txt）”
D．收藏該網站就是保存百度主頁的地址“http://www.”
【答案】A
【知識點】網絡協議；常用的網頁編輯與制作工具
【解析】【解答】選項A：打開網頁一般使用http協議，在下載文件或上傳文件時使用ftp協議，本項錯。選項B：網頁文件使用超文本編輯語言進行編寫，其實質是文本文件可以使用記事本打開并編輯，本項對。選項C：如果只保存網頁上的文字信息在使用了“文件”-》“保存”后可以選擇保存類型為“文本（*.txt）”。本項對。選項D：收藏網站不是保存網站只是為了下次快速打開網頁所以保存網址就可以了，本項對。故答案選A。
【分析】本題考查的是網頁的基礎知識。網頁是一種遵循超文本標記語言的文本文件，在瀏覽器端打開網頁傅用超文本傳輸協議:http協議。
3．（2020·浙江模擬）下列應用中，使用了OCR技術的是（　　）
①車輛牌照識別系統拍攝車輛照片后，自動識別出其中的車牌號碼
②視頦監控系統監測紅綠燈路口的車輛通行情況
③某手機云筆記App通過掃措文字稿件，自動識別后轉化成可編輯的文本
④手機拍攝練習題解題過程照片，并發布在班級QQ群中討論
⑤某手機銀行App轉賬時，通過掃描銀行卡自動輸入卡號
A．①②④ B．①③⑤ C．②③⑤ D．③④⑤
【答案】B
【知識點】字符識別
4．（2020·浙江模擬）下圖所示是Access數據庫中的student數據表，以下說法正確的是（　　）
A．當前狀態下執行“新記錄（W）”命令，則新添加的記錄位于第3行位置
B．當前為數據視圖，無法將“性別”字段修改為文本類型
C．新建記錄時，無法在“出生日期”字段輸入“一九九六年六月一日”
D．存儲“性別”字段的值，需要的存儲空間為1 bit
【答案】D
【知識點】數據表、字段、記錄的編輯
5．使用 UltraEdit軟件觀察字符“寧波Ningbo!”的內碼，部分界面如圖所示。

下列說法正確的是（　　）
A．英文字符“o”的內碼表示成十六進制為“A3”
B．字符“波”的內碼表示成二進制為“10110010 10101100”
C．字符“N”的內碼與其ASCII碼一致
D．圖中所示“！”的內碼占用了一個字節
【答案】C
【知識點】信息的編碼；進制及數制轉換
【解析】【解答】A選項：“o”的內碼是6F；B選項：“波”的內碼是B2 A8，轉換為二進制后是1011001010101000 ； D選項：“”!”的內碼以英文字母開始，占兩個字節。故答案選C。
【分析】本題考查的是內碼的查看和進制轉換。用UltraEdit軟件觀察字符的內碼時，每個英文字母占用1個字節，每個漢字占用2個字節。
6．（2020·浙江模擬）使用Photoshop軟件制作“香港回歸20周年”作品，部分界面如圖所示
下列說法正確的是
A．“1997年-2017年”圖層中使用了濾鏡效果
B．“紫荊花”圖層可以拖動到“1997年-2017年”圖層的上方
C．“背景”圖層可以使用“自由變換”命令將其縮小
D．將作品存儲為JPEG格式文件，會呈現“香港回歸20周年”圖層中的3種圖層樣式效果
【答案】B
【知識點】圖層及圖層的基本操作
7．某算法流程圖如下圖所示，執行該流程后，變量x，y的值分別是（　　）
A．0，" 3 1" B．0，" 1 3" C．3，31 D．3，1
【答案】A
【知識點】流程圖識讀
8．（2020·浙江模擬）已知數組a(1)到a(6)的原始數據為“118”，“36”，“98”，“15”，“88”，“2”，對該數組進行排序操作，某同學編寫了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
則程序運行之后，數組a(1)到a(6)的值依次為（　　）
A．“118”，“15”，“2”，“36”，“88”，“98”
B．“118”，“15”，“36”，“88”，“98”，“2”
C．“2”，“15”，“36”，“118”，“88”，“98”
D．“2”，“15”，“36”，“88”，“98”，“118”
【答案】A
【知識點】排序算法及程序實現
9．（2020·浙江模擬）某對分查找算法的VB程序如下：
c=0: i=1: j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then
f= True
Else If key>d(m) Then
j=m-1
Else
i=m+1
End If
Loop
數組元素d(1)到d(8)的值依次為“97，79，68，48，35，23，18，10”，若運行該程序段后，c的值為2，則文本框Text1中輸入的值是（　　）
A．68或18 B．68或23 C．79或23 D．79或18
【答案】A
【知識點】查找算法及程序實現
10．（2020·浙江模擬）編寫VB程序，實現如下功能：在文本框Text1中輸入一個大于1000的正整數，單擊按鈕Command1后會去除其中3個數字，保證余下的數字在不改變順序的情況下其數值最大，然后在文本框Text2中輸出該數。
Private Sub Command1_Click()
Dim s As string
Dim n As Integer, w As Integer
s=Text1.Text
For i=1 To 3
n=Len(s):w=1
For j=2 To n
If ________ Then w=j Else Exit For
Next j
s=Mid(s,1,w-1)+Mid(s, w+l, n-w)
Next i
Text2.Text=s
End Sub
畫線處的正確代碼為（　　）
A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))
B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))
C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))
D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))
【答案】C
【知識點】枚舉算法及程序實現；常用標準函數
11．（2020·浙江模擬）小張編寫程序，實現把數據temp插入到升序序列中，得到一個新的升序序列，原升序序列各元素已依次存放在數組元素a(1),a(2),a(3),……,a(n)中。他編寫的VB程序段如下：
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And tempj=j-1
Loop
End If
要使程序實現上述功能，則方框①②中的語句分別是（　　）
A．a(j+1)=a(j)a(j+1)=temp B．a(j)=a(j-1)a(j+1)=temp
C．a(j+1)=a(j)a(j)=temp D．a(j)=a(j-1)a(j)=temp
【答案】A
【知識點】常見數據類型、數組；排序算法及程序實現
二、操作題
12．（2020·浙江模擬）某同學收集了浙江省2017年第一季度消費者信心指數的統計數據，并使用Excel軟件進行數據處理，如下圖表格所示。
請回答下列問題：
（1）要計算各地就業信心指數與全省的差距，可先在F2單元格中輸入公式，再用自動填充功能完成區域F3:F12的計算，則F2單元格中的公式是　 　（提示：各地就業信心指數與省差距=各城市就業信心指數-全省就業信心指數），若將C2單元格的小數位數設置為1位，則F2單元格內的數值會　 　（填變大/不變/變小）。
（2）若要制作一張圖表來反映各城市的消費者信心總指數情況，則應選擇的數據區域是　 　。
（3）將區域A1:F12的數據復制到新工作表，在新工作表中對“收入信心指數”和“消費意愿指數”進行篩選操作，篩選設置均如下圖所示，則按此設置給指出的城市為　 　（填城市名稱）。
【答案】（1）=C2-C$13（或=C2-$C$13）；不變
（2）A1：B12
（3）湖州、臺州、麗水
【知識點】表格數據的處理與計算
13．（2020·浙江模擬）小張制作主題為“端午節”的多媒體作品。他使用PhotoShop軟件制作一張背景圖片，然后使用Flash軟件制作動畫。請回答下列問題：

（1）如圖a所示，當前狀態下，下列說法正確的是　 　（多選，填字母：A .“端午情”圖層不能直接添加濾鏡/B .“菖蒲”圖層的各圖層效果均可見/C .“粽子”圖層不能直接添加圖層樣式D .“背景”圖層可以直接刪除）。
（2）如圖b所示，“愛心”圖層的補間動畫持續時間是　 　秒（保留整數），該動畫類型是　 　（填：形狀補間/動畫補間）。

（3）測試影片時，發現動畫播放過程中背景圖突然消失，現在要求背景圖一直出現在舞臺上，請寫出正確的操作方法　 　。
（4）測試影片時，單擊“按鈕”圖層最后一幀的“退出”按鈕，實現跳轉到“片尾”場景的第1幀并停止播放動畫，則該按鈕的動作腳本是　 　。
【答案】（1）ACD
（2）4；形狀補間
（3）選中“背景”圖層第70幀執行“清除關鍵”或選中“背景”圖層第1幀“復制幀”，再選中第70幀“粘貼幀”
（4）on(release){gotoAndstop("片尾",1);}或on(press){gotoAndStop("片尾",1);}
【知識點】圖層及圖層的基本操作；動畫的類型；動畫的實現；常用影片控制函數的應用
14．（2020·浙江模擬）數據的有損壓縮：對多媒體數據進行有損壓縮時，以少量數據丟失作為代價的，比如對某8 bit量化縮為6 bit量化，其算法可簡單表示為：逐一刪除各個字節的后2 bit，將刪除后的6 bit數據首尾相連，然后重新按照8 bit一組構建字節，以十六進制顯示。
例如，壓縮前的原始數據為：
11111100 010111010 10110000可表示為十六進制：FC 5A B0
刪除每字節的后2 bit：
111111 00 010110
10 101100 00
首尾相連構建新的數據：
11 11110101 10101100表示為十六進制：…F5 AC
自此，原數據進行了有損壓縮。程序運行界面如下所示，
實現上述算法的VB程序如下，但程序中加框處有誤，請改正。
Dim a(1 To 100) As Integer
Const code="0123456789ABCDEF"
Const n=100
Private Sub Form_Load() '以隨機數模擬讀取原始數據
s=""
Randomize
For i=1 To n
a(i)=Int (Rnd()*16)
Text1.Text=Text1.Text+ '①
Next i
End sub
Private Sub Command1_Click()
For i=1 To n
t=t+HtoB(a(i))
Next i
For j=1 To n* 4 Step 8 '每8位一組每8位一組，取前6個字符
s=s+Mid(t, j, 6)
Next j
For i=1 To 4 *(n-1) Step 4 '每4位一組轉為十六進制顯示
Text2.Text= Text2.Text +BtoH (Mid(s, 1, 4))
Next i
End sub
Function HtoB (x As Integer) As String '十六進十六進制轉為二進制函數
t=""
m=0
Do While '②
r=x Mod 2
m=m+1
t= Trim(r)+t 'trim()用于刪除前導空格
x=x\2
Loop
HtoB=Mid("0000", 1, 4-m)+t
End Function
Function BtoH (y As String) As String '二進制轉為十六進制函數
t1=Val(Mid(y, 4, 1))
t2=Val(Mid(y, 3, 1))
t3=Val(Mid(y, 2, 1))
t4=Val(Mid(y, 1, 1))
s=t1+t2*+t3*4+t4*8
BtoH= Mid(code,s+1,1)
End Function
（1）①處加框代碼應改為　 　。
（2）②處加框代碼應改為　 　。
【答案】（1）Mid(code,a(i)+1,1)
（2）x>0或x< >0
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
15．（2020·浙江模擬）物品裝袋問題。現有n物品（不超過20個），及一個能裝體積不超過y的袋子，分別給出各物品的體積及價值，求裝入袋子里的物品價值總和的最大值。請編寫VB程序，實現如下功能：在文本框Text1中輸入袋子的體積，單擊“就算”按鈕Command1，在文本框Text2中輸出裝如袋子里的物品價值總和的最大值，運行效果如圖所示。
算法設計：為了使裝入袋子的價值總和最大，首先應該把單位價值（該物品的價值÷體積）最大的物品全部放入袋子（如果袋子當前剩余的容量不小于該物品的體積），然后再放單位價值第二的物品，如此往復。當袋子剩余的容量裝不下一個完整的物品時，可以將這個物品的部分（若干個單位體積）裝入袋子，直到袋子裝滿。實現上述功能的VB程序如下，請回答下列問題：
物品編號 體積 價值
1 26 19
2 7 14
3 22 11
4 10 22
（1）根據題意與算法描述，現有4個物品，其對應的體積和價值如表所示，若袋子的體積為30，則裝入袋子里的物品最大價值為　 　（四舍五入保留1位小數）。
（2）請在畫線處填入合適的代碼。
Dim v(1 To 20)As Integer
'依次存儲每個物品的體積
Dim w(1 To 20)As Integer
'依次存儲每個物品的價
Dim pw(1 To 20)As Double
'依次存儲每個物品的單位價值
Dim n As Integer '存儲物品的總個數
Private Sub Form_Load()
'初始化操作，并將每個物品的體積和價值依次顯示在列表框List1中（代碼略）
'將物品的個數存入變量n中
'將每個物品的體積依次存入數組v(1)到v(n)中
'將每個物品的價值依次存入數組w(1)到w(n)中
End Sub
Sub sort()
'根據每個物品的單位價值進行降序排序
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k < >i Then
t=v(i): v(i)=v(k): v(k)=t
t=w(i): w(i)=w(k): w(k)=t
p=pw(i): pw(i)=pw(k): pw(k)=p
End If
Next i
End
sub
Private
Sub Command1_Click()
Dim i As Integer, k As Integer, t As
Integer
Dim p as Double
Dim bw As Integer
Dim tot As Double
bw= Val(Text1.Text)
For i=1 To n
pw(i)=w(i)/v(i)
Next i
　 　
For i=1 To n
If bw＞=v(i) Then
tot=tot+w(i)
bw=bw-v(i)
Else
　 　
Exit for
End If
Next i
Text2.Text=Str(tot)
End
Sub
【答案】（1）45.5
（2）pw(k)【知識點】排序算法及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑