資源簡介

1
2019學年第一學期期中杭州地區(含周邊)重點中學
高三年級信息學科 試題
信息命題： 蕭山中學 朱城聰
通用命題： 蕭山中學 桑金玉
考生須知：
1．本卷滿分 100分，考試時間 90分鐘；
2．答題前，在答題卷指定區域填寫班級、姓名、考場號、座位號及準考證號并填涂相應數字。
3．所有答案必須寫在答題卷上，寫在試卷上無效；
4．考試結束后，只需上交答題卷。
第一部分 信息技術（共 50分）
一、 選擇題（本大題共 12 小題，每小題 2 分，共 24 分。在每小題給出的四個選項中，只有一個符合
題目要求。）
1.關于信息和信息技術，下列說法正確的是（ ）
A.聲音以模擬信號的形式存儲在計算機中
B.近代信息技術包括攝影技術、電影技術、光電子技術
C.報刊雜志是生活中重要的信息表達方式
D.漢字輸入時通常是利用音碼和形碼進行編碼
2.關于網絡和瀏覽器，下列說法正確的是（ ）
A.保存網頁時選擇“網頁，全部”選項能將網頁中所有的媒體內容都保存下來
B.靜態網頁可根據情況的變化、用戶的需要生成不同的頁面
C.收藏夾一旦清空，歷史記錄也將清空
D.瀏覽器訪問 web 服務器時，一定會用到 TCP 協議
3. 使用 Word 軟件編輯某文檔，部分界面如圖所示。
第 3 題圖
下列說法正確的是（ ）
A. 圖中圖文混排方式不可能是緊密型
B. 文中有 4 處修訂
C. 執行“拒絕所有修訂”，第三行第一句話是“中國同 12 國接壤，與 8 國海上相鄰。”
D. 可以利用替換功能先設置好替換的內容，在輸入時程序會自動將內容替換成預先設置好的內容
4.小陳利用 Access 軟件創建了某數據表，如下圖第 4 題-1 所示，其表結構如圖第 4 題-2 所示：
2

下列操作說法正確的是（ ）
第 4 題-1 圖 第 4 題-2 圖
A. 圖中出生年月字段中可以輸入數據“1990-1-5”
B. Access 中不可以將“出生年月”的字段類型修改成數字類型
C. 性別字段中的數據存儲時存儲大小為 1B
D. 當前視圖中可以刪除“編號”字段
5.使用 UltraEdit 軟件觀察字符“China!生日快樂！”的內碼，部分界面如下所示，下列說法正確的是（ ）
第 5 題圖
A. 圖中共有 4 個 GB-2312 編碼
B. 英文字符“J”的內碼表示成十六進制為 50
C. 字符“生”的內碼表示成二進制為“11001001 11111010”
D. “樂”字的內碼是 D6 A3
6.下圖是 Photoshop 軟件設計作品的部分界面，下列說法正確的是（ ）
第 6 題圖
A. 不可以把“文字 2”圖層的文字內容修改成“中華人民共和國成立 70 周年”
B. 背景圖層不能修改不透明度
C. 可以對“文字 1”圖層執行“拷貝圖層樣式”操作
D. 可以用畫筆工具將“背景”圖層的白色區域填充成紅色
7.用 GoldWave 軟件編輯某音頻文件，部分界面如圖所示，下列說法正確的是（ ）
第 7 題圖
A. 該音頻是 Wave 格式的文件，每秒鐘采樣 22050 千次
3

