資源簡介

浙江省名校協作體2019屆高三上學期信息技術9月聯考試卷
一、選擇題
1．（2019高三上·浙江月考）下列有關信息的說法，正確的是（　　）
A．信息經過加工和處理后的使用價值始終保持不變
B．信息可以脫離載體而存在
C．信息在使用過程中會產生損耗
D．手機屏幕鎖功能，可以提升信息的安全性
【答案】D
【知識點】信息及其特征；信息系統安全防護
【解析】【解答】選項A：信息可以進行加工和處理，在對信息進行重新分類和存儲傳輸后信息會產生一個附加值，這是信息的可處理性。本項錯。選項B：信息不能離開載體而獨立存在，這是信息的依附性。本項錯。選項C：信息可以被多人共享而不會產生損耗，這是信息的共享性。選項D：開戶手機鎖屏功能，輸入密碼后手機才能被使用，可以提升信息的安全性，本項對。故本題答案選D。
【分析】本題考查的是信息的特征和信息的安全使用。信息有五個基本特征和五個一般特征。基本特征：普遍性、依附性、傳遞性、價值性、時效性；一般特征：共享性、真偽性、不完全性、價值相對性、可處理性。在互聯網廣泛使用的今天特別要注意信息的安全性，不是因為自己的不慎造成損失。
2．（2019高三上·浙江月考）下列有關瀏覽器與網頁、網絡協議的說法，正確的是（　　）
A．選擇“網頁，僅HTML”方式保存網頁，網頁中的圖片同時被保存
B．保存網頁其實就是保存網頁的URL
C．網頁內容是通過HTTP語言描述的
D．SMTP協議是簡單郵件傳輸協議的英文簡稱
【答案】D
【知識點】網絡協議；網頁、網站的概念與聯系
【解析】【解答】選項A：如果保存網頁時 選擇“網頁，僅HTML”方式保存網頁則只保存文本的內容、格式和鏈接而不保存圖片、圖像等信息，本項錯。選項B： 保存網頁其實就是保存網頁的內容，收藏網址才是保存網頁的URL（統一資源定位器）。本項錯。選項C： 網頁內容是通過超文本標記語言（HTML）來描述的，本項錯。選項D： SMTP協議是簡單郵件傳輸協議的英文簡稱 ，是用于發送電子郵件的，本項對。故答案選D。
【分析】本題考查的是常用的網絡協議的名稱及作用以及保存網頁的類型、編輯網頁使用的語言。保存網頁時的選項較多，可以只保存網頁上的文字、圖片、圖像等，也可以保存網頁上的文字格式和鏈接，還可以同時保存網頁上的文字、圖片、圖像等。HTTP叫超文本傳輸協議是用于發送網頁文件的協議。HTML語言叫超文本標記語言是用于編輯網頁的文件。SMTP叫 簡單郵件傳輸協議 ，是用于發送電子郵件的，POP3叫郵局協議是用于接受郵件的協議。
3．（2019高三上·浙江月考）使用word編輯某文檔，部分界面如圖所示，以下說法正確的是（　　）
A．若將文檔中圖片的環繞方式改為“緊密型”后效果不變
B．刪除批注對話框中“摘自《遺傳密碼》”后該批注框消失
C．文中的“美夢承真”可通過自動更正功能改為“美夢成真”
D．接受所有修訂后，第四行將變成“毫發無損。有魔術表演的夜晚總是那么歡樂。”
【答案】A
【知識點】文本的基本編輯
【解析】【解答】選項A：本文的圖片環繞方式為“四周型”由于圖片形狀為矩形所以改為 “緊密型”后效果不變 ，本項對。選項B： 刪除批注對話框中“摘自《遺傳密碼》“只是刪除了批注的內容，并沒有刪除該批注，批注框是不會消失的，本項錯。選項C：劃綠色波線只是提示該處有語法錯誤，不會自動更正該詞語，本項錯。選項D： 接受所有修訂后，第四行將變成“毫發無損。有魔術表演的夜晚總是那么開懷。” 拒絕修訂后第四行內容才變成 “毫發無損。有魔術表演的夜晚總是那么歡樂。” ，本項錯。故答案選A。
【分析】本題考查的是批注和修訂功能。批注是對文章的某些文字段落做出備注、意見及建議等。而批注是保留修改痕跡的基礎上進行的修改，修訂是在保留修改痕跡的一種編輯方式，通過修訂可以恢復原來的文字或確認修改。
4．（2019高三上·浙江月考）使用Access軟件創建一張數據表，其設計視圖界面如圖所示，下列說法正確的是（　　）
A．當前狀態下，可以對數據表“圖書信息”重命名
B．該視圖中，右表刪除一行，則其數據表的記錄總數會相應減少一條
C．在“圖書信息”數據表中，可以包含圖書名稱相同的兩條記錄
D．存儲“借出”字段值需要1個字節
【答案】C
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
【解析】【解答】選項A：當前狀態為設計視圖狀態，正在對”圖書信息“進行字段設置不能對表進行重命名，本項錯。選項B：在設計視圖狀態下，刪除一行就是刪除一個字段，在數據表視圖中對應一列而不是一條記錄（一行），本項錯。選項C：由圖可知充號為主鍵不能重復其他字段的值包括圖書名稱可以有重復字段值，故本項對。選項D：”借出“為是否類型的字段，占用一位二進制數即1b，本項錯。故答案選C。
【分析】本題考查的是Access數據庫的視圖方式和字段類型。數據庫的視圖方式有兩種：設計視圖和數據表視圖。設計視圖是用于設置字段名和字段類型的視圖，數據表視圖是用于編輯記錄的視圖。Access允許九種數據類型：文本、備注、數值、日期/時間、貨幣、自動編號、是/否、OLE對象、超級鏈接、查詢向導。
5．（2019高三上·浙江月考）使用UltraEdit軟件觀察字符內碼，結果如圖所示。
以下說法正確的是（　　）
A．圖中內碼表示的ASCII碼字符共有5個
B．字符“F”內碼轉十進制過程應為4×162+6×161
C．字母“j”內碼用十六進制表示是70
D．字母“B”內碼用二進制表示是1000010
【答案】D
【知識點】信息的編碼
【解析】【解答】由圖可知：F對就46，l對應6C，a對應61，s對應73，h對應68，空格對應20，作對應D7 F7，品對應C6，B7。選項A：由圖可知ASCII碼字符共有6個（含空格），本項錯。選項B：”F“對應的內碼為46轉為十進制為：4*16+6=(70)10,本項錯。選項C： 字母”h“的內碼為68，字母“j”內碼用十六進制表示是 7A而不是70。本項錯。選項D：字母”F“的內碼為46，故字母”B“的內碼為42，轉為二進制為0100 0010，本項對。故答案選D。
【分析】本題考查的是字符的內碼表示及十進制、十六進制和二進制數之間的相互轉換。一個字母或字符在內存中占用一個字節用2個十六進制數來表示，一個漢字占用2個字節占用4位十六進制來表示。十進制數轉二進制數、十六進制數采用除2（16）取余法，二進制數、十六進制數轉二進制數采用公式法，二進制數和十六進制數之間是一位對四位的關系。
6．（2019高二上·溫州期末）某算法流程圖如圖所示：
執行該流程圖后，輸出i，k的值分別是（　　）
A．102，9 B．102，8 C．100，9 D．100，8
【答案】A
【知識點】算法的常用表示方法；算法的控制結構
【解析】【解答】分析本題流程圖運行過程：
初始值：i=0，k=0；
i=0，i<100，第一次循環，i mod 4=0成立，執行k=k+1=1，i=i+6=6；
i=6，i<100，第二次循環，i mod 4=0不成立，執行i=i+6=12；
i=12，i<100，第三次循環，i mod 4=0成立，執行k=k+1=2，i=i+6=18；
i=18，i<100，第四次循環，i mod 4=0不成立，執行i=i+6=24；
i=24，i<100，第五次循環，i mod 4=0成立，執行k=k+1=3，i=i+6=30；
依次類推，每循環一次，變量i的值加6，直至i>=100，循環結束，此時i=102。在[0,100)之間，若變量i既是6的倍數，又是4的倍數，即i是12的倍數時，變量k加1，其中0,12,24,36,48,60,72,84,96共9個數滿足條件，所以k=9。故答案選A。
【分析】本題考查學生分析和理解流程圖的能力，要求學生能夠清楚地分析出流程圖中各變量的變化情況。
7．（2019高三上·浙江月考）使用GoldWave軟件編輯某段音樂，界面如圖所示。
下列說法正確的是（　　）
A．當前狀態下執行“靜音”操作，和插入25秒靜音效果相同
B．該音頻是Wav格式，是無損壓縮的音頻文件
C．復制一段10秒聲音，在當前狀態下第25秒開始執行“混音”后，音樂文件總時長不變
D．當前狀態下執行“刪除”操作，左聲道從25秒到50秒變為靜音
【答案】C
【知識點】聲音素材的基本處理
【解析】【解答】選項A：如果執行”靜音“操作則將當前選中部分設為了靜音，而插入靜音操作則當前文件的時長變長當前選中部分并沒有被刪除，故本項錯。選項B：由圖可知當前聲音文件為WAV格式文件，WAV格式文件是沒有壓縮的聲音文件格式，本項錯。選項C：執行”混音“后只是改變的波形沒有改變聲音文件的時長，本項對。選項D： 當前狀態下執行“刪除”操作，左聲道從25秒到50秒被刪除而不是變為靜音。本項錯。故答案選C。
【分析】本題考查的是GoldWave的常用操作。在對聲音文件的某段音頻進行操作時要進行選標操作，執行”靜音“操作是將選中部分設置為靜音不會改變聲音文件的時長，如果執行”刪除“操作則將選中部分刪除改變了聲音文件的時長。
8．（2019高三上·浙江月考）用Photoshop軟件制作“2018世界杯”作品，界面如圖所示：
以下說法正確的是（　　）
A．用“裁剪”工具對“背景”圖層操作之后，圖像大小一定不會發生改變
B．隱藏“徽標”圖層后，按原參數保存成bmp圖像，存儲容量不變
C．將左下角的100%改成66.67%之后，按原參數保存，存儲容量變小
D．該作品以jpg格式存儲后容量為1.25MB
【答案】B
【知識點】圖層及圖層的基本操作；聲音、圖像、視頻編碼
【解析】【解答】選項A：”裁剪“操作是在圖像中選出一部分其他部分被刪除，對一個圖層進行“裁剪”操作，圖像的大小不一定會改變，本項錯誤；選項B： 隱藏“徽標”圖層后，按原參數保存成bmp圖像， 則”徽標“圖層不被輸出，影響存儲容量的因素都沒有改變，存儲容量不變，本項正確；選項C： 將左下角的100%改成66.67%之后，按原參數保存， 則該圖像只是顯示比例變小存儲容量是不受影響的，本項錯；選項D：在狀態欄中的文檔：1.25M/4.2M的含義為在合并所有圖層后輸出（即以bmp格式輸出）后存儲容量為1.25MB，若以psd格式（含圖層信息）存儲后存儲容量為4.4MB，本項錯。故答案選B。
【分析】本題考查的Photoshop常用的圖層操作及狀態欄的含義。對圖層可以進行復制、刪除、裁剪等操作，還可以設置圖層的一些屬性。在Photoshop的下方是狀態欄，可以顯示當前文檔的一些屬性如顯示比例和存儲容量等信息。
9．（2019高三上·浙江月考）使用Flash軟件制作補間動畫，部分屬性界面如圖所示。以下說法正確的是（　　）
A．該補間動畫可能是形狀補間動畫
B．當前狀態下，該實例在舞臺中可見
C．該界面是關鍵幀的屬性面板
D．該實例由庫中“舞動”元件生成
【答案】D
【知識點】元件的類型與應用；動畫的實現
【解析】【解答】選項A：由于只有當前狀態下的寬高和x、y軸的數據沒有動畫終止幀的數據不能判斷該動畫為何種動畫，本項錯。選項B：當前狀態下，該實例的Alpha的值為0%，說明透明度為0是不可見的，本項錯。選項C：該界面是實例的屬性面板，本項錯。選項D:由其屬性中的”實例:舞動“知該實例是由”舞動“元件生成的，本項對。故答案選D。
【分析】本題考查的是實例屬性面板上的參數及其含義。根據實例面板上的參數我們可以知道該實例的名稱、生成該實例的元件名及元件類型、所在舞臺上的位置、大小及透明度等信息。
10．（2019高三上·浙江月考）（加試題）一段未經壓縮的PAL制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×400像素，存儲容量約為97.7MB，則該視頻中圖像的每個像素所占的位數是（　　）
A．2位 B．8位 C．16位 D．24位
【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】97.7MB=117630.8KB=120453939.2B=963631513.6b，該視頻中每個像素占用的位數為：963631513.6/25/10/512/400=16.82，最接近于16位，故答案選C。
【分析】本題考查的是視頻格式的存儲容量的計算。PAL格式下每 秒播放25幀。其存儲視頻文件存儲容量=（水平像素×垂直像素×每個像素所需位數／8）*幀頻*時長（字節）。
11．（2019高三上·浙江月考）（加試題）有如下VB程序段：
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
執行該段程序后，數組元素f(12)的值為（　　）
A．0 B．1 C．2 D．3
【答案】A
【知識點】常見數據類型、數組；常量、變量及變量的賦值
【解析】【解答】本題程序分析如下：
A=1：b=1：n=12 ‘給變量a賦值為1，變量b賦值為1，變量n賦值為12
f(1)=a：f(2)=b ‘將變量a的值放到數組f的第一個元素中，將b放到數組f的第二個元素中
For i=3 to n ‘使用i來控制循環，i的初值為3，終值為n（12），步長為1
c=a+b ‘將a和b的和賦給變量c
f(i)=c Mod 4 ‘將c除以4的余數存儲到數組元素f（i）中
a=b ‘將原b的值賦給變量a
b=c ‘將c的值賦給變量b
Next i ‘結束循環
由以上程序分件知，數組元素f是一個數列，該數列的前兩項為1、1，后面各項為其前兩項之和除以4的余數，故其數列為1、1、2、3、1、0、1、1、2、3、1、0，f（12）對應的為最后一個數列的值0，故答案選A。
【分析】本題考查的是由數列的前兩項生成數列其他各項的算法。該算法為解析算法。所謂解析法（analysis algorithm）是指用解析的方法找出表示問題的前提條件與結果之間關系的數學表達式，并通過表達式的計算來實現問題求解。
12．（2019高三上·浙江月考）【加試題】已知一無序數組a中的元素為"90，15，40，72，65，32，81，6"，通過引入數組b存儲數組a元素按升序排列時的下標，b數組元素為"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，從而對a數組中的數據進行對分查找。部分程序如下：
當文本框Text1中輸入的值為32時，程序運行結束后變量c的值為（　　）
A．1 B．2 C．3 D．4
【答案】C
【知識點】查找算法及程序實現
【解析】【解答】本題程序分析如下：
i=1：j=8：c=0 '給變量i、j和c賦初值
key=val（text1.text) '將從文本框1中輸入的數據轉為數值型后賦給變量key
do while i<=j '在數組下標的下限小于上限時進行循環
m=int(i+j)/2 'm為剩余數組元素的中值
t=b(m) '將中值元素下標賦給變量t
c=c+1 '使用c進行計數，即查找的次數
if a(t)=key then p=t:exit do '如果在數組a中查到該數則將下標值t賦給變量p并退出循環
if a(t)i=m+1 '調整數組元素的下限為中值加1
else '否則，即如果中值元素的值比要查找的值大則在前半個數組中找，進行如下處理
j=m-1 '調整數組元素的上限為中值減1
endif '結束條件判斷
loop '結束循環
由以上程序分析知，雖然在無序數組a中查找，但經過數據b進行排序后與在有序數組中查找是一樣的，其有序數組相當于6、15、32、40、65、72、81、90，第一次比較的是
40和32，40>32在前半個數組中查找，再比較15和32，15<32，在后半個數組中找。比較32和32，至此找到并退出循環，共查找了3次，故c值為3，故答案選C。
【分析】本題考查的是對分查找法。對分法查找過程是先將一個數列放于一個有序數組中，然后比較中間數組元素的值與要查找的值，或中間數組的值比要查找的值大，則在前半個數組中查找，若中間數組的值比要查找的值小則在后半個數組中查找。查找方法仍是比較中間數組元素的值和要查找的值。以此類推直到查到或下限大于了上限（沒查找）為止。
二、填空題
13．（2019高三上·浙江月考）小李收集了本市主要食品平均價格變動的數據，并使用Excel軟件進行數據處理，如圖1所示。
圖1
請回答下列問題：
（1）若要對肉類食品按本期價格進行降序排序，則需要選擇的數據區域為　 　。
（2）區域F3：F16的數據是通過公式計算得到的：在F3單元格輸入公式后，用自動填充功能完成F4：F16的計算，則F3單元格中的公式是　 　。
（漲跌幅（%）=(本期價格(元)-上期價格(元))/上期價格(元)×100）
（3）在計算F列數據之后，若E列的數據被誤清除，則F16單元格將顯示為　 　(單選，填字母： A .98.2 / B .0 / C .#DIV/0！/ D .#REF！)。
（4）為了更直觀地比較魚肉類價格波動情況，小李制作了如圖2所示的圖表。該圖表的數據區域是：　 　，D2：E2，D6：E11。
圖2
【答案】（1）B6：F8 或 B6：E8
（2）=(D3-E3)/E3*100
（3）C
（4）B2，B6：B11
【知識點】表格數據的處理與計算
【解析】【解答】（1） 若要對肉類食品按本期價格進行降序排序， 不能選擇”肉類“這個合并單元格，而F列是公式會隨數據的變化而變化，可以選也可以不選，故本小題答案填寫： B6：F8 或 B6：E8 。
（2）由F列的公式: 漲跌幅（%）=(本期價格(元)-上期價格(元))/上期價格(元)×100 可知：本期價格在D列， 上期價格 在E列且公式中各單元格地址要隨單元格的變化而變化。故F3的公式為： =(D3-E3)/E3*100 。
（3） 在計算F列數據之后，若E列的數據被誤清除 ，則公式中E列為0即0作了除數，單元格中顯示提示信息 ”#DIV/0！ “，故本小題答案選C。
（4）由圖可知：該圖表的橫軸為肉類和魚類的名稱，縱軸為本期價格和上期價格，故其數據區域為： B2，B6：B11 ， D2：E2，D6：E11 ，故本小題答案填寫： B2，B6：B11 。
【分析】本題考查的是Excle的排序數據的選擇、公式的運用、數據出錯提示信息及圖表數據區域的選擇。Excel的地址引用有相對地址引用和絕對地址引用及混合地址引用3種方式，相對地址引用就是單元格地址前不加任何東西，單元格地址會隨單元格的變化而變化，絕對單元格地址引用就是在單元格地址前加$號，不會隨單元格的變化而變化。混合引用是在行號或列標前加$號，另一個不加，在復制公式時加$號的不變，不加$號的變化。在排序時注意不要選擇合并的單元格，尤其選擇標題欄時注意標題欄是否為合并單元格。圖表數據區域的選擇是看其橫軸和縱軸的數據。在常用的提示信息中： #DIV/0！ 是將0作為了除數（分母）， #REF！ 是使用了錯誤的參數。
14．（2019高三上·浙江月考）編寫一個VB程序，實現如下功能：在文本框Text1中輸入一個偶數n，判斷該數在10步之內通過以下計算過程后能否回到初始值。計算步驟如下：
⑴將n乘以3后加1產生一個新的數
⑵對產生的新數循環執行如下操作：新數是偶數時，用新數除以2；新數是奇數時，用新數乘以3后加1
譬如，以2為初始值，則計算過程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。數字2不能在10步之內回到初始值。
界面如圖所示，回答下列問題：
（1）若要把窗體的標題名稱由“Form1”改為“數值猜想”，應改變窗體的　 　屬性。
（2）完成上述功能的程序代碼如下，請在劃線處填入合適的代碼
Private Sub Command1_Click()
Dim n As Integer，t as Integer ，m as Integer ，s as String
　 　
t = n * 3 + 1
m = 1
s = ""
Do While 　 　
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "該數10步之內無法實現！"
End If
End Sub
（3）按照以上VB程序的計算方法，若在文本框Text1中輸入4，能否在10步之內回到初始數 　 　。（選填：能/否）
【答案】（1）Caption
（2）n=Val(Text1.Text)；n <> t And m <= 10或其它等價表達式
（3）能
【知識點】解析算法及程序實現
【解析】【解答】（1） 若要把窗體的標題名稱由“Form1”改為“數值猜想”，則需修改窗體的 標題屬性，故本題答案填寫：Caption。
（2）本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim n As Integer，t as Integer ，m as Integer ，s as String ‘定義整型變量n、t、m和s
‘將文本框1中輸入的數據轉為數值型并賦給變量n，故本處答案應填寫： n=Val(Text1.Text)
1
t = n * 3 + 1 ‘將n值乘以3加上1賦給變量t
m = 1 ‘將計數器m的值賦為1，代表已經進行了一次數據處理
s = "" ‘初始化字符串變量s的值為空串
‘在n值不等于t值且數據處理步驟小于等于10次（m值小于等于10）時進行循環，故此處答案應填寫： n <> t And m <= 10
Do While 2
s = s + Str(t) ‘將每次處理后的結果t轉為字符型放在變量s中
If t Mod 2 = 0 Then ‘如果t為一個偶數則進行如下處理
t = t \ 2 ‘將這個數整除以2將商重新賦給變量t
Else ‘否則（即結果為奇數時）進行如下處理
t = t * 3 + 1 ‘將這個數仍舊乘以3加上1后重新賦給變量t
End If ‘結束條件判斷
m = m + 1 ‘使用計算器m進行計數
Loop ‘結束循環
If n = t Then ‘如果經過處理后的數據t等于n則進行如下處理
Label1.Caption = s + Str(n) ‘使用標簽1輸出處理過程中的所有中間數和結果
Else ‘否則（如果t和n值不相同）進行如下處理
Label1.Caption = "該數10步之內無法實現！" ‘使用標簽1輸出該數10步內無法實現
End If ‘結束條件判斷
End Sub ‘結束事件過程
由以上程序分析知,1處為：將文本框1中輸入的數據轉為數值型并賦給變量n，故本處答案應填寫： n=Val(Text1.Text) 。
2處為：在n值不等于t值且數據處理步驟小于等于10次（m值小于等于10）時進行循環，故此處答案應填寫： n <> t And m <= 10 。
(3)4->13->40->20->10->5->16->8->4，在第8步時回到初始值，故本小題答案選填：能。
【分析】本題考查的是判斷一個數在10步內能否回到初始值的算法，該算法采用的是解析算法。所謂解析法（analysis algorithm）是指用解析的方法找出表示問題的前提條件與結果之間關系的數學表達式，并通過表達式的計算來實現問題求解。在本題中使用了計數器對運算步驟進行了統計。
15．（2019高三上·浙江月考）小明制作主題為“皮影熠彩”的多媒體作品，她先用PhotoShop軟件制作一張背景圖片，然后用Flash軟件制作動畫。請回答下列各題：
（1）如圖1所示，當前狀態下，下列說法不正確的有　 　（多選，填字母：A .可以對“龍柱”圖層選擇區域并填充顏色/ B .用“仿制圖章”工具對“燈籠”圖層操作將會新增一個圖層/ C .將“熠彩”的圖層樣式拷貝到“皮影”之后，“皮影”的圖層樣式將被替換/ D .可以設置“背景”圖層的不透明度）。
圖1
（2）如圖2所示，“人物”圖層第5幀到32幀實現了人物實例旋轉一周且淡入的動畫效果，該動畫類型為　 　（單選，填字母：A .形狀補間/B .動畫補間/C .逐幀動畫）
圖2
（3）調試作品，發現“進入”按鈕會在最后消失，以下對“按鈕”圖層的操作可實現該按鈕一直在舞臺上的操作有　 　（多選，填字母：A .把第1幀移動到第60幀/B .選擇第60幀，執行“清除幀”操作;/C .選擇第60幀，執行“清除關鍵幀”操作/D .對第1幀“復制幀”，選擇第60幀“粘貼幀”/E.選擇第1幀執行“剪切幀”操作，選擇第60幀“粘貼幀”）
（4）為實現單擊“進入”按鈕，使動畫從“main”場景的第1幀開始播放，應在該按鈕上添加動作腳本　 　。
（5）經上述操作之后，若要測試“進入”按鈕的效果，則應　 　（單選，填字母：A .測試場景/ B .測試影片/ C .播放）
【答案】（1）ABD
（2）B
（3）CD
（4）on(press/release){gotoAndPlay(“main”，1);}
（5）B
【知識點】圖片加工常用工具的使用；動畫的類型；常用影片控制函數的應用
【解析】【解答】（1）選項A： “龍柱”圖層 處于鎖定狀態不能進行編輯，本項錯。選項B： “仿制圖章”工具可以復制圖像但不會產生新圖層。本項錯。選項C：圖層的樣式可以進行復制和替換，本項對。選項D：背景圖層處于鎖定狀態不能進行編輯，本項錯。故本題答案選ABD。
（2） “人物”圖層第5幀到32幀實現了人物實例旋轉一周且淡入的動畫效果 ，該動畫沒有圖形的轉換，只有透明度和位置的變化，為動畫補間，故本小題選擇B。
（3）由圖2 可知“按鈕”圖層只有在第60幀為空白關鍵幀，該幀沒有圖像，實現按鈕始終在舞臺上的方法主要是將第60幀加上圖像。選項A：將第一幀圖像移動到第60幀后，第一幀無圖像不能實現始終有“按鈕”的效果，本項錯。選項B：第60幀為關鍵幀不能執行“清除幀”操作。本項錯。選項C：可以執行“清除關鍵幀”操作，清除后該幀為普通幀可延續上一關鍵幀的圖像，本項對。選項D： 選擇第1幀執行“剪切幀”操作，選擇第60幀“粘貼幀” ，可以將第一幀的圖像復制到第60幀，其他各幀也為第一幀的圖像，本項對。故本題答案選CD。
（4） 為實現單擊“進入”按鈕，使動畫從“main”場景的第1幀開始播放 ，應使用命令，在單擊或釋放鼠標時將動畫轉到場景“main”的第1幀進行播放，故本題答案填寫： on(press){gotoAndPlay(“main”，1);} 或 on(release){gotoAndPlay(“main”，1);} 。
（5）選項A：測試場景是測試當前場景，一個影片可能有多個場景，“進入”按鈕不一定在該場景中。選項B：測試影片是從影片的開始開始測試。選項C：播放不進入全屏幕進行播放對于“按鈕”效果不能進行測試，本項錯。故本小題答案選B。
【分析】本題考查的是“圖層”的操作、動畫類型、圖像的顯示時間、動作腳本及測試影片等。“圖層”可以進行復制、移動、設置圖層樣式、設置濾鏡、設置圖層屬性等操作。補間動畫有二種：動畫補間和形狀補間。形狀補間是由一個物體到另一個物體間的變化過程，像由三角形變成四方形等。時間軸上形狀補間是淡綠色底加一個黑色箭頭組成的。動畫補間是由一個形態到另一個形態的變化過程，像移動位置，改變角度等。時間軸上動畫補間是淡紫色底加一個黑色箭頭組成的。為了增強動畫的人機交互功能可以對動畫添加動作腳本。
16．（2019高三上·浙江月考）【加試題】小王設計了一個算法試圖求出平面坐標系中最左點出發，從左往右途經所有點到達最右點的路徑值和，編寫了一個VB程序功能如下：在文本框Text1中輸入需隨機生成的坐標點數量，單擊“生成”按鈕Command1后，在列表框List1中生成相應數量的坐標點（坐標值為大于等于1小于10的實數 ，保留一位小數），在文本框Text2中輸出路徑值。程序界面如圖所示。
實現上述功能的VB程序如下，但劃線部分代碼有錯，請改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single， y(1 To 100) As Single
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single
Dim i As Integer， j As Integer， k As Integer
Randomize
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
x(j) = x(i) + x(j) ‘①
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0： length = 0
For i = 1 To k - 1
x1 = (x(i) - x(1)) ^ 2 ‘②
'變量y1計算方法同x1，代碼略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub
①　 　②　 　
【答案】x(i)=x(i)–x(j)；(x(i)–x(i+1))^2或其他等價表達式
【知識點】解析算法及程序實現
【解析】【解答】本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim x(1 To 100) As Single， y(1 To 100) As Single ‘定義單精度數組x和y用于存放點的坐標
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single ‘定義單精度變量tmp、length、sum、x1和y1
Dim i As Integer， j As Integer， k As Integer ‘定義整型變量i、j和k
Randomize ‘放置一個隨機種子
List1.Clear ‘清空列表框
k = Val(Text1.Text) ‘將文本框1中輸入的數據轉為數值型并賦給變量k
For i = 1 To k ‘使用k來控制循環
x(i) = Int(Rnd * 90) / 10 + 1 ‘產生第i個點的橫坐標并存到數組元素x（i）中
y(i) = Int(Rnd * 90) / 10 + 1 ‘產生第i個點的縱坐標并存到數組元素y（i）中
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i)) ‘在列表框中輸出這個點的橫坐標和縱坐標
Next i ‘結束循環
For i = 1 To k - 1 ‘使用i來控制外層循環，使用冒泡法將這些點按由小到大的順序進行排序
For j = 1 To k - i ‘使用j來控制內層循環
If x(j) > x(j + 1) Then ‘如果前一個點的橫坐標大于后一個點的橫坐標則進行如下處理
x(i)=x(i) + x(j) ‘將兩個橫坐標求和放在前一個橫坐標所在的數組中
x(j) = x(i) - x(j) ‘通過相減交換前后兩個點的橫坐標
x(j) = x(i) + x(j) ‘①通過相減交換前后兩個點的橫坐標，故此處應改為： x(i)=x(i)–x(j)
tmp = y(j) ‘將前一個點的縱坐標存入臨時變量tmp中
y(j) = y(j + 1) ‘將后一個點的縱坐標存入前一個點的縱坐標所在的數組元素中
y(j + 1) = tmp ‘將前一個點存入的臨時變量的值存入后一個點的縱坐標中
End If ‘結束判斷
Next j ‘結束內層循環
Next i ‘結束外層循環
sum = 0： length = 0 ‘初始化變量sum和length
For i = 1 To k - 1 ‘使用i來控制循環
x1 = (x(i) - x(1)) ^ 2 ‘②計算兩個相鄰點的橫坐標的平方差，不是求這個點到第一個點的橫坐標的平方差，故本處應改為： (x(i)–x(i+1))^2
'變量y1計算方法同x1，代碼略
length = Sqr(x1 + y1) ‘求相鄰兩個點之間的距離
sum = sum + length ‘將兩點之間的距離累加到變量sum中
Next i ‘結束循環
Text2.Text = Str(Int(sum * 10) / 10) ‘在文本框2中輸出所有點之間的距離
End Sub ‘結束事件過程
由以上分析知，程序劃線 ① 處為：通過相減交換前后兩個點的橫坐標，故此處應改為： x(i)=x(i)–x(j)
程序劃線 ② 處為：計算兩個相鄰點的橫坐標的平方差，不是求這個點到第一個點的橫坐標的平方差，故本處應改為： (x(i)–x(i+1))^2 。
【分析】本題考查的是冒泡法及交換兩個變量值的方法。在使用冒泡法進行排序時會有兩層循環，外層循環代表比較的輪數，內層循環代表每輪比較的次數，在每輪比較時都是將相鄰數組元素進行比較，如果前一個數組元素大于后一個數組元素（由小到大時）進行交換，這樣第一輪使最小的元素排在元素下標最小的元素中，第二輪比較后將次小元素排在第二個元素中，這樣經過n-1輪比較后將數列排好。交換兩個變量的值有三種方法：一是借助中間變量，二是借助兩數之和，三是借助兩數之積，但此法中兩數不能出現0值。
17．（2019高三上·浙江月考）【加試題】某密碼的破譯步驟如下：
⑴找出文章(以“.”結束)中所有用英文表示的數字(均為小寫，數字范圍1≤n≤20)，單詞與數字對應如下：
⑵將這些數字平方后除以100取余，得到兩位數如00，04，21，96。
⑶把這些兩位數按升序排成一行，組成一個最小的新數，如果新數開頭為0，就去除。
⑷步驟(3)找出的最小數即為密碼。
小明按照上述方法，設計了一個解密的VB程序，功能如下：單擊“解密”按鈕Command1，程序依次將文本框Text1中以空格分隔的每個英文單詞取出，若單詞屬于數字單詞，則按解密步驟進行處理，最后在文本框Text2中輸出解密結果。
程序運行效果如圖所示，請回答下列問題：
（1）若文章內容為“tom bought two apples and
five oranges, which cost ten dollars altogether.”，則破譯后的密碼應為　 　。
（2）請在劃線處填入合適的代碼。
Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one"： a(2) = "two"
‘……將所有數字單詞按順序存入數組a中，代碼略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String,
ch As As String, code As Long
Dim b(1 To 100) As String ‘b數組存放數字單詞處理后得到的兩位數
s = Text1.Text
c = 0： i = 1： flag =
True：t = ""
Do While i <= Len(s)
ch = Mid(s， i，
1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =　 　
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
’將b數組中的兩位數按數值大小進行升序排序，代碼略
For i = 1 To c
t = Val(b(i))
　 　
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf 　 　 Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo)) 'Trim為去除字符串兩端空格的函數
End If
End Function
【答案】（1）425
（2）decode(j)；code = code * 100 + t 或其他等價表達式；mo >= 1 And mo <= 9或其他等價表達式
【知識點】枚舉算法及程序實現
【解析】【解答】（1）在字符串 “tom bought two apples and five oranges, which cost ten dollars altogether.” 中共有數字two、five、ten三個數，將這三個數平方后除以100再取余結果為：4、25、00，組成最小數即為425，故本小題答案填寫：425。
（2）本題程序分析如下：
Dim a(1 To 20) As String ‘定義窗體級數組a，a共有20個元素
Private Sub Form_Load() ‘窗體裝載事件開始
a(1) = "one"： a(2) = "two" ‘對數組a進行賦值
‘……將所有數字單詞按順序存入數組a中，代碼略
End Sub ‘結束事件過程
Private Sub Command1_Click() ‘命令按鈕單擊事件過程
Dim s As String, tmp As String ‘定義一個字符串變量s和tmp
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String, ch As As String, code As Long ‘定義整型變量c、i、j、k和字符串變量t、ch和長整型變量code
Dim b(1 To 100) As String ‘b數組存放數字單詞處理后得到的兩位數
s = Text1.Text ‘將文本框1中的字符串賦給變量s
c = 0： i = 1： flag = True：t = "" ‘初始化變量c、i、t和flag
Do While i <= Len(s) ‘如果變量i的值小于字符串變量s的長度時進行循環
ch = Mid(s， i， 1) ‘在字符串s中按i的值在對應位置取出一個字符并賦給變量ch
If ch >= "a" And ch <= "z" Then ‘如果ch在小寫字母a和z之間則進行如下處理
t = t + ch ‘將這個字符合并到變量t中
flag = False ‘設置標記變量值為false
ElseIf flag = False Then ‘如果不是小寫字母且flag的值為false時進行如下處理
For j = 1 To 20 ‘使用j來控制循環
If t = a(j) Then ‘如果t值和數組a中的某個數組元素時進行如下處理
c = c + 1 ‘使用計數器c進 行計數
‘使用自定義函數code將字符串s中的數字平方后除以100取余后再轉為字符串，故本處答案應填寫： decode(j)
b(c) = 1
End If ‘結束條件判斷
Next j ‘結束內層循環
t = "" ‘初字符串t初始化為一個空串
flag = True ‘調置標記變量值為true
End If ‘結束條件判斷
i = i + 1 ‘將i值加1，即循環變量的值
Loop ‘結束循環
’將b數組中的兩位數按數值大小進行升序排序，代碼略
For i = 1 To c ‘使用i來控制循環
t = Val(b(i)) ‘將數組b的數轉為數值型并賦給變量t
‘將t值合并到數的右側，故本處答案應填寫： code = code * 100 + t
2
Next i ‘ 結束循環
Text2.Text = Str(code) ‘在文本框2中輸出密碼
End Sub ‘結束事件過程
Function decode(num As Integer) As String ‘自定義函數decode（）開始
Dim mo As Integer ‘定義一個整型變量mo
mo = num * num Mod 100 ‘mo的值為參數平方后除以100后的余數
If mo = 0 Then ‘如果這個余數為0，則進行如下處理
decode = "00" ‘函數值為“00”
ElseIf 3 Then ‘如果余數不為0但在1到9之間則進行如下處理，故此處應填寫： mo >= 1 And mo <= 9
decode = "0" + Trim(Str(mo)) ‘將這個余數轉為字符型后前面加上一個0
Else ‘
decode = Trim(Str(mo)) 'Trim為去除字符串兩端空格的函數
End If ‘結束條件判斷
End Function ‘結束自定義函數
由以上程序分析知，1處為使用自定義函數code將字符串s中的數字平方后除以100取余后再轉為字符串，故本處答案應填寫： decode(j) 。
2處為：將t值合并到數的右側，故本處答案應填寫： code = code * 100 + t
3處為：如果余數不為0但在1到9之間則進行如下處理，故此處應填寫： mo >= 1 And mo <= 9 。
【分析】本題考查的是自定義函數的定義及使用和在字符串中取出一個單詞的方法。自定義函數以function為關鍵字進行定義，使用時同標準函數，但一定要注意參數的類型。從一個字符串中取一個單詞是使用mid（）函數逐位取出字符，并用累加器將取出的字符進行合并，在取出的字符為空格、逗號等符號時結束并將字符串t進行初始化以便為取下一個單詞做準備。
1 / 1浙江省名校協作體2019屆高三上學期信息技術9月聯考試卷
一、選擇題
1．（2019高三上·浙江月考）下列有關信息的說法，正確的是（　　）
A．信息經過加工和處理后的使用價值始終保持不變
B．信息可以脫離載體而存在
C．信息在使用過程中會產生損耗
D．手機屏幕鎖功能，可以提升信息的安全性
2．（2019高三上·浙江月考）下列有關瀏覽器與網頁、網絡協議的說法，正確的是（　　）
A．選擇“網頁，僅HTML”方式保存網頁，網頁中的圖片同時被保存
B．保存網頁其實就是保存網頁的URL
C．網頁內容是通過HTTP語言描述的
D．SMTP協議是簡單郵件傳輸協議的英文簡稱
3．（2019高三上·浙江月考）使用word編輯某文檔，部分界面如圖所示，以下說法正確的是（　　）
A．若將文檔中圖片的環繞方式改為“緊密型”后效果不變
B．刪除批注對話框中“摘自《遺傳密碼》”后該批注框消失
C．文中的“美夢承真”可通過自動更正功能改為“美夢成真”
D．接受所有修訂后，第四行將變成“毫發無損。有魔術表演的夜晚總是那么歡樂。”
4．（2019高三上·浙江月考）使用Access軟件創建一張數據表，其設計視圖界面如圖所示，下列說法正確的是（　　）
A．當前狀態下，可以對數據表“圖書信息”重命名
B．該視圖中，右表刪除一行，則其數據表的記錄總數會相應減少一條
C．在“圖書信息”數據表中，可以包含圖書名稱相同的兩條記錄
D．存儲“借出”字段值需要1個字節
5．（2019高三上·浙江月考）使用UltraEdit軟件觀察字符內碼，結果如圖所示。
以下說法正確的是（　　）
A．圖中內碼表示的ASCII碼字符共有5個
B．字符“F”內碼轉十進制過程應為4×162+6×161
C．字母“j”內碼用十六進制表示是70
D．字母“B”內碼用二進制表示是1000010
6．（2019高二上·溫州期末）某算法流程圖如圖所示：
執行該流程圖后，輸出i，k的值分別是（　　）
A．102，9 B．102，8 C．100，9 D．100，8
7．（2019高三上·浙江月考）使用GoldWave軟件編輯某段音樂，界面如圖所示。
下列說法正確的是（　　）
A．當前狀態下執行“靜音”操作，和插入25秒靜音效果相同
B．該音頻是Wav格式，是無損壓縮的音頻文件
C．復制一段10秒聲音，在當前狀態下第25秒開始執行“混音”后，音樂文件總時長不變
D．當前狀態下執行“刪除”操作，左聲道從25秒到50秒變為靜音
8．（2019高三上·浙江月考）用Photoshop軟件制作“2018世界杯”作品，界面如圖所示：
以下說法正確的是（　　）
A．用“裁剪”工具對“背景”圖層操作之后，圖像大小一定不會發生改變
B．隱藏“徽標”圖層后，按原參數保存成bmp圖像，存儲容量不變
C．將左下角的100%改成66.67%之后，按原參數保存，存儲容量變小
D．該作品以jpg格式存儲后容量為1.25MB
9．（2019高三上·浙江月考）使用Flash軟件制作補間動畫，部分屬性界面如圖所示。以下說法正確的是（　　）
A．該補間動畫可能是形狀補間動畫
B．當前狀態下，該實例在舞臺中可見
C．該界面是關鍵幀的屬性面板
D．該實例由庫中“舞動”元件生成
10．（2019高三上·浙江月考）（加試題）一段未經壓縮的PAL制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×400像素，存儲容量約為97.7MB，則該視頻中圖像的每個像素所占的位數是（　　）
A．2位 B．8位 C．16位 D．24位
11．（2019高三上·浙江月考）（加試題）有如下VB程序段：
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
執行該段程序后，數組元素f(12)的值為（　　）
A．0 B．1 C．2 D．3
12．（2019高三上·浙江月考）【加試題】已知一無序數組a中的元素為"90，15，40，72，65，32，81，6"，通過引入數組b存儲數組a元素按升序排列時的下標，b數組元素為"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，從而對a數組中的數據進行對分查找。部分程序如下：
當文本框Text1中輸入的值為32時，程序運行結束后變量c的值為（　　）
A．1 B．2 C．3 D．4
二、填空題
13．（2019高三上·浙江月考）小李收集了本市主要食品平均價格變動的數據，并使用Excel軟件進行數據處理，如圖1所示。
圖1
請回答下列問題：
（1）若要對肉類食品按本期價格進行降序排序，則需要選擇的數據區域為　 　。
（2）區域F3：F16的數據是通過公式計算得到的：在F3單元格輸入公式后，用自動填充功能完成F4：F16的計算，則F3單元格中的公式是　 　。
（漲跌幅（%）=(本期價格(元)-上期價格(元))/上期價格(元)×100）
（3）在計算F列數據之后，若E列的數據被誤清除，則F16單元格將顯示為　 　(單選，填字母： A .98.2 / B .0 / C .#DIV/0！/ D .#REF！)。
（4）為了更直觀地比較魚肉類價格波動情況，小李制作了如圖2所示的圖表。該圖表的數據區域是：　 　，D2：E2，D6：E11。
圖2
14．（2019高三上·浙江月考）編寫一個VB程序，實現如下功能：在文本框Text1中輸入一個偶數n，判斷該數在10步之內通過以下計算過程后能否回到初始值。計算步驟如下：
⑴將n乘以3后加1產生一個新的數
⑵對產生的新數循環執行如下操作：新數是偶數時，用新數除以2；新數是奇數時，用新數乘以3后加1
譬如，以2為初始值，則計算過程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。數字2不能在10步之內回到初始值。
界面如圖所示，回答下列問題：
（1）若要把窗體的標題名稱由“Form1”改為“數值猜想”，應改變窗體的　 　屬性。
（2）完成上述功能的程序代碼如下，請在劃線處填入合適的代碼
Private Sub Command1_Click()
Dim n As Integer，t as Integer ，m as Integer ，s as String
　 　
t = n * 3 + 1
m = 1
s = ""
Do While 　 　
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "該數10步之內無法實現！"
End If
End Sub
（3）按照以上VB程序的計算方法，若在文本框Text1中輸入4，能否在10步之內回到初始數 　 　。（選填：能/否）
15．（2019高三上·浙江月考）小明制作主題為“皮影熠彩”的多媒體作品，她先用PhotoShop軟件制作一張背景圖片，然后用Flash軟件制作動畫。請回答下列各題：
（1）如圖1所示，當前狀態下，下列說法不正確的有　 　（多選，填字母：A .可以對“龍柱”圖層選擇區域并填充顏色/ B .用“仿制圖章”工具對“燈籠”圖層操作將會新增一個圖層/ C .將“熠彩”的圖層樣式拷貝到“皮影”之后，“皮影”的圖層樣式將被替換/ D .可以設置“背景”圖層的不透明度）。
圖1
（2）如圖2所示，“人物”圖層第5幀到32幀實現了人物實例旋轉一周且淡入的動畫效果，該動畫類型為　 　（單選，填字母：A .形狀補間/B .動畫補間/C .逐幀動畫）
圖2
（3）調試作品，發現“進入”按鈕會在最后消失，以下對“按鈕”圖層的操作可實現該按鈕一直在舞臺上的操作有　 　（多選，填字母：A .把第1幀移動到第60幀/B .選擇第60幀，執行“清除幀”操作;/C .選擇第60幀，執行“清除關鍵幀”操作/D .對第1幀“復制幀”，選擇第60幀“粘貼幀”/E.選擇第1幀執行“剪切幀”操作，選擇第60幀“粘貼幀”）
（4）為實現單擊“進入”按鈕，使動畫從“main”場景的第1幀開始播放，應在該按鈕上添加動作腳本　 　。
（5）經上述操作之后，若要測試“進入”按鈕的效果，則應　 　（單選，填字母：A .測試場景/ B .測試影片/ C .播放）
16．（2019高三上·浙江月考）【加試題】小王設計了一個算法試圖求出平面坐標系中最左點出發，從左往右途經所有點到達最右點的路徑值和，編寫了一個VB程序功能如下：在文本框Text1中輸入需隨機生成的坐標點數量，單擊“生成”按鈕Command1后，在列表框List1中生成相應數量的坐標點（坐標值為大于等于1小于10的實數 ，保留一位小數），在文本框Text2中輸出路徑值。程序界面如圖所示。
實現上述功能的VB程序如下，但劃線部分代碼有錯，請改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single， y(1 To 100) As Single
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single
Dim i As Integer， j As Integer， k As Integer
Randomize
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
x(j) = x(i) + x(j) ‘①
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0： length = 0
For i = 1 To k - 1
x1 = (x(i) - x(1)) ^ 2 ‘②
'變量y1計算方法同x1，代碼略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub
①　 　②　 　
17．（2019高三上·浙江月考）【加試題】某密碼的破譯步驟如下：
⑴找出文章(以“.”結束)中所有用英文表示的數字(均為小寫，數字范圍1≤n≤20)，單詞與數字對應如下：
⑵將這些數字平方后除以100取余，得到兩位數如00，04，21，96。
⑶把這些兩位數按升序排成一行，組成一個最小的新數，如果新數開頭為0，就去除。
⑷步驟(3)找出的最小數即為密碼。
小明按照上述方法，設計了一個解密的VB程序，功能如下：單擊“解密”按鈕Command1，程序依次將文本框Text1中以空格分隔的每個英文單詞取出，若單詞屬于數字單詞，則按解密步驟進行處理，最后在文本框Text2中輸出解密結果。
程序運行效果如圖所示，請回答下列問題：
（1）若文章內容為“tom bought two apples and
five oranges, which cost ten dollars altogether.”，則破譯后的密碼應為　 　。
（2）請在劃線處填入合適的代碼。
Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one"： a(2) = "two"
‘……將所有數字單詞按順序存入數組a中，代碼略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String,
ch As As String, code As Long
Dim b(1 To 100) As String ‘b數組存放數字單詞處理后得到的兩位數
s = Text1.Text
c = 0： i = 1： flag =
True：t = ""
Do While i <= Len(s)
ch = Mid(s， i，
1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =　 　
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
’將b數組中的兩位數按數值大小進行升序排序，代碼略
For i = 1 To c
t = Val(b(i))
　 　
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf 　 　 Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo)) 'Trim為去除字符串兩端空格的函數
End If
End Function
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息系統安全防護
【解析】【解答】選項A：信息可以進行加工和處理，在對信息進行重新分類和存儲傳輸后信息會產生一個附加值，這是信息的可處理性。本項錯。選項B：信息不能離開載體而獨立存在，這是信息的依附性。本項錯。選項C：信息可以被多人共享而不會產生損耗，這是信息的共享性。選項D：開戶手機鎖屏功能，輸入密碼后手機才能被使用，可以提升信息的安全性，本項對。故本題答案選D。
【分析】本題考查的是信息的特征和信息的安全使用。信息有五個基本特征和五個一般特征。基本特征：普遍性、依附性、傳遞性、價值性、時效性；一般特征：共享性、真偽性、不完全性、價值相對性、可處理性。在互聯網廣泛使用的今天特別要注意信息的安全性，不是因為自己的不慎造成損失。
2．【答案】D
【知識點】網絡協議；網頁、網站的概念與聯系
【解析】【解答】選項A：如果保存網頁時 選擇“網頁，僅HTML”方式保存網頁則只保存文本的內容、格式和鏈接而不保存圖片、圖像等信息，本項錯。選項B： 保存網頁其實就是保存網頁的內容，收藏網址才是保存網頁的URL（統一資源定位器）。本項錯。選項C： 網頁內容是通過超文本標記語言（HTML）來描述的，本項錯。選項D： SMTP協議是簡單郵件傳輸協議的英文簡稱 ，是用于發送電子郵件的，本項對。故答案選D。
【分析】本題考查的是常用的網絡協議的名稱及作用以及保存網頁的類型、編輯網頁使用的語言。保存網頁時的選項較多，可以只保存網頁上的文字、圖片、圖像等，也可以保存網頁上的文字格式和鏈接，還可以同時保存網頁上的文字、圖片、圖像等。HTTP叫超文本傳輸協議是用于發送網頁文件的協議。HTML語言叫超文本標記語言是用于編輯網頁的文件。SMTP叫 簡單郵件傳輸協議 ，是用于發送電子郵件的，POP3叫郵局協議是用于接受郵件的協議。
3．【答案】A
【知識點】文本的基本編輯
【解析】【解答】選項A：本文的圖片環繞方式為“四周型”由于圖片形狀為矩形所以改為 “緊密型”后效果不變 ，本項對。選項B： 刪除批注對話框中“摘自《遺傳密碼》“只是刪除了批注的內容，并沒有刪除該批注，批注框是不會消失的，本項錯。選項C：劃綠色波線只是提示該處有語法錯誤，不會自動更正該詞語，本項錯。選項D： 接受所有修訂后，第四行將變成“毫發無損。有魔術表演的夜晚總是那么開懷。” 拒絕修訂后第四行內容才變成 “毫發無損。有魔術表演的夜晚總是那么歡樂。” ，本項錯。故答案選A。
【分析】本題考查的是批注和修訂功能。批注是對文章的某些文字段落做出備注、意見及建議等。而批注是保留修改痕跡的基礎上進行的修改，修訂是在保留修改痕跡的一種編輯方式，通過修訂可以恢復原來的文字或確認修改。
4．【答案】C
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
【解析】【解答】選項A：當前狀態為設計視圖狀態，正在對”圖書信息“進行字段設置不能對表進行重命名，本項錯。選項B：在設計視圖狀態下，刪除一行就是刪除一個字段，在數據表視圖中對應一列而不是一條記錄（一行），本項錯。選項C：由圖可知充號為主鍵不能重復其他字段的值包括圖書名稱可以有重復字段值，故本項對。選項D：”借出“為是否類型的字段，占用一位二進制數即1b，本項錯。故答案選C。
【分析】本題考查的是Access數據庫的視圖方式和字段類型。數據庫的視圖方式有兩種：設計視圖和數據表視圖。設計視圖是用于設置字段名和字段類型的視圖，數據表視圖是用于編輯記錄的視圖。Access允許九種數據類型：文本、備注、數值、日期/時間、貨幣、自動編號、是/否、OLE對象、超級鏈接、查詢向導。
5．【答案】D
【知識點】信息的編碼
【解析】【解答】由圖可知：F對就46，l對應6C，a對應61，s對應73，h對應68，空格對應20，作對應D7 F7，品對應C6，B7。選項A：由圖可知ASCII碼字符共有6個（含空格），本項錯。選項B：”F“對應的內碼為46轉為十進制為：4*16+6=(70)10,本項錯。選項C： 字母”h“的內碼為68，字母“j”內碼用十六進制表示是 7A而不是70。本項錯。選項D：字母”F“的內碼為46，故字母”B“的內碼為42，轉為二進制為0100 0010，本項對。故答案選D。
【分析】本題考查的是字符的內碼表示及十進制、十六進制和二進制數之間的相互轉換。一個字母或字符在內存中占用一個字節用2個十六進制數來表示，一個漢字占用2個字節占用4位十六進制來表示。十進制數轉二進制數、十六進制數采用除2（16）取余法，二進制數、十六進制數轉二進制數采用公式法，二進制數和十六進制數之間是一位對四位的關系。
6．【答案】A
【知識點】算法的常用表示方法；算法的控制結構
【解析】【解答】分析本題流程圖運行過程：
初始值：i=0，k=0；
i=0，i<100，第一次循環，i mod 4=0成立，執行k=k+1=1，i=i+6=6；
i=6，i<100，第二次循環，i mod 4=0不成立，執行i=i+6=12；
i=12，i<100，第三次循環，i mod 4=0成立，執行k=k+1=2，i=i+6=18；
i=18，i<100，第四次循環，i mod 4=0不成立，執行i=i+6=24；
i=24，i<100，第五次循環，i mod 4=0成立，執行k=k+1=3，i=i+6=30；
依次類推，每循環一次，變量i的值加6，直至i>=100，循環結束，此時i=102。在[0,100)之間，若變量i既是6的倍數，又是4的倍數，即i是12的倍數時，變量k加1，其中0,12,24,36,48,60,72,84,96共9個數滿足條件，所以k=9。故答案選A。
【分析】本題考查學生分析和理解流程圖的能力，要求學生能夠清楚地分析出流程圖中各變量的變化情況。
7．【答案】C
【知識點】聲音素材的基本處理
【解析】【解答】選項A：如果執行”靜音“操作則將當前選中部分設為了靜音，而插入靜音操作則當前文件的時長變長當前選中部分并沒有被刪除，故本項錯。選項B：由圖可知當前聲音文件為WAV格式文件，WAV格式文件是沒有壓縮的聲音文件格式，本項錯。選項C：執行”混音“后只是改變的波形沒有改變聲音文件的時長，本項對。選項D： 當前狀態下執行“刪除”操作，左聲道從25秒到50秒被刪除而不是變為靜音。本項錯。故答案選C。
【分析】本題考查的是GoldWave的常用操作。在對聲音文件的某段音頻進行操作時要進行選標操作，執行”靜音“操作是將選中部分設置為靜音不會改變聲音文件的時長，如果執行”刪除“操作則將選中部分刪除改變了聲音文件的時長。
8．【答案】B
【知識點】圖層及圖層的基本操作；聲音、圖像、視頻編碼
【解析】【解答】選項A：”裁剪“操作是在圖像中選出一部分其他部分被刪除，對一個圖層進行“裁剪”操作，圖像的大小不一定會改變，本項錯誤；選項B： 隱藏“徽標”圖層后，按原參數保存成bmp圖像， 則”徽標“圖層不被輸出，影響存儲容量的因素都沒有改變，存儲容量不變，本項正確；選項C： 將左下角的100%改成66.67%之后，按原參數保存， 則該圖像只是顯示比例變小存儲容量是不受影響的，本項錯；選項D：在狀態欄中的文檔：1.25M/4.2M的含義為在合并所有圖層后輸出（即以bmp格式輸出）后存儲容量為1.25MB，若以psd格式（含圖層信息）存儲后存儲容量為4.4MB，本項錯。故答案選B。
【分析】本題考查的Photoshop常用的圖層操作及狀態欄的含義。對圖層可以進行復制、刪除、裁剪等操作，還可以設置圖層的一些屬性。在Photoshop的下方是狀態欄，可以顯示當前文檔的一些屬性如顯示比例和存儲容量等信息。
9．【答案】D
【知識點】元件的類型與應用；動畫的實現
【解析】【解答】選項A：由于只有當前狀態下的寬高和x、y軸的數據沒有動畫終止幀的數據不能判斷該動畫為何種動畫，本項錯。選項B：當前狀態下，該實例的Alpha的值為0%，說明透明度為0是不可見的，本項錯。選項C：該界面是實例的屬性面板，本項錯。選項D:由其屬性中的”實例:舞動“知該實例是由”舞動“元件生成的，本項對。故答案選D。
【分析】本題考查的是實例屬性面板上的參數及其含義。根據實例面板上的參數我們可以知道該實例的名稱、生成該實例的元件名及元件類型、所在舞臺上的位置、大小及透明度等信息。
10．【答案】C
【知識點】聲音、圖像、視頻編碼
【解析】【解答】97.7MB=117630.8KB=120453939.2B=963631513.6b，該視頻中每個像素占用的位數為：963631513.6/25/10/512/400=16.82，最接近于16位，故答案選C。
【分析】本題考查的是視頻格式的存儲容量的計算。PAL格式下每 秒播放25幀。其存儲視頻文件存儲容量=（水平像素×垂直像素×每個像素所需位數／8）*幀頻*時長（字節）。
11．【答案】A
【知識點】常見數據類型、數組；常量、變量及變量的賦值
【解析】【解答】本題程序分析如下：
A=1：b=1：n=12 ‘給變量a賦值為1，變量b賦值為1，變量n賦值為12
f(1)=a：f(2)=b ‘將變量a的值放到數組f的第一個元素中，將b放到數組f的第二個元素中
For i=3 to n ‘使用i來控制循環，i的初值為3，終值為n（12），步長為1
c=a+b ‘將a和b的和賦給變量c
f(i)=c Mod 4 ‘將c除以4的余數存儲到數組元素f（i）中
a=b ‘將原b的值賦給變量a
b=c ‘將c的值賦給變量b
Next i ‘結束循環
由以上程序分件知，數組元素f是一個數列，該數列的前兩項為1、1，后面各項為其前兩項之和除以4的余數，故其數列為1、1、2、3、1、0、1、1、2、3、1、0，f（12）對應的為最后一個數列的值0，故答案選A。
【分析】本題考查的是由數列的前兩項生成數列其他各項的算法。該算法為解析算法。所謂解析法（analysis algorithm）是指用解析的方法找出表示問題的前提條件與結果之間關系的數學表達式，并通過表達式的計算來實現問題求解。
12．【答案】C
【知識點】查找算法及程序實現
【解析】【解答】本題程序分析如下：
i=1：j=8：c=0 '給變量i、j和c賦初值
key=val（text1.text) '將從文本框1中輸入的數據轉為數值型后賦給變量key
do while i<=j '在數組下標的下限小于上限時進行循環
m=int(i+j)/2 'm為剩余數組元素的中值
t=b(m) '將中值元素下標賦給變量t
c=c+1 '使用c進行計數，即查找的次數
if a(t)=key then p=t:exit do '如果在數組a中查到該數則將下標值t賦給變量p并退出循環
if a(t)i=m+1 '調整數組元素的下限為中值加1
else '否則，即如果中值元素的值比要查找的值大則在前半個數組中找，進行如下處理
j=m-1 '調整數組元素的上限為中值減1
endif '結束條件判斷
loop '結束循環
由以上程序分析知，雖然在無序數組a中查找，但經過數據b進行排序后與在有序數組中查找是一樣的，其有序數組相當于6、15、32、40、65、72、81、90，第一次比較的是
40和32，40>32在前半個數組中查找，再比較15和32，15<32，在后半個數組中找。比較32和32，至此找到并退出循環，共查找了3次，故c值為3，故答案選C。
【分析】本題考查的是對分查找法。對分法查找過程是先將一個數列放于一個有序數組中，然后比較中間數組元素的值與要查找的值，或中間數組的值比要查找的值大，則在前半個數組中查找，若中間數組的值比要查找的值小則在后半個數組中查找。查找方法仍是比較中間數組元素的值和要查找的值。以此類推直到查到或下限大于了上限（沒查找）為止。
13．【答案】（1）B6：F8 或 B6：E8
（2）=(D3-E3)/E3*100
（3）C
（4）B2，B6：B11
【知識點】表格數據的處理與計算
【解析】【解答】（1） 若要對肉類食品按本期價格進行降序排序， 不能選擇”肉類“這個合并單元格，而F列是公式會隨數據的變化而變化，可以選也可以不選，故本小題答案填寫： B6：F8 或 B6：E8 。
（2）由F列的公式: 漲跌幅（%）=(本期價格(元)-上期價格(元))/上期價格(元)×100 可知：本期價格在D列， 上期價格 在E列且公式中各單元格地址要隨單元格的變化而變化。故F3的公式為： =(D3-E3)/E3*100 。
（3） 在計算F列數據之后，若E列的數據被誤清除 ，則公式中E列為0即0作了除數，單元格中顯示提示信息 ”#DIV/0！ “，故本小題答案選C。
（4）由圖可知：該圖表的橫軸為肉類和魚類的名稱，縱軸為本期價格和上期價格，故其數據區域為： B2，B6：B11 ， D2：E2，D6：E11 ，故本小題答案填寫： B2，B6：B11 。
【分析】本題考查的是Excle的排序數據的選擇、公式的運用、數據出錯提示信息及圖表數據區域的選擇。Excel的地址引用有相對地址引用和絕對地址引用及混合地址引用3種方式，相對地址引用就是單元格地址前不加任何東西，單元格地址會隨單元格的變化而變化，絕對單元格地址引用就是在單元格地址前加$號，不會隨單元格的變化而變化。混合引用是在行號或列標前加$號，另一個不加，在復制公式時加$號的不變，不加$號的變化。在排序時注意不要選擇合并的單元格，尤其選擇標題欄時注意標題欄是否為合并單元格。圖表數據區域的選擇是看其橫軸和縱軸的數據。在常用的提示信息中： #DIV/0！ 是將0作為了除數（分母）， #REF！ 是使用了錯誤的參數。
14．【答案】（1）Caption
（2）n=Val(Text1.Text)；n <> t And m <= 10或其它等價表達式
（3）能
【知識點】解析算法及程序實現
【解析】【解答】（1） 若要把窗體的標題名稱由“Form1”改為“數值猜想”，則需修改窗體的 標題屬性，故本題答案填寫：Caption。
（2）本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim n As Integer，t as Integer ，m as Integer ，s as String ‘定義整型變量n、t、m和s
‘將文本框1中輸入的數據轉為數值型并賦給變量n，故本處答案應填寫： n=Val(Text1.Text)
1
t = n * 3 + 1 ‘將n值乘以3加上1賦給變量t
m = 1 ‘將計數器m的值賦為1，代表已經進行了一次數據處理
s = "" ‘初始化字符串變量s的值為空串
‘在n值不等于t值且數據處理步驟小于等于10次（m值小于等于10）時進行循環，故此處答案應填寫： n <> t And m <= 10
Do While 2
s = s + Str(t) ‘將每次處理后的結果t轉為字符型放在變量s中
If t Mod 2 = 0 Then ‘如果t為一個偶數則進行如下處理
t = t \ 2 ‘將這個數整除以2將商重新賦給變量t
Else ‘否則（即結果為奇數時）進行如下處理
t = t * 3 + 1 ‘將這個數仍舊乘以3加上1后重新賦給變量t
End If ‘結束條件判斷
m = m + 1 ‘使用計算器m進行計數
Loop ‘結束循環
If n = t Then ‘如果經過處理后的數據t等于n則進行如下處理
Label1.Caption = s + Str(n) ‘使用標簽1輸出處理過程中的所有中間數和結果
Else ‘否則（如果t和n值不相同）進行如下處理
Label1.Caption = "該數10步之內無法實現！" ‘使用標簽1輸出該數10步內無法實現
End If ‘結束條件判斷
End Sub ‘結束事件過程
由以上程序分析知,1處為：將文本框1中輸入的數據轉為數值型并賦給變量n，故本處答案應填寫： n=Val(Text1.Text) 。
2處為：在n值不等于t值且數據處理步驟小于等于10次（m值小于等于10）時進行循環，故此處答案應填寫： n <> t And m <= 10 。
(3)4->13->40->20->10->5->16->8->4，在第8步時回到初始值，故本小題答案選填：能。
【分析】本題考查的是判斷一個數在10步內能否回到初始值的算法，該算法采用的是解析算法。所謂解析法（analysis algorithm）是指用解析的方法找出表示問題的前提條件與結果之間關系的數學表達式，并通過表達式的計算來實現問題求解。在本題中使用了計數器對運算步驟進行了統計。
15．【答案】（1）ABD
（2）B
（3）CD
（4）on(press/release){gotoAndPlay(“main”，1);}
（5）B
【知識點】圖片加工常用工具的使用；動畫的類型；常用影片控制函數的應用
【解析】【解答】（1）選項A： “龍柱”圖層 處于鎖定狀態不能進行編輯，本項錯。選項B： “仿制圖章”工具可以復制圖像但不會產生新圖層。本項錯。選項C：圖層的樣式可以進行復制和替換，本項對。選項D：背景圖層處于鎖定狀態不能進行編輯，本項錯。故本題答案選ABD。
（2） “人物”圖層第5幀到32幀實現了人物實例旋轉一周且淡入的動畫效果 ，該動畫沒有圖形的轉換，只有透明度和位置的變化，為動畫補間，故本小題選擇B。
（3）由圖2 可知“按鈕”圖層只有在第60幀為空白關鍵幀，該幀沒有圖像，實現按鈕始終在舞臺上的方法主要是將第60幀加上圖像。選項A：將第一幀圖像移動到第60幀后，第一幀無圖像不能實現始終有“按鈕”的效果，本項錯。選項B：第60幀為關鍵幀不能執行“清除幀”操作。本項錯。選項C：可以執行“清除關鍵幀”操作，清除后該幀為普通幀可延續上一關鍵幀的圖像，本項對。選項D： 選擇第1幀執行“剪切幀”操作，選擇第60幀“粘貼幀” ，可以將第一幀的圖像復制到第60幀，其他各幀也為第一幀的圖像，本項對。故本題答案選CD。
（4） 為實現單擊“進入”按鈕，使動畫從“main”場景的第1幀開始播放 ，應使用命令，在單擊或釋放鼠標時將動畫轉到場景“main”的第1幀進行播放，故本題答案填寫： on(press){gotoAndPlay(“main”，1);} 或 on(release){gotoAndPlay(“main”，1);} 。
（5）選項A：測試場景是測試當前場景，一個影片可能有多個場景，“進入”按鈕不一定在該場景中。選項B：測試影片是從影片的開始開始測試。選項C：播放不進入全屏幕進行播放對于“按鈕”效果不能進行測試，本項錯。故本小題答案選B。
【分析】本題考查的是“圖層”的操作、動畫類型、圖像的顯示時間、動作腳本及測試影片等。“圖層”可以進行復制、移動、設置圖層樣式、設置濾鏡、設置圖層屬性等操作。補間動畫有二種：動畫補間和形狀補間。形狀補間是由一個物體到另一個物體間的變化過程，像由三角形變成四方形等。時間軸上形狀補間是淡綠色底加一個黑色箭頭組成的。動畫補間是由一個形態到另一個形態的變化過程，像移動位置，改變角度等。時間軸上動畫補間是淡紫色底加一個黑色箭頭組成的。為了增強動畫的人機交互功能可以對動畫添加動作腳本。
16．【答案】x(i)=x(i)–x(j)；(x(i)–x(i+1))^2或其他等價表達式
【知識點】解析算法及程序實現
【解析】【解答】本題程序分析如下：
Private Sub Command1_Click() ‘命令按鈕單擊事件開始
Dim x(1 To 100) As Single， y(1 To 100) As Single ‘定義單精度數組x和y用于存放點的坐標
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single ‘定義單精度變量tmp、length、sum、x1和y1
Dim i As Integer， j As Integer， k As Integer ‘定義整型變量i、j和k
Randomize ‘放置一個隨機種子
List1.Clear ‘清空列表框
k = Val(Text1.Text) ‘將文本框1中輸入的數據轉為數值型并賦給變量k
For i = 1 To k ‘使用k來控制循環
x(i) = Int(Rnd * 90) / 10 + 1 ‘產生第i個點的橫坐標并存到數組元素x（i）中
y(i) = Int(Rnd * 90) / 10 + 1 ‘產生第i個點的縱坐標并存到數組元素y（i）中
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i)) ‘在列表框中輸出這個點的橫坐標和縱坐標
Next i ‘結束循環
For i = 1 To k - 1 ‘使用i來控制外層循環，使用冒泡法將這些點按由小到大的順序進行排序
For j = 1 To k - i ‘使用j來控制內層循環
If x(j) > x(j + 1) Then ‘如果前一個點的橫坐標大于后一個點的橫坐標則進行如下處理
x(i)=x(i) + x(j) ‘將兩個橫坐標求和放在前一個橫坐標所在的數組中
x(j) = x(i) - x(j) ‘通過相減交換前后兩個點的橫坐標
x(j) = x(i) + x(j) ‘①通過相減交換前后兩個點的橫坐標，故此處應改為： x(i)=x(i)–x(j)
tmp = y(j) ‘將前一個點的縱坐標存入臨時變量tmp中
y(j) = y(j + 1) ‘將后一個點的縱坐標存入前一個點的縱坐標所在的數組元素中
y(j + 1) = tmp ‘將前一個點存入的臨時變量的值存入后一個點的縱坐標中
End If ‘結束判斷
Next j ‘結束內層循環
Next i ‘結束外層循環
sum = 0： length = 0 ‘初始化變量sum和length
For i = 1 To k - 1 ‘使用i來控制循環
x1 = (x(i) - x(1)) ^ 2 ‘②計算兩個相鄰點的橫坐標的平方差，不是求這個點到第一個點的橫坐標的平方差，故本處應改為： (x(i)–x(i+1))^2
'變量y1計算方法同x1，代碼略
length = Sqr(x1 + y1) ‘求相鄰兩個點之間的距離
sum = sum + length ‘將兩點之間的距離累加到變量sum中
Next i ‘結束循環
Text2.Text = Str(Int(sum * 10) / 10) ‘在文本框2中輸出所有點之間的距離
End Sub ‘結束事件過程
由以上分析知，程序劃線 ① 處為：通過相減交換前后兩個點的橫坐標，故此處應改為： x(i)=x(i)–x(j)
程序劃線 ② 處為：計算兩個相鄰點的橫坐標的平方差，不是求這個點到第一個點的橫坐標的平方差，故本處應改為： (x(i)–x(i+1))^2 。
【分析】本題考查的是冒泡法及交換兩個變量值的方法。在使用冒泡法進行排序時會有兩層循環，外層循環代表比較的輪數，內層循環代表每輪比較的次數，在每輪比較時都是將相鄰數組元素進行比較，如果前一個數組元素大于后一個數組元素（由小到大時）進行交換，這樣第一輪使最小的元素排在元素下標最小的元素中，第二輪比較后將次小元素排在第二個元素中，這樣經過n-1輪比較后將數列排好。交換兩個變量的值有三種方法：一是借助中間變量，二是借助兩數之和，三是借助兩數之積，但此法中兩數不能出現0值。
17．【答案】（1）425
（2）decode(j)；code = code * 100 + t 或其他等價表達式；mo >= 1 And mo <= 9或其他等價表達式
【知識點】枚舉算法及程序實現
【解析】【解答】（1）在字符串 “tom bought two apples and five oranges, which cost ten dollars altogether.” 中共有數字two、five、ten三個數，將這三個數平方后除以100再取余結果為：4、25、00，組成最小數即為425，故本小題答案填寫：425。
（2）本題程序分析如下：
Dim a(1 To 20) As String ‘定義窗體級數組a，a共有20個元素
Private Sub Form_Load() ‘窗體裝載事件開始
a(1) = "one"： a(2) = "two" ‘對數組a進行賦值
‘……將所有數字單詞按順序存入數組a中，代碼略
End Sub ‘結束事件過程
Private Sub Command1_Click() ‘命令按鈕單擊事件過程
Dim s As String, tmp As String ‘定義一個字符串變量s和tmp
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String, ch As As String, code As Long ‘定義整型變量c、i、j、k和字符串變量t、ch和長整型變量code
Dim b(1 To 100) As String ‘b數組存放數字單詞處理后得到的兩位數
s = Text1.Text ‘將文本框1中的字符串賦給變量s
c = 0： i = 1： flag = True：t = "" ‘初始化變量c、i、t和flag
Do While i <= Len(s) ‘如果變量i的值小于字符串變量s的長度時進行循環
ch = Mid(s， i， 1) ‘在字符串s中按i的值在對應位置取出一個字符并賦給變量ch
If ch >= "a" And ch <= "z" Then ‘如果ch在小寫字母a和z之間則進行如下處理
t = t + ch ‘將這個字符合并到變量t中
flag = False ‘設置標記變量值為false
ElseIf flag = False Then ‘如果不是小寫字母且flag的值為false時進行如下處理
For j = 1 To 20 ‘使用j來控制循環
If t = a(j) Then ‘如果t值和數組a中的某個數組元素時進行如下處理
c = c + 1 ‘使用計數器c進 行計數
‘使用自定義函數code將字符串s中的數字平方后除以100取余后再轉為字符串，故本處答案應填寫： decode(j)
b(c) = 1
End If ‘結束條件判斷
Next j ‘結束內層循環
t = "" ‘初字符串t初始化為一個空串
flag = True ‘調置標記變量值為true
End If ‘結束條件判斷
i = i + 1 ‘將i值加1，即循環變量的值
Loop ‘結束循環
’將b數組中的兩位數按數值大小進行升序排序，代碼略
For i = 1 To c ‘使用i來控制循環
t = Val(b(i)) ‘將數組b的數轉為數值型并賦給變量t
‘將t值合并到數的右側，故本處答案應填寫： code = code * 100 + t
2
Next i ‘ 結束循環
Text2.Text = Str(code) ‘在文本框2中輸出密碼
End Sub ‘結束事件過程
Function decode(num As Integer) As String ‘自定義函數decode（）開始
Dim mo As Integer ‘定義一個整型變量mo
mo = num * num Mod 100 ‘mo的值為參數平方后除以100后的余數
If mo = 0 Then ‘如果這個余數為0，則進行如下處理
decode = "00" ‘函數值為“00”
ElseIf 3 Then ‘如果余數不為0但在1到9之間則進行如下處理，故此處應填寫： mo >= 1 And mo <= 9
decode = "0" + Trim(Str(mo)) ‘將這個余數轉為字符型后前面加上一個0
Else ‘
decode = Trim(Str(mo)) 'Trim為去除字符串兩端空格的函數
End If ‘結束條件判斷
End Function ‘結束自定義函數
由以上程序分析知，1處為使用自定義函數code將字符串s中的數字平方后除以100取余后再轉為字符串，故本處答案應填寫： decode(j) 。
2處為：將t值合并到數的右側，故本處答案應填寫： code = code * 100 + t
3處為：如果余數不為0但在1到9之間則進行如下處理，故此處應填寫： mo >= 1 And mo <= 9 。
【分析】本題考查的是自定義函數的定義及使用和在字符串中取出一個單詞的方法。自定義函數以function為關鍵字進行定義，使用時同標準函數，但一定要注意參數的類型。從一個字符串中取一個單詞是使用mid（）函數逐位取出字符，并用累加器將取出的字符進行合并，在取出的字符為空格、逗號等符號時結束并將字符串t進行初始化以便為取下一個單詞做準備。
1 / 1

展開更多......

收起↑