資源簡介

浙江省 ２０２０ 年新高考選考科目原創猜題卷 ３
信息技術試題
一、選擇題（本大題共 １２ 小題，每小題 ２ 分，共 ２４ 分。 每小
題列出的四個備選項中只有一個是符合題目要求的，不
選、多選、錯選均不得分）
１．超市支付寶刷臉付款已經進入了人們的生活，消費者將商品
掃碼，進入支付頁面，選擇“支付寶刷臉付”；隨后進行人臉識
別，大約需要 ２ 秒；然后輸入與賬號綁定的手機號，確認后即
可支付 下列說法不正確
???
的是 （ ）
Ａ．人臉識別屬于人工智能
Ｂ．支付過程需要訪問和修改數據庫個人信息
Ｃ．商品掃碼過程屬于光學字符識別
Ｄ．人工智能是信息技術發展的熱點之一
答案 Ｃ 本題主要考查人工智能。 人臉識別是拍照代替
輸入密碼，屬于人工智能，而商品掃碼屬于二維碼或者條形碼
信息獲取，無圖片轉換為文字信息過程，因此不屬于光學字符
識別。 故選 Ｃ。
２．下列方法不能有效獲取網頁上圖片的是 （ ）
Ａ．使用“網頁另存為”里的“網頁（全部）”命令
Ｂ．圖片上單擊右鍵選擇“圖片另存為”命令
Ｃ．使用截圖工具
Ｄ．使用“網頁另存為”里的“網頁（單一文件）”命令
答案 Ｄ 本題主要考查網絡信息獲取。 Ａ、Ｂ、Ｃ 選項都能
從網絡上獲取圖片，而 Ｄ 選項是生成一個 ｍｈｔ 格式的文件，不
能單獨提取圖片，故選 Ｄ。
３．使用 Ｗｏｒｄ 軟件編輯某文檔，部分界面如圖所示 下列說法正
確的是 （ ）
Ａ．由文中批注可知，此用戶名縮寫為“ｕ１１”，刪除批注框不影
響文章標題
Ｂ．文中修訂共 １ 處，接受修訂，第二行修訂處語句變為“心理
學和哲學”
Ｃ．將文中多處“人工智能”修改成“人工智能（Ａ．Ｉ．）”可用“自
動更正”來實現
Ｄ．在第二行“…和哲學 ”后面插入外部圖片，默認的圖片文字
環繞方式為“嵌入型”
答案 Ｄ 本題主要考查字處理。 Ａ 選項，“ｕ１１”中的“ｕ１”
是用戶名縮寫，第 ２ 個“１”表示批注序號；Ｂ 選項，文中修訂共
２ 處，刪除修訂 １ 處，插入修訂 １ 處；Ｃ 選項，多處修改應使用
“替換”功能，“自動更正”是輸入時自動立即改正。 Ｄ 是正確
答案。
４．使用 ＧｏｌｄＷａｖｅ 處理如下音頻，下列選擇錯誤
??
的是 （ ）
Ａ．“剪裁”后執行“選取部分另存為”得到的音頻文件時長 ４ 秒
Ｂ．“刪除”后左聲道從第 ６ 秒開始沒有聲音
Ｃ．執行“全選”→“左聲道”→“刪除”，按原格式保存，所得文
件容量不變
Ｄ．當前狀態插入靜音 ２ 秒，則右聲道時長不變，仍為 １０ 秒
答案 Ｄ 本題主要考查 ＧｏｌｄＷａｖｅ 處理音頻。 Ａ、Ｂ、Ｃ 選項
無誤，Ｄ 選項，插入靜音，左聲道左邊選取處增加 ２ 秒靜音，右
聲道最后也對應增加 ２ 秒，仍為 １０ 秒錯。
５．使用 Ｆｌａｓｈ 制作如下動畫，結果發現按鈕圖層第 １ 幀的內容是
多余的，按鈕只需要出現在第
?????????
３０
··
幀
?
即可，以下操作錯誤
??
的是
（ ）
Ａ．“按鈕”圖層第 １ 幀執行“清除關鍵幀”操作
Ｂ．“按鈕”圖層第 １ 幀選擇舞臺內容，直接按“Ｄｅｌｅｔｅ”鍵刪除
Ｃ．“按鈕”圖層選擇第 １～２９ 幀，右鍵執行“清除幀”操作
Ｄ．“按鈕”圖層第 １ 幀執行“插入空白關鍵幀”操作，再對第 １
幀執行“清除關鍵幀”操作
答案 Ａ 本題主要考查 Ｆｌａｓｈ 幀的相關操作。 Ｂ 選項，按
鈕圖層第 １ 幀將舞臺內容刪除，黑點變白點，３０ 幀保持不變；Ｃ
選項，將 １～２９ 幀都選中，執行“清除幀”，使得選中的幀都變
成空白關鍵幀，即第 １ 幀為空白關鍵幀，第 ２～２９ 幀為空白的
普通幀狀態；Ｄ 選項，第 １ 幀插入空白關鍵幀，則空白關鍵幀出
現在第 ２ 幀，再對第 １ 幀清除關鍵幀會把后一幀關鍵幀（空白
關鍵幀）移動到第 １ 幀，總幀數不變。 而 Ａ 選項直接對第 １ 幀
清除關鍵幀將導致第 ３０ 幀關鍵幀被替換到第 １ 幀的位置。 故
選 Ａ。
６．將如圖 １０２４?１０２４ 像素 ＲＧＢ 模式（每個顏色分量占 ８ 位）的
“ｊｉｓｈｕ．ｂｍｐ”格式圖片保存，生成的圖片容量大小為 （ ）
Ａ．３ＭＢ Ｂ．０．６ＭＢ Ｃ．１ＭＢ Ｄ．０．２ＭＢ
答案 Ａ ＢＭＰ 圖片容量＝ １０２４?１０２４?２４ ／ ８ ／ １０２４ ／ １０２４ ＝
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
1 6
３ＭＢ，故選 Ａ。
７．如圖所示，初始界面如下，除代碼窗口輸入如下代碼，其余未
做任何修改，單擊 Ｃｏｍｍａｎｄ１ 得到 Ｔｅｘｔ２ 的輸出結果為（ ）
Ａ．（空） Ｂ．Ｔｅｘｔ１．ｔｅｘｔＴｅｘｔ２．ｔｅｘｔ
Ｃ．Ｔｅｘｔ２Ｔｅｘｔ１ Ｄ．Ｔｅｘｔ２ Ｔｅｘｔ１
答案 Ｃ 本題主要考查 ＶＢ 程序基礎。 文本框 Ｔｅｘｔ１ 和文
本框 Ｔｅｘｔ２ 初始值默認為“Ｔｅｘｔ１”和“Ｔｅｘｔ２”，用“＆”符號連接
字符串，得“Ｔｅｘｔ２Ｔｅｘｔ１”。
８．如下流程圖所示，將“ ｉ＞０？”修改為“ ｉ＞ ＝ ０？”，則下列運行結果
正確的是 （ ）
Ａ．ｉ ＝ ０，ｓ＝ ６ Ｂ．ｉ ＝ ０，ｓ＝ ６
Ｃ．ｉ ＝ ２，ｓ＝ ６ Ｄ．ｉ ＝ ２，ｓ＝ ６
答案 Ｃ 本題主要考查流程圖。 條件為 ｉ＞ ＝ ０，當 ｉ ＝ ０ 時
繼續執行，ｓ 變為 ６，ｉ 變成 ２，不滿足 ｉ＞ ＝ ０ 條件，跳出循環。
９．下列 ＶＢ 表達式中，只產生［１００，２００］上隨機偶數的是 （ ）
Ａ．Ｉｎｔ（Ｒｎｄ?１０１）＋１００ Ｂ．Ｉｎｔ（Ｒｎｄ?５１）?２＋１００
Ｃ．Ｉｎｔ（Ｒｎｄ?５０）?２＋１００ Ｄ．（Ｉｎｔ（Ｒｎｄ?２）＋１）?１００
答案 Ｂ 本題主要考查 ＶＢ 中的常用函數 Ｒｎｄ（）和Ｉｎｔ（）。
Ｒｎｄ 范圍為［０，１）上隨機實數，１ 是取不到的，故選 Ｂ。
１０．在文本框 Ｔｅｘｔ１ 中輸入一串字符，將其中的大寫字母和小寫
字母進行互換，其他符號不變，請在空格的位置選擇正確的
選項 （ ）
Private Sub Command1_Click()
Dim s1 As String, s2 As String, ch As String
Dim i As Integer
s1 = Text1.Text: s2 = ""
①
For i = 1 To n
ch = Mid(s1, i, 1)
If ch > "A" And ch < "Z" Then
s2 = s2 + Chr(Asc(ch) + 32)
ElseIf ch > "a" And ch < "z" Then
②
Else
s2 = s2 + ch
End If
Next i
End Sub
Ａ．①ｎ＝Ａｂｓ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ｃｈ） ３２）
Ｂ．①ｎ＝Ｌｅｎ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ ＂ Ａ＂ ） ＋ Ａｓｃ（ｃｈ）
Ａｓｃ（＂ ａ＂ ））
Ｃ．①ｎ＝Ｓｑｒ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ｃｈ） ３２）
Ｄ．①ｎ＝Ｖａｌ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ ＂ Ａ＂ ） ＋ Ａｓｃ（ ｃｈ）
Ａｓｃ（＂ ａ＂ ））
答案 Ｂ 本題主要考查 ＶＢ 常用函數，基本運算。 求字符
串長度應使用 Ｌｅｎ（）函數，故選 Ｂ。
１１．某 ＶＢ 程序如下：
Private Sub Command1_Click() '帶符號單字節負數二
進制編碼
Dim n As Integer, p As Integer, q As Integer, m
As Integer
Dim I As Integer，s As String, a(1 To 8) As Inte
ger
n = Val(Text1.Text)
p = 1: s = "" '求原碼
n = Abs(n): m = 8
Do While n > 0
a(m) = n Mod 2
n = n \2
m = m - 1
Loop
For i = 2 To 8
s = s + CStr(a(i))
Next i
List1.AddItem "該負數的原碼：" + CStr(p)+s 'CStr()功
能為去掉空格，其他同 Str()
s = "" '求反碼
For i = 2 To 8
a(i) = 1 - Val(a(i))
s = s + CStr(a(i))
Next i
List1.AddItem "該負數的反碼：" + CStr(p) + s
s = "": q = 1: i = 8 '求補碼
Do While i > 1
m = a(i) + q
a(i) = m Mod 2
q = m \2
s = CStr(a(i)) + s
i = i - 1
Loop
List1.AddItem "該負數的補碼 （即計算機內二進制編
碼）：" + CStr(p) + s
End Sub
根據上面程序，在 Ｔｅｘｔ１ 中輸入 １５，可知 １５ 在計算機中存
儲的二進制數為 （ ）
Ａ．１０００１１１１ Ｂ．１１１１００００ Ｃ．１１１１０００１ Ｄ．１１１１１
答案 Ｃ 本題主要考查 ＶＢ 基本運算，基本結構。 １５ 的
原碼為 １０００１１１１，反碼為 １１１１００００，則補碼為 １１１１０００１，故
選 Ｃ。
１２．如圖所示，Ｔｅｘｔ１ 中輸入有序字符串“ａａａａｂｂｃｃｃｃｃｄｄｄｅｅｆｆｆｆｇｇｇ”
按照字母表順序排列，中間可出現任意重復的情況，執行下
列代碼后，求出 Ｔｅｘｔ２ 中輸入字母的起止位置并輸出到
Ｔｅｘｔ３，請完善程序
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
2 6
Private Sub Command1_Click()
'變量定義略
s ="0" + Text1.Text + "~" '字符"0"的 ASCII 碼值
為 48,字符"~"的 ASCII 碼值為 126
Key = Text2.Text
If Len(Key) > 1 Or Len(Key) = 0 Then Exit Sub
n = Len(s)
i = 1: j = n
Do While i <= j
m = (i + j + 1) \2
If Mid(s, m, 1) = Key And ① < Key Then
k1 = m: k2 = m: Exit Do
ElseIf Mid(s, m, 1) < Key Then
i = m + 1
Else
j = m - 1
End If
Loop
If i>j Then
Text3.Text ="未找到"
Else
For k2 = k1 + 1 To n
If Mid (s, k2, 1) = Key And ② > Key
Then Exit For
Next k2
Text3.Text = "[" + Str(k1-1) + "," + Str(k2-1)
+ "]"
End If
End Sub
完善程序①②處應該填入的正確答案是 （ ）
Ａ．①Ｍｉｄ（ｓ， ｍ ＋ １， １） ②Ｍｉｄ（ｓ， ｋ２ ＋ １， １）
Ｂ．①Ｍｉｄ（ｓ， ｍ １， １） ②Ｍｉｄ（ｓ， ｋ２ １， １）
Ｃ．①Ｍｉｄ（ｓ， ｍ ＋ １， １） ②Ｍｉｄ（ｓ， ｋ２ １， １）
Ｄ．①Ｍｉｄ（ｓ， ｍ １， １） ②Ｍｉｄ（ｓ， ｋ２ ＋ １， １）
答案 Ｄ 本題主要考查對分查找算法，ＶＢ 基本運算。
①處是 ｍ １ 位置的字母應＜Ｋｅｙ；②處是 ｋ２＋１ 位置的字母應
＞Ｋｅｙ，故選 Ｄ。
二、非選擇題（本大題共 ４ 小題，第 １３ 小題 ４ 分，第 １４ 小題 ８
分，第 １５ 小題 ７ 分，第 １６ 小題 ７ 分，共 ２６ 分）
１３．２０１８ 年浙江省各地的房價均價如圖所示，使用 Ｅｘｃｅｌ 表進行
如下處理 請回答下列問題：
（１）使用 ＲＡＮＫ 函數對 Ｃ３ 單元格求房價均價排名，再用自動
填充求出 Ｃ４：Ｃ１４ 的排名，發現 ＲＡＮＫ 函數表達式有誤，
請寫出 Ｃ３ 單元格的正確公式
（２）現要篩選出下圖所示地區，可在右下自動篩選面板中①
②處選擇 （Ａ．①“等于”②“?州” ／ Ｂ．①“結尾
是”②“州” ／ Ｃ．①“包含”②“州” ／ Ｄ．①“等于”②“??”；
此題為多選，全對得 ２ 分，少選得 １ 分，多選或選錯不得
分）
（３）現對浙中地區兩地市房價設計圖表，如下圖所示，請寫出
數據源： ，Ａ１０：Ｂ１０
答案 （１） ＝ ＲＡＮＫ（Ｂ３，Ｂ＄３：Ｂ＄１４，０） 或者 ＝ＲＡＮＫ（Ｂ３，
＄Ｂ＄３：＄Ｂ＄１４，０）（其中 ０ 可以省略）
（２）ＡＢＣ
（３）Ａ２：Ｂ２，Ａ６：Ｂ６
解析 （１）排序函數數據區域 Ｂ３：Ｂ１４ 需絕對引用，因為往
下填充，所以數字前加＄；
（２）篩選條件：結尾是“州”或者等于“?州”或者包含“州”都
是正確的，“??”等于沒有篩選；
（３）數據區域為“金華”和“紹興”兩地的“均價”，故包含 Ａ２
和 Ｂ２。
１４．小蘭創作了主題為 “人間仙境” 的多媒體作品 她用
Ｐｈｏｔｏｓｈｏｐ 軟件制作了一張圖，然后用 Ｆｌａｓｈ 軟件制作動畫
請回答下列問題：
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
3 6
圖 ａ
（１）如圖 ａ 所示，下列說法正確的是
（多選，填字母：Ａ．圖層“山”和圖層“植被”是鏈接
圖層，且圖層“植被”被完全鎖定，故不能將圖層“山”移
動到圖層“植被”上面 ／ Ｂ．要將圖片保存為具有透明背景
的 ＰＮＧ 格式，可以直接將“背景”圖層刪除 ／ Ｃ．修改文字
圖層“人間仙境”的字體大小，可以使用自由變換實現 ／
Ｄ．保存該文檔為 ＢＭＰ 格式，則容量大小為９１２．６ＫＢ）
（注：全部選對得 ２ 分，選對但不全的得 １ 分，不選或者選
錯不得分）
圖 ｂ
（２）如圖 ｂ 所示，文字圖層第 １ 幀到第 ２０ 幀實現文字“人間
仙境”變成位圖“老鷹”的形狀補間動畫，圖 ｃ 分別是第 １
幀文字“人間仙境”和第 ２０ 幀位圖“老鷹”，但發現動畫
沒有成功，需要對第 １ 幀和第 ２０ 幀進行分離，分別需要
分離 次
圖 ｃ
（３）點擊按鈕元件進入按鈕編輯界面，如圖 ｄ 所示，下列說法
正確的是 （單選）
圖 ｄ
Ａ．音效圖層“指針經過”幀設置了音效，當測試時鼠標懸
浮在按鈕上，能聽到聲音
Ｂ．文字圖層最后一幀為空白關鍵幀，可以選中該點擊幀
并在舞臺上添加內容使其有效
Ｃ．刪除文字圖層，使按鈕變成一個隱形按鈕，且有效
Ｄ．對文字圖層最后一幀空白關鍵幀執行“清除關鍵幀”
操作使其有效
（４）已知音效圖層第一幀音效設置如圖 ｅ 所示，對當前場景
執行“播放”，當播放到第 ６０ 幀，動畫停止時，音樂是否
停止： （填：是 ／ 否）
圖 ｅ
（５）對“退出”按鈕設置按鈕動作，實現點擊按鈕時停止音樂
播放同時退出影片播放，則設置的按鈕動作為
答案 （１） ＣＤ
（２）２， １
（３）Ｄ
（４）否
（５） ｏｎ（ｐｒｅｓｓ）｛ｓｔｏｐＡｌｌＳｏｕｎｄｓ（）；ｆｓｃｏｍｍａｎｄ（“ｑｕｉｔ”）；｝
解析 （１）考點：Ｐｈｏｔｏｓｈｏｐ 圖層相關操作。 Ａ 鏈接圖層指
圖片中相對位置綁定，包括使用自由變換，因“植被”圖層被
完全鎖定，故兩個圖層內容都不能被移動或者自由變換，但
不影響圖層位置變換；Ｂ 系統默認的背景圖層在多圖層情況
下是可以被刪除的，而這個背景圖層文字沒有傾斜，且為完
全鎖定，故不能被刪除，無法保存為透明背景的 ＰＮＧ 格式。
ＣＤ 都是正確答案。
（２）考點：形狀補間。 多個文字形狀變化為老鷹的位圖，文字
需分離 ２ 次，位圖需分離 １ 次。
（３）考點：按鈕、音效。 Ａ 按鈕無效故無聲音；Ｂ 文字圖層鎖
定，無法在空白關鍵幀上添加內容；Ｃ 只有音效的按鈕是無效
按鈕；Ｄ 圖層鎖定狀態對空白關鍵幀執行“清除關鍵幀”是可
以的，故選 Ｄ。
（４）考點：播放模式，音效。 播放時音效可以檢測，且為事件，
所以第 ６０ 幀音效還在繼續，２１．８ ｓ 才放完。
（５）考點：按鈕動作。 ｏｎ（ｐｒｅｓｓ） ｛ ｝不能省略，停止所有聲音
為 ｓｔｏｐＡｌｌＳｏｕｎｄｓ（）；退出影片播放為 ｆｓｃｏｍｍａｎｄ（“ｑｕｉｔ”）。
１５．下圖為杭州地鐵二號線“三墩”—“建國北路”各站里程數
（公里），根據杭州市地鐵計價規則，票價 ２ 元起步，２ 元可乘
４ 公里，４～１２ 公里，每加一元乘 ４ 公里，１２～２４ 公里，每加一
元可乘 ６ 公里，２４ 公里以上，每加一元可乘 ８ 公里 Ａ 同學
是一名 ＶＢ 程序愛好者，現編寫了一個 ＶＢ 程序來計算任意
兩站之間需要的票價（元） 初始化各站站名存放數組 ａ（ ｉ）
中，“三墩”站為起點其他各站為終點的里程數，分別存放在
數組 ｂ（ｉ）中，在 Ｔｅｘｔ１ 中輸入起點站 Ｓ１，Ｔｅｘｔ２ 中輸入終點站
Ｓ２，求出里程數 Ｌ 公里，并利用公式計算求出票價 Ｘ 元，輸出
到 Ｔｅｘｔ３ 中，并在標簽 Ｌａｂｅｌ４ 中輸出“一共坐了 ｎ 站”的結果
提示（如起點站“三墩”，終點站“三壩”，則 ｎ ＝ ２），請回答下
列問題：
地鐵二號線部分站點里程數
站名數組 ａ１ ａ２ ａ３ ａ４ ａ ａ６ ａ７ ａ８ ａ９ ａ１０ ａ１１ ａ１２
站名 三墩 蝦龍圩 三壩 文新 豐潭路 古翠路 學院路 沈塘橋 武林門 鳳起路 中河北路 建國北路
距離數組 ｂ１ ｂ２ ｂ３ ｂ４ ｂ ｂ６ ｂ７ ｂ８ ｂ９ ｂ１０ ｂ１１ ｂ１２
里程 ｋｍ ０ １ ２ ２ ４ ３ ２ ６ ７ １ ９ ２ １１ １１ ７ １２ ６ １３
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
4 6
（１）現要更改“Ｌａｂｅｌ３”為“票價”的標簽提示框，應修改圖中
哪一 項 （ Ａ． Ｌａｂｅｌ３． Ｌａｂｅｌ ／ Ｂ． Ｌａｂｅｌ３． Ｔｅｘｔ ／ Ｃ．
Ｌａｂｅｌ３．（名稱） ／ Ｄ．Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ）
（２）Ａ 同學編寫 ＶＢ 程序如下，請補全程序：
Dim a(1 To 13) As String '用于存儲站名
Dim b(1 To 13) As Single '用于存儲里程數（公里）
Private Sub Command1_Click() '輸入的站名均
有效
Dim S1 As String, S2 As String, i As Integer,
L As Single, Price As Single
S1 = Text1.Text: S2 = Text2.Text: n = 0: L
= 0
For i = 1 To 13
If S2 = a(i) Or S1 = a(i) Then L = ① : n
= Abs(i - n)
Next i
If L <= 4 Then
Price = 2
ElseIf L <= 12 Then
Price = ②
ElseIf L <= 24 Then
Price = 4 + ((L - 12) + 5.9) \6
Else
Price = 6 + ((L - 24) + 7.9) \8
End If
Text3.Text = Str(Price) + "元": Label4.
Caption = "一共坐了" + Str(n) + "站"
End Sub
Private Sub Form_Load() '初始化站名數據 a(i)和
里程數 b(i)
a(1)="三墩":a(2) ="蝦龍圩":a(3)="三壩":a
(4)="文新":a(5)="豐潭路"
a(6)="古翠路":a(7) ="學院路":a(8) ="沈塘
橋":a(9)="武林門":a(10)="鳳起路"
a(11)="中河北路":a(12)="建國北路"
b(1)=0:b(2)=1.2:b(3)=2.4:b(4)=3.5:b(5)
=5.2:b(6)=6:b(7)=7.1:b(8)=9.2
b(9)=11.5:b(10)=11.7:b(11)=12.6:b(12)=
13.5
End Sub
①
②
（３）Ａ 同學現要從起點站“建國北路”坐車去終點站“文新”，
請問票價為 元，一共需坐 站
答案 （１）Ｄ
（２） ①Ａｂｓ（ｂ（ ｉ） Ｌ） ② ２＋（（Ｌ ４） ＋３．９） ＼ ４ 或者 ２＋（Ｌ
０．１） ＼４
（３） ４；８
解析 （１） 考點：ＶＢ 基礎，對象名，屬性名。 故選 Ｄ。
（２）考點：函數應用。 例：“三壩”—“豐潭路”，Ｓ１ ＝ “三壩”，
當 ｉ ＝ ３ 時 Ｓ１＝ａ（３）條件滿足，則這時 ｎ＝ ３，Ｌ＝ ２．４（相對于三
墩來說），Ｓ２＝“豐潭路”，當 ｉ ＝ ５ 時，Ｓ２＝ ａ（５）條件滿足，這時
ｎ＝ ５，Ｌ ＝ ｂ５ Ｌ（原） ＝ ５．２ ２．４ ＝ ２．８，效仿后面 ｎ ＝ Ａｂｓ（ ｉ
ｎ），故①處 Ｌ＝ Ａｂｓ（ｂ（ ｉ） Ｌ）；根據題目信息，４～ １２ 公里時，
超出部分每 ４ 公里＋１ 元，②處 ４ 公里以外的里程數為 Ｌ ４，
每 ４ 公里加錢（（Ｌ ４） ＋３．９） ＼ ４ 或者（Ｌ ０．１） ＼ ４，再加起步 ４
公里以內的 ２ 元共計 ２＋（（Ｌ ４） ＋３．９） ＼ ４ 或者 ２＋（Ｌ ０．１）
＼４。
（３）根據圖表得 ２＋（１０ ０．１） ＼４ ＝ ４ 元，１２ ４＝ ８ 站。
１６．高一新生入學，班主任統計學生信息（２４ 位男生，２４ 位女生）
生成數據庫文件，利用 Ｖｉｓｕａｌ Ｂａｓｉｃ 軟件制作一個根據身高排
座位的小程序，并實現輸入名字可以查詢座位 基本算法：
數據庫信息包含學生姓名，性別，身高等，利用 ＶＢ 數據庫連
接讀取數據分別生成數組姓名 ｎ（ ｉ），性別 ｘ（ ｉ），身高 ｈ（ ｉ），
默認按照學生姓名排序，并顯示到 Ｌｉｓｔ１ 中；點擊按鈕 Ｃｏｍ
ｍａｎｄ１（座位排布），按照身高（女男女男……）間隔排序，即
女生按 ｈ（１），ｈ（３），ｈ（５），……升序排序，男生按 ｈ（２），ｈ
（４），ｈ（６），……升序排序，再按 ８ 位同學一橫排（女男女男
女男女男）的方式輸出到 Ｌｉｓｔ２ 在文本框 Ｔｅｘｔ１ 中輸入姓
名，點擊 Ｃｏｍｍａｎｄ２（座位查詢）后，可在 Ｔｅｘｔ２ 中顯示姓名對
應座位（座位數組 ｗ（ｉ）值為“１ ５”表示第 １ 排第 ５ 列），例如
下圖所示，Ｔｅｘｔ１ 輸入“王芳”，則 Ｔｅｘｔ２ 顯示“王芳的座位：２
５”，如找不到，則顯示“未找到” 請回答下列問題：
（１）程序如下，請在空缺處補全程序：
Dim n (1 To 48) As String, x (1 To 48) As
String, h (1 To 48) As Integer, w (1 To 48)
As String
Dim t As String, g As Integer '用于數據交換的
臨時變量
Const sum=48
Private Sub Form_Load()
'數據庫連接，將姓名，性別，身高數據分別讀入 n(i),
x(i)和 h(i)中，代碼略
End Sub
Private Sub Command1_Click()
For i = 1 To sum-1 Step 2
k = i
For j = i + 1 To sum
If (k = i And x(i) = "男" And x(j) = "女")
Or ( ① ) Then k = j
Next j
If k <> i Then
t = n(k): n(k) = n(i): n(i) = t
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
5 6
t = x(k): x(k) = x(i): x(i) = t
g = h(k): h(k) = h(i): h(i) = g
End If
k = i + 1
For j = i + 2 To sum
If (k = i + 1 And x(i+1) = "女" And x(j) =
"男") Or (x(j) = "男" And h(k) > h(j))
Then k = j
Next j
If k <> i + 1 Then
t = n(k): n(k) = n(i + 1): n(i + 1) = t
t = x(k): x(k) = x(i + 1): x(i + 1) = t
g = h(k): h(k) = h(i + 1): h(i + 1) = g
End If
Next i
s1 = " "
For i = 1 To sum
w(i) = Str((i - 1) \8 + 1) + "-" + Str( ② )
s1 = s1 + n(i) + " "
If i Mod 8 = 0 Then List2.AddItem s1: s1 = " "
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, key As String
key = Text1.Text
For i = 1 To sum
If key = n(i) Then Text2.Text = key + "的座
位：" + w(i): Exit For
Next i
If ③ Then Text2. Text = " 未 找 到 " +
Text1.Text
End Sub
①
②
③
（２）如果出現重名如張敏 １６３ ／ 張敏 １５８，則查詢張敏，Ｔｅｘｔ２
中將顯示 （填字母：Ａ．張敏 １６３ ／ Ｂ．張
敏 １５８）
答案 （１）①ｘ（ ｊ） ＝ ＂女＂ Ａｎｄ ｈ（ｋ） ＞ ｈ（ ｊ） ②（ ｉ １）
Ｍｏｄ ８ ＋ １ ③ｉ＞ｓｕｍ 或者 ｉ＞４８
（２）Ｂ
解析 （１）①當第 ｊ 位置為女生，且滿足身高＜ｈ（ｋ）時，記
錄 ｋ＝ ｊ；②求的是第幾列，根據前面第（ ｉ １） ＼ ８ ＋ １ 排，則
對應的列數為（ ｉ １）ｍｏｄ ８＋１；③順序查找，ｉ＞ｓｕｍ 證明查找
全部內容后沒有找到，故為答案。
（２）同名問題，因為身高矮的同學排在前面，根據順序查找只
輸出了個子矮的同學，個子高的沒有處理，所以選 Ｂ。
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
6 6

展開更多......

收起↑