B. 當前狀態下執行“插入靜音”操作，時間為 5 秒，再執行“刪除”操作，文件存儲容量變大
C. 當前狀態下執行“刪除”操作，音頻時長變成 25s
D. 當前狀態下執行“選定部分另存為”按原格式進行保存，文件大小約為 107KB
8.某算法的部分流程圖如右圖所示，其中 a(1)到 a(5)中的數據
為 7,13,19,9,25 執行完這部分流程后，輸出的結果是（ ）
A. s=9,i=1,k=5
B. s=11,i=1,k=6
C. s=7,i=1,k=6
D. s=11,i=3,k=6
9.有如下 VB 程序段
Dim i As Integer
Dim a(1 To 9) As Integer
a(1) = 1: a(2) = 2
For i = 3 To 10
a(i) = a(i - 1) * i
Next i
Text1.Text = Str(a(i))
運行程序，單擊命令按鈕 Command1 后，出現的錯誤提示為（ ）
A.下標越界 B.溢出 C.子程序或函數未定義 D.類型不匹配
10.有如下 VB 程序段：
i = 1: j = 9: flag = False
Key = Val(Text1.Text)
Do While i < j
m = (i + j + 1) \ 2
If a(m) > Key Then j = m - 1 Else i = m + 1
If a(m) = Key Or a(m + 1) = Key Then flag = True: Exit Do
Loop
If flag Then
If a(m) = Key Then Text2.Text = Str(m) Else Text2.Text = Str(m + 1)
Else
Text2.Text = "找不到"
End If
程序運行時，數組元素 a(1)到 a(9)中的數據為 12,24,27,34,39,46,68,73,84，在文本框 Text1 中輸入“68”，
執行該程序段，則下列表達式正確的是（ ）
A. j=8 B. i=8 C. j=9 D.m=6
11. 有如下 VB 程序段：
k = 1: start = 1: end = 8: flag = 1
Do While k <= 3
For i = start To end - flag Step flag
If a(i) > a(i + flag) Then
t = a(i): a(i) = a(i + flag): a(i + flag) = t
End If
Next i
end = end – flag : flag = -flag : k = k + 1
t = start: start = end: end = t
Loop
第 8 題圖
4

For i = 1 To 8
List1.AddItem Str(a(i))
Next i
已知 a(1) 到 a(8)的值是 39,18,24,14,2,76,65,59，運行之后 a(1) 到 a(8)的值是（ ）
A. 65 39 18 2 14 24 59 76 B. 65 18 14 2 24 39 59 76
C. 65 18 2 14 24 39 59 76 D. 65 18 14 24 2 39 59 76
12.有如下 VB 程序段：
i = 0: s = "": n = 0
Do While i <= 3
k = i: j = i + 1
Do While j <= 7
If a(j) < a(k) Then k = j
j = j + 1
Loop
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
n = n + 1
End If
s = s + Str(a(i)): i = i + 1
Loop
Label1.Caption = Str(n) + ":" + s
數組 a(0)到 a(7)依次為 16, 19, 8, 20, 4, 12,6, 15， 程序運行后，標簽框 Label1 中顯示的值為（ ）
A. 3:4 6 8 B.4:4 6 8 C. 3:4 6 8 12 D.4:4 6 8 12
二、非選擇題（本大題共 4 小題，其中第 13 小題 4 分，第 14 小題 8 分，第 15 小題 7 分，第 16 小
題 7 分，共 26 分。）
13.小張統計了企業老員工的 1999 年月工資和 2019 年工資信息數據，并使用 EXCEL 軟件進行數據處理，
如第 13 題圖 a 所示











請回答下列問題：
（1）圖 a 中區域 F3：F13 中的計算公式是由 F2 單元格自動填充得到的，則 F8 單元格編輯欄中的內容為
_________________________________。（平均月工資增幅=（2019 月工資-1999 年平均月工資）/1999 年平
均月工資）
（2）圖 a 中的數據已經經過排序，則排序時應選的數據區域是_________________，其中主要關鍵字是“1999
年月工資”，次要關鍵字是_______________________。
（3）利用 13題圖 a的數據建立如第 13題 b中的柱形圖，則該圖表的數據區域為________________________。

第 13 題圖 a

5


第 13 題圖 b
14.小丹同學為 70 年國慶制作了多媒體作品。她利用 Flash 軟件制作了一個動畫，請回答下列問題：
第 14 題圖 a
（1）下列關于多媒體作品創作說法正確的是 （多選，填字母：A.在片頭場景中需要一張圖
片，需要上網獲取，經過 Photoshop 處理，名字命名成“BG.JPG”，這一過程屬于媒體元素分解；B.Flash 作
品主要界面需要鏈接到三個場景“開國篇”、“富國篇”、“強國篇”，這一過程是模塊設計；C.最終作品通過
微博發布，這一過程是應用需求分析；D.完成制作腳本后還需要編寫文字腳本；E.作品主要展示界面可分“片
頭”，“主交互界面”，“片尾”，這一過程是結構設計。）
（2）“BIRD1”圖層中補間動畫的類型是 。（單選，填字母：A.形狀補間動畫；B.動畫補間動畫）
（3）動畫播放到最后一幀便停止播放，點擊舞臺上的“退出”按鈕，便關閉整個動畫的播放，則最后一幀上
的動作命令是 。
（4）“TEXT”圖層從第一幀就開始播放，形成文字淡入的效果，在不改變動畫時長的前提下要求該圖層動
畫推遲一秒鐘播放，則該如何操作 。
（5）小丹同學在測試時發現“主界面”按鈕無法響應鼠標事件，按鈕的屬性狀態如下圖 b 和圖 c 所示，下列
說法正確的是 。（多選，填字母：A.在“背景”圖層的點擊幀執行清除關鍵幀操作，按
鈕可以響應鼠標事件；B.在“音樂”圖層的點擊幀執行插入關鍵幀操作，按鈕可以響應鼠標事件；C.“圖樣 1”
圖層按下幀執行插入幀操作，按鈕不能響應鼠標事件；D.在“文字”圖層點擊幀執行插入幀操作，按下按鈕
時可以聽到聲音；E.在“圖樣 1”圖層按下幀執行插入空白關鍵幀，測試時能看到指針經過幀舞臺上的內容）

6

第 14 題圖 b 第 14 題圖 c
15.小張要對一批數據加密，數據內容全部由英文單詞和空格組成（不包含數字和標點符號，數據最終以英
文單詞結尾，每個單詞至少由兩個字母組成）。加密時小張先從文本框中讀取整段原文內容，然后對每個
單詞進行如下操作：每個單詞中第一個和第二個字母交換位置，第三個字母按字母表順序向后移動 3 位，
并后移到整個單詞的最后面，其余字母前移，過程如圖所示。例如：單詞“Hazarded”，經過轉換之后得到
的密文是“aHardedc”。







代碼和程序運行界面如下所示，請在劃線處填入合適的代碼，并且在加框處代碼有錯誤，請改正：
Const n = 1000
Dim mw(0 To 1000) As String '存放轉換后密文的字符
Function zh(s As String) As String '按字母表后移 3 位進行轉換
Dim p As Integer，flag As Boolean
If s >= "a" And s <= "z" Then
p = Asc(s) - 96: flag = True
Else
p = Asc(s) - 64: flag = False
End If
①
If flag Then zh = Chr(p + 96) Else zh = Chr(p + 64)
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As String, a As Integer
Dim tmp As String, k As Integer, s As String
s = Text1.Text
k = 1: a = 1
For i = 1 To Len(s)
t = Mid(s, i, 1)
If t = " " Then
k = 0: mw(i) = t
Else
If k < 3 Then
mw(i + a) = t: a = -a
Else
tmp = zh(t)
j = i
Do While j <= Len(s) or Mid(s, j + 1, 1) <> " "
②
j = j + 1
Loop
mw(j) = tmp
第 15 題圖
7

③
End If
End If
k = k + 1
Next i
For i = 1 To Len(s)
Text2.Text = Text2.Text + mw(i)
Next i
End Sub
請回答下列問題：
（1）如果輸入的原文單詞是“TextBox”，則加密后的密文是
（2）加框處代碼有錯誤，則正確的是___________________________
（3）請將劃線處補充完整
①_________________________
②_________________________
③_________________________
16.對 k（k<=100）個數據進行排序時，可以利用一種排序方式進行處理，算法如下：
① 每次將第 i 個數據和第 2*i 以及第 2*i+1 個位置的數據進行比較，將較大值交換到第 i 個位置上；
② 從數組的第 i(未排序數據個數一半位置)個位置重復步驟①一直比較到最前面，這樣就可以將最大值交
換到第 1 個位置；
③ 最終將 1 號位置上的值與未排序數據的最后一個進行交換，得到最大值；
④ 反復執行① ② ③三個步驟就可以將數據按升序排序
過程如下圖所示，其中 a(1)=11,a(2)=25,a(3)=52,a(4)=39,a(5)=46，開始比較的位置從 i=k\2 個位置開始：
第一次排序過程：


步驟①：




步驟②：




步驟③：


第二次排序過程：






8


現要求在文本框 Text1 中輸入一個整數 k，對 k 個隨機生成的兩．位．奇．數．按上述排序方法進行排序，代碼和
程序運行界面如下所示，請在劃線處填入合適的代碼，并且在加框處代碼有錯誤，請改正：
Dim a(1 To 100) As Integer
Dim k As Integer
Private Sub Command1_Click()
Dim i As Integer
k = Val(Text1.Text)
Randomize
For i = 1 To k
a(i) = ①
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer, flag As Integer
For i = 1 To k - 1
For j = k \ 2 To 1 Step -1
If Not judge(i, j) Then
If ② Then
t = a(j): a(j) = a(2 * j): a(2 * j) = t
Else
t = a(j): a(j) = a(2 * j + 1): a(2 * j + 1) = t
End If
End If
Next j
t = a(1): a(1) = a(k - i + 1): a(k - i + 1) = t
Next i
For i = 1 To k
List2.AddItem Str(a(i))
Next i
End Sub
Function judge(t As Integer, s As Integer) As Boolean
③
If a(s) > a(2 * s) And a(s) > a(2 * s + 1) Or a(s) > a(2 * s) And 2 * s > k - t Then
judge = True
End If
End Function
根據以上代碼回答問題：
（1）如果現有數據 a(1)=27,a(2)=12,a(3)=33,a(4)=78,a(5)=61，完成一次排序之后 a(2)的值是
（2）加框處代碼有錯誤，則正確的是___________________________
（3）請將劃線處補充完整
①_________________________
②_________________________
③_________________________

高三技術參考答案 第 1 頁 共 3 頁
2019學年第一學期期中杭州地區(含周邊)重點中學
高三年級技術學科參考答案
第一部分：信息技術（共 50 分）
一、選擇題（本大題共 12 小題，每小題 2 分，共 24 分。在每小題給出的四個選項中，只有一個
符合題目要求。）
1 2 3 4 5 6 7 8 9 10 11 12
D D C A C B B A B B B C
二、非選擇題（本大題共 4 小題，其中第 13 小題 4 分，第 14 小題 8 分，第 15 小題 7 分，
第 16 小題 7 分，共 26 分。）
13．（4分）
（1）（1分）=(E8-$D$14)/ $D$14
（2）（2分）A1：F13或 A2：F13或 A1：E13或 A2：E13 部門
（3）（1分）B1,F1,B4:B13,F4:F13
14．（8分）
（1）（2分）ABE
（2）（1分）B
（3）（1分）stop();
（4）（2分）“TEXT”圖層第 1幀到第 35幀整體移動至第 13幀到第 47幀 （移動后前后幀差必
須是 34幀）
（5）（2分）ACD
15．（7分）
（1）（1分）eTtBoxa
（2）（2分）j < Len(s) And Mid(s, j + 1, 1) <> " "
（3）①（1分）p = (p + 2) Mod 26 + 1
②（1分）mw(j) = Mid(s, j + 1, 1)
③（2分）i = j
16．（7分）
（1）（1分）27
（2）（2分）(k-i+1)\2
（3）①（1分）Int(Rnd * 45) * 2 + 11 等同答案即可
②（2分）2 * j + 1> k – i + 1 Or a(2 * j) > a(2 * j + 1) 等同答案即可
③（1分）judge = False

展開更多......

收起↑