資源簡介

浙江省湖州市2021-2022學年高三上學期信息技術12月選考模擬（一）試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·湖州模擬）下列有關信息與信息技術的說法，正確的是（　　）
A．無線網絡傳輸數據不需要載體
B．過期的信息不具有任何價值
C．語言、文字與多媒體技術是比較重要的信息表達技術
D．OCR軟件識別圖像的過程屬于信息的加工和處理
2．（2021·湖州模擬）關于網頁與瀏覽器的說法，正確的是（　　）
A．網頁由超文本標記語言（HTML）進行傳輸
B．搜索引擎一般包含兩大核心技術：自動網頁檢索技術和全文檢索技術
C．可以在收藏夾中創建多個文件夾，分門別類保存網頁內容
D．在IE瀏覽器中，以“*.txt”類型保存網頁，可以保存網頁中的文字信息和超鏈接
3．（2021·湖州模擬）使用Access軟件編輯某班級學生信息管理數據庫，部分界面如圖所示。
下列說法正確的是（　　）
A．在當前狀態下，可直接修改表名為“學生信息”
B．“學號”數據的字段類型可以設置為“自動編號”
C．在“20180312”前添加一條學號為“20180311”的新記錄
D．在設計視圖下可以將“身份證號”字段設置為主鍵
4．（2021·湖州模擬）下列有關信息編碼的說法，錯誤的是（　　）
A．十六進制數41H與十進制數65D的值相等
B．使用UltraEdit軟件觀察字符“挑戰！”，其內碼可能是“CC F4 D5 BD 21”
C．已知小寫字母“a”的ASCII碼值為61H，則大寫字母“J”的ASCII碼值為50H
D．十六進制EA30轉換為二進制數后含有奇數個“1”卷
5．（2021·湖州模擬）用Photoshop軟件制作“中國空間站”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．可對“空間站”圖層直接設置濾鏡效果
B．“背景”圖層的黑色部分可用橡皮擦擦除
C．執行“自由變換”命令，可調整“中國空間站”圖層中文字的大小和位置
D．“中國空間站”圖層設置了變形文字，因而不能再添加圖層樣式
6．（2021·湖州模擬）一幅未經壓縮的2048×1536 像素、256級灰度的BMP圖像另存為JPEG格式文件，存儲后的JPEG文件存儲容量約182KB，則BMP文件與JPEG文件的存儲容量比約為（　　）
A．5:1 B．16:1 C．63:1 D．126:1
7．（2021·湖州模擬）VB表達式3^(-2)\2 + 6 Mod 3/3 的值是（　　）
A．5 B．1 C．0 D．－5
8．（2021·湖州模擬）某算法的部分流程圖如圖所示。執行這部分流程，則輸出sum,a(i),i的值為（　　）
A．7,5,5 B．7,8,6 C．6,5,7 D．6,8,6
9．（2021·湖州模擬）有百位和個位未知的4位整數“3*9*”，能同時被37與12整除。以下VB程序段的功能是：在滿足條件的所有數中，將最小一個4位數的百位與個位依次顯示在文本框Text1中。
i = 0: flag = False
Do While i <= 9 And Not flag
For j = 0 To 9
flag = True
Exit For
End If
Next j
i = i + 1
Loop
方框中的代碼由以下三部分組成：
①If s Mod 12 = 0 And s Mod 37= 0 Then
②s = 3 * 1000 + i * 100 + 9 * 10 + j
③Text1.Text = Str(i) + Str(j)
下列選項中代碼順序正確的是（　　）
A．②①③ B．②③① C．①②③ D．①③②
10．（2021·湖州模擬）某對分查找算法的VB程序如下：
i = 1: j = 20
m = (i + j + 1) \2
Do While i < j And Key <> a(m)
If a(m) > Key Then i = m+ 1 Else j = m -1
m = (i + j + 1) \2'①
Loop
數組元素a(1)到a(20)各不相同且按降序排列，若查找鍵key與a(4)相等，執行該程序段，①處語句的執行次數有（　　）
A．5 B．4 C．3 D．2
11．（2021·湖州模擬）有如下VB程序段：
s = "ABCDEF"
For i = 1 To Len(s)
a = Int(Rnd * 3 + 1)
b = Mid(s, a Mod 6 + 1, 1)
ch = ch + Chr(Asc(b) + 32)
Next i
執行該程序后，變量ch的值可能是（　　）
A．Dccebd B．Bdbfbd C．Ddcefb D．Bdddbc
12．（2021·湖州模擬）如下VB程序段實現對數組元素a(1)到a(n)從小到大排序。
For i = 1 To n -1
①
For j = i To n-1
If a(j) < a(k) Then k = j卷（信息技術）（一） 第4頁（共 8 頁）
Next j
s = a(i): a(i) = a(k): a(k) = s
Next i
則代碼①中的語句為（　　）
A．k=n B．k=n-1 C．k=i D．k=i -1
二、非選擇題（本大題共4小題，4+8+7+7，共26 分）
13．（2021·湖州模擬）收集某地農產品市場價格表，并用Excel軟件進行數據處理，如圖a所示。
請回答下列問題：
（1）區域H4:H30的數據是通過公式計算得到的，在H4單元格中輸入公式　 　，再使用自動填充功能完成區域H5:H30的計算。
（2）對區域A3:I30進行相關數據分析，下列說法正確的是 （多選，填字母）。
A．更新F列數據，H列數據會隨之改變
B．C6單元格與D6單元格內的實際數值可能不相同
C．為了找出農產品市場平均價中價格最高的肉蛋類，可先對“類別”進行篩選，選擇值為“肉蛋類”，再對“農產品市場平均價”進行降序排序，選取排在最前面的肉蛋類
D．為了將農產品市場平均價中價格最高的肉蛋類顯示在當前工作表第4行，可選擇類別為主要關鍵字，農產品市場平均價為次要關鍵字均按降序排序
E．為了顯示農產品市場平均價中價格最高的3種蔬菜，可先對“類別”進行篩選，選擇值為“蔬菜類”，再對“農產品市場平均價”進行篩選，選擇“10個最大的值”并顯示最大的3項
（3）對圖a中數據進行相關統計，結果放在新工作表中，如圖b所示。根據圖b中的數據制作的圖表如圖c所示。創建該圖表的數據區域是　 　,E7:G11。
14．（2021·湖州模擬）使用Flash軟件創作“江山”多媒體作品，部分編輯界面如圖a所示。
請回答下列問題：
（1）在創作之前進行的作品設計，下列說法正確的是 （多選，填字母）。
A．了解用戶的計算機應用水平，屬于作品的創作需求分析
B．根據主題思想和內容，制訂作品的腳本大綱，屬于應用需求分析
C．要了解整個作品的組成部分、工作流程和主要界面，可查閱其系統結構設計
D．文字腳本可以作為多媒體作品制作的直接依據
E．將所需的素材列成表格，確定獲取原始素材的方式，屬于媒體元素分解
（2）測試影片時，動畫播放到第1幀自動停止，同時“BGM”圖層音樂不播放，結合圖b，則“按鈕”圖層第1幀的動作腳本是　 　。
（3）“文字”圖層第40幀中僅有的對象為形狀，第20幀已設置形狀補間。測試場景時，第20幀到第40幀沒有實現從“人民就是江山”漸變為“江山就是人民”的效果，原因是　 　。
（4）測試場景時發現背景圖片播放到中間時出現1秒的空白，為了使該空白消失（第1幀和第37幀內容相同），同時保持其他動畫不變，下列操作方法可行的是 （多選，填字母）。
A．選中該圖層第25幀到第36幀執行“刪除幀”操作
B．選中該圖層第25幀執行“清除關鍵幀”操作
C．將該圖層第37幀移動到第25幀
D．選中該圖層第1幀中的內容，復制后粘貼到第25幀
E．選中該圖層第24幀執行“插入關鍵幀”操作
15．（2021·湖州模擬）某志愿服務APP用于整理浙江省內各城市志愿者服務工作情況，每個志愿者的數據用一個長度為8的字符串表示，例如“6 YFH 5 ”，6表示城市序號，YFH為志愿者姓名字母編寫，5為參加志愿者服務次數。整理要求：先按城市序號從小到大排列；然后，同一城市的志愿者按參加志愿服務的次數降序排列。按上述要求，編寫VB程序，功能如下：在列表List1中顯示整理前的數據，單擊“整理”按鈕Command1，整理結果顯示在列表框List2中，程序運行界面如圖所示。
（1）在VB表達式Command1_Click()中，Command1、Click、Command1_Click()依次表示　 　（單選，填字母：A .方法名、屬性名、事件名/B .對象名、事件名、事件處理過程名/C .函數名、對象名、方法名）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const nc=10 '城市數
Const n=200000'志愿者總人數
Dim a(1 To n) As String'存儲志愿者數據
Private Sub Form_Load()
'本過程讀取志愿者數據，存入數組a并顯示在列表框List1中，代碼略
End Sub
Private Sub Command1_Click()
Dim city(1 To n) As Integer,pname(1 To n) As String,cs(1 To n) As Integer
Dim t As Integer,t1 As String
Dim b(1 To nc) As Integer '存儲每個城市的報名人數
Dim index(1 To n) As Integer '定義索引數組
For i = 1 To n
city(i) = Val(Mid(a(i), 1, 1))
pname(i) = 　 　
cs(i) = Val(Mid(a(i), 7))
Next i
i = 1 '按城市序號升序排序
Do While i < n
k = i: i = n
For j = n To k + 1 Step -1
If city(j) < city(j -1) Then
t = city(j): city(j) = city(j -1): city(j -1) = t
t1= pname(j): pname(j) = pname(j -1): pname(j -1) = t1
t = cs(j): cs(j) = cs(j -1): cs(j -1) = t
　 　
End If
Next j
Loop
For i = 1 To n
index(i) = i
Next i
pos = 1 '相同城市志愿者按服務次數降序排序
For i = 1 To nc
For j = pos To pos + b(i) -2
k = j
For p = j + 1 To 　 　
If cs(index(p)) > cs(index(k)) Then k = p
Next p
t = index(j): index(j) = index(k): index(k) = t
Next j
pos = pos + b(i)
Next i
'最終結果顯示在列表框List2中，代碼略
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2021·湖州模擬）某校內活動需要n（1≤n≤10）名學生迎賓，要求是：男女生站成一排，男生不能相鄰，男女生比例大于1/2。考慮到方案只包含了男和女兩種情況，可以用二進制的0來代替女生，1來代替男生。當全部是0時最小，此數為0；當全部是1時最大。枚舉從0到最大數的每一種情況，逐一判斷是否包含男生相鄰（二進制1相連），符合的0、1轉換為女、男后輸出，并在此基礎上輸出男女生比例較合適的方案（男:女>1/2）。
按上述要求，編寫VB程序，功能如下：在文本框Text1中輸入n的值，點擊“開始枚舉”按鈕Command1，在列表框List1中輸出所有方案，在列表框List2中輸出比例合適方案。
實現上述功能的VB程序如下，回答下列問題：
（1）如果輸入的n值等于4，那么男女比例合適的方案有　 　種。
（2）請在劃線處填入合適的代碼。
Dim n As Integer, Getstr As String
Private Sub Command1_Click()
Dim i As Integer, j As Integer, mAs Integer
n = Val(Text1.Text)
Getstr = ""
For i = 0 To 2 ^ n -1
m = i
If 　 　Then
For j = 1 To n
If m Mod 2 = 0 Then
Getstr = "女" + Getstr
Else
Getstr = "男" + Getstr
End If
m = m \2
Next j
List1.AddItem Getstr
If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))
Getstr =""
End If
Next i
End Sub
Function search(i As Integer) As Boolean '判讀男生是否相鄰
Dim j As Integer，t As Integer
Dim a(1 To 15) As Integer
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \2
Next j
flag = True
For k = 1 To n -1
If 　 　Then flag = False: Exit For
Next k
search = flag
End Function
Function Team(ch As String) As String '判讀男女生比例是否合適
Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer
Team = “”
For i = 0 To 1
c(i) = 0
Next i
For i = 1 To n
st= Mid(ch, i, 1)
If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1
Next i
If　 　Then Team = ch
End Function
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息表達方式與表達技術
2．【答案】B
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索；網頁、網站的概念與聯系
3．【答案】D
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．【答案】C
【知識點】進制及數制轉換；字符編碼
5．【答案】C
【知識點】圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】A
【知識點】循環結構語句及程序實現
10．【答案】B
【知識點】查找算法及程序實現
11．【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
12．【答案】A
【知識點】排序算法及程序實現
13．【答案】（1）AVERAGE(C4:D4) 或=(C400)/2
（2）B；C
（3）B3,.B7:B11, EB3:03
【知識點】表格數據的處理與計算；數據分析
14．【答案】（1）C；E
（2）stop (　　):stopA11Sounds(　　);
（3）“文字”陽層第20幀中的對象沒有分離成形狀
（4）B；C；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）B
（2）Mid(a(i), 3, 3)；i=j；pos+b(i)-1
（3）b(city(i)) = b(city(i)) + 1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．【答案】（1）3
（2）search(i)；a(k) =a(k+1) Anod a(k)= 1或其他合理答案；2*c(1)>c(0) 或c(1)/c(0)>1/2 或c(1)/c(0)>0.5
【知識點】枚舉算法及程序實現
1 / 1浙江省湖州市2021-2022學年高三上學期信息技術12月選考模擬（一）試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·湖州模擬）下列有關信息與信息技術的說法，正確的是（　　）
A．無線網絡傳輸數據不需要載體
B．過期的信息不具有任何價值
C．語言、文字與多媒體技術是比較重要的信息表達技術
D．OCR軟件識別圖像的過程屬于信息的加工和處理
【答案】D
【知識點】信息及其特征；信息表達方式與表達技術
2．（2021·湖州模擬）關于網頁與瀏覽器的說法，正確的是（　　）
A．網頁由超文本標記語言（HTML）進行傳輸
B．搜索引擎一般包含兩大核心技術：自動網頁檢索技術和全文檢索技術
C．可以在收藏夾中創建多個文件夾，分門別類保存網頁內容
D．在IE瀏覽器中，以“*.txt”類型保存網頁，可以保存網頁中的文字信息和超鏈接
【答案】B
【知識點】網絡資源的類型、下載與保存；瀏覽器；網絡資源的檢索；網頁、網站的概念與聯系
3．（2021·湖州模擬）使用Access軟件編輯某班級學生信息管理數據庫，部分界面如圖所示。
下列說法正確的是（　　）
A．在當前狀態下，可直接修改表名為“學生信息”
B．“學號”數據的字段類型可以設置為“自動編號”
C．在“20180312”前添加一條學號為“20180311”的新記錄
D．在設計視圖下可以將“身份證號”字段設置為主鍵
【答案】D
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．（2021·湖州模擬）下列有關信息編碼的說法，錯誤的是（　　）
A．十六進制數41H與十進制數65D的值相等
B．使用UltraEdit軟件觀察字符“挑戰！”，其內碼可能是“CC F4 D5 BD 21”
C．已知小寫字母“a”的ASCII碼值為61H，則大寫字母“J”的ASCII碼值為50H
D．十六進制EA30轉換為二進制數后含有奇數個“1”卷
【答案】C
【知識點】進制及數制轉換；字符編碼
5．（2021·湖州模擬）用Photoshop軟件制作“中國空間站”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．可對“空間站”圖層直接設置濾鏡效果
B．“背景”圖層的黑色部分可用橡皮擦擦除
C．執行“自由變換”命令，可調整“中國空間站”圖層中文字的大小和位置
D．“中國空間站”圖層設置了變形文字，因而不能再添加圖層樣式
【答案】C
【知識點】圖層及圖層的基本操作
6．（2021·湖州模擬）一幅未經壓縮的2048×1536 像素、256級灰度的BMP圖像另存為JPEG格式文件，存儲后的JPEG文件存儲容量約182KB，則BMP文件與JPEG文件的存儲容量比約為（　　）
A．5:1 B．16:1 C．63:1 D．126:1
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2021·湖州模擬）VB表達式3^(-2)\2 + 6 Mod 3/3 的值是（　　）
A．5 B．1 C．0 D．－5
【答案】C
【知識點】運算符、基本運算與表達式
8．（2021·湖州模擬）某算法的部分流程圖如圖所示。執行這部分流程，則輸出sum,a(i),i的值為（　　）
A．7,5,5 B．7,8,6 C．6,5,7 D．6,8,6
【答案】A
【知識點】流程圖識讀
9．（2021·湖州模擬）有百位和個位未知的4位整數“3*9*”，能同時被37與12整除。以下VB程序段的功能是：在滿足條件的所有數中，將最小一個4位數的百位與個位依次顯示在文本框Text1中。
i = 0: flag = False
Do While i <= 9 And Not flag
For j = 0 To 9
flag = True
Exit For
End If
Next j
i = i + 1
Loop
方框中的代碼由以下三部分組成：
①If s Mod 12 = 0 And s Mod 37= 0 Then
②s = 3 * 1000 + i * 100 + 9 * 10 + j
③Text1.Text = Str(i) + Str(j)
下列選項中代碼順序正確的是（　　）
A．②①③ B．②③① C．①②③ D．①③②
【答案】A
【知識點】循環結構語句及程序實現
10．（2021·湖州模擬）某對分查找算法的VB程序如下：
i = 1: j = 20
m = (i + j + 1) \2
Do While i < j And Key <> a(m)
If a(m) > Key Then i = m+ 1 Else j = m -1
m = (i + j + 1) \2'①
Loop
數組元素a(1)到a(20)各不相同且按降序排列，若查找鍵key與a(4)相等，執行該程序段，①處語句的執行次數有（　　）
A．5 B．4 C．3 D．2
【答案】B
【知識點】查找算法及程序實現
11．（2021·湖州模擬）有如下VB程序段：
s = "ABCDEF"
For i = 1 To Len(s)
a = Int(Rnd * 3 + 1)
b = Mid(s, a Mod 6 + 1, 1)
ch = ch + Chr(Asc(b) + 32)
Next i
執行該程序后，變量ch的值可能是（　　）
A．Dccebd B．Bdbfbd C．Ddcefb D．Bdddbc
【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
12．（2021·湖州模擬）如下VB程序段實現對數組元素a(1)到a(n)從小到大排序。
For i = 1 To n -1
①
For j = i To n-1
If a(j) < a(k) Then k = j卷（信息技術）（一） 第4頁（共 8 頁）
Next j
s = a(i): a(i) = a(k): a(k) = s
Next i
則代碼①中的語句為（　　）
A．k=n B．k=n-1 C．k=i D．k=i -1
【答案】A
【知識點】排序算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26 分）
13．（2021·湖州模擬）收集某地農產品市場價格表，并用Excel軟件進行數據處理，如圖a所示。
請回答下列問題：
（1）區域H4:H30的數據是通過公式計算得到的，在H4單元格中輸入公式　 　，再使用自動填充功能完成區域H5:H30的計算。
（2）對區域A3:I30進行相關數據分析，下列說法正確的是 （多選，填字母）。
A．更新F列數據，H列數據會隨之改變
B．C6單元格與D6單元格內的實際數值可能不相同
C．為了找出農產品市場平均價中價格最高的肉蛋類，可先對“類別”進行篩選，選擇值為“肉蛋類”，再對“農產品市場平均價”進行降序排序，選取排在最前面的肉蛋類
D．為了將農產品市場平均價中價格最高的肉蛋類顯示在當前工作表第4行，可選擇類別為主要關鍵字，農產品市場平均價為次要關鍵字均按降序排序
E．為了顯示農產品市場平均價中價格最高的3種蔬菜，可先對“類別”進行篩選，選擇值為“蔬菜類”，再對“農產品市場平均價”進行篩選，選擇“10個最大的值”并顯示最大的3項
（3）對圖a中數據進行相關統計，結果放在新工作表中，如圖b所示。根據圖b中的數據制作的圖表如圖c所示。創建該圖表的數據區域是　 　,E7:G11。
【答案】（1）AVERAGE(C4:D4) 或=(C400)/2
（2）B；C
（3）B3,.B7:B11, EB3:03
【知識點】表格數據的處理與計算；數據分析
14．（2021·湖州模擬）使用Flash軟件創作“江山”多媒體作品，部分編輯界面如圖a所示。
請回答下列問題：
（1）在創作之前進行的作品設計，下列說法正確的是 （多選，填字母）。
A．了解用戶的計算機應用水平，屬于作品的創作需求分析
B．根據主題思想和內容，制訂作品的腳本大綱，屬于應用需求分析
C．要了解整個作品的組成部分、工作流程和主要界面，可查閱其系統結構設計
D．文字腳本可以作為多媒體作品制作的直接依據
E．將所需的素材列成表格，確定獲取原始素材的方式，屬于媒體元素分解
（2）測試影片時，動畫播放到第1幀自動停止，同時“BGM”圖層音樂不播放，結合圖b，則“按鈕”圖層第1幀的動作腳本是　 　。
（3）“文字”圖層第40幀中僅有的對象為形狀，第20幀已設置形狀補間。測試場景時，第20幀到第40幀沒有實現從“人民就是江山”漸變為“江山就是人民”的效果，原因是　 　。
（4）測試場景時發現背景圖片播放到中間時出現1秒的空白，為了使該空白消失（第1幀和第37幀內容相同），同時保持其他動畫不變，下列操作方法可行的是 （多選，填字母）。
A．選中該圖層第25幀到第36幀執行“刪除幀”操作
B．選中該圖層第25幀執行“清除關鍵幀”操作
C．將該圖層第37幀移動到第25幀
D．選中該圖層第1幀中的內容，復制后粘貼到第25幀
E．選中該圖層第24幀執行“插入關鍵幀”操作
【答案】（1）C；E
（2）stop (　　):stopA11Sounds(　　);
（3）“文字”陽層第20幀中的對象沒有分離成形狀
（4）B；C；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2021·湖州模擬）某志愿服務APP用于整理浙江省內各城市志愿者服務工作情況，每個志愿者的數據用一個長度為8的字符串表示，例如“6 YFH 5 ”，6表示城市序號，YFH為志愿者姓名字母編寫，5為參加志愿者服務次數。整理要求：先按城市序號從小到大排列；然后，同一城市的志愿者按參加志愿服務的次數降序排列。按上述要求，編寫VB程序，功能如下：在列表List1中顯示整理前的數據，單擊“整理”按鈕Command1，整理結果顯示在列表框List2中，程序運行界面如圖所示。
（1）在VB表達式Command1_Click()中，Command1、Click、Command1_Click()依次表示　 　（單選，填字母：A .方法名、屬性名、事件名/B .對象名、事件名、事件處理過程名/C .函數名、對象名、方法名）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const nc=10 '城市數
Const n=200000'志愿者總人數
Dim a(1 To n) As String'存儲志愿者數據
Private Sub Form_Load()
'本過程讀取志愿者數據，存入數組a并顯示在列表框List1中，代碼略
End Sub
Private Sub Command1_Click()
Dim city(1 To n) As Integer,pname(1 To n) As String,cs(1 To n) As Integer
Dim t As Integer,t1 As String
Dim b(1 To nc) As Integer '存儲每個城市的報名人數
Dim index(1 To n) As Integer '定義索引數組
For i = 1 To n
city(i) = Val(Mid(a(i), 1, 1))
pname(i) = 　 　
cs(i) = Val(Mid(a(i), 7))
Next i
i = 1 '按城市序號升序排序
Do While i < n
k = i: i = n
For j = n To k + 1 Step -1
If city(j) < city(j -1) Then
t = city(j): city(j) = city(j -1): city(j -1) = t
t1= pname(j): pname(j) = pname(j -1): pname(j -1) = t1
t = cs(j): cs(j) = cs(j -1): cs(j -1) = t
　 　
End If
Next j
Loop
For i = 1 To n
index(i) = i
Next i
pos = 1 '相同城市志愿者按服務次數降序排序
For i = 1 To nc
For j = pos To pos + b(i) -2
k = j
For p = j + 1 To 　 　
If cs(index(p)) > cs(index(k)) Then k = p
Next p
t = index(j): index(j) = index(k): index(k) = t
Next j
pos = pos + b(i)
Next i
'最終結果顯示在列表框List2中，代碼略
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）B
（2）Mid(a(i), 3, 3)；i=j；pos+b(i)-1
（3）b(city(i)) = b(city(i)) + 1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．（2021·湖州模擬）某校內活動需要n（1≤n≤10）名學生迎賓，要求是：男女生站成一排，男生不能相鄰，男女生比例大于1/2。考慮到方案只包含了男和女兩種情況，可以用二進制的0來代替女生，1來代替男生。當全部是0時最小，此數為0；當全部是1時最大。枚舉從0到最大數的每一種情況，逐一判斷是否包含男生相鄰（二進制1相連），符合的0、1轉換為女、男后輸出，并在此基礎上輸出男女生比例較合適的方案（男:女>1/2）。
按上述要求，編寫VB程序，功能如下：在文本框Text1中輸入n的值，點擊“開始枚舉”按鈕Command1，在列表框List1中輸出所有方案，在列表框List2中輸出比例合適方案。
實現上述功能的VB程序如下，回答下列問題：
（1）如果輸入的n值等于4，那么男女比例合適的方案有　 　種。
（2）請在劃線處填入合適的代碼。
Dim n As Integer, Getstr As String
Private Sub Command1_Click()
Dim i As Integer, j As Integer, mAs Integer
n = Val(Text1.Text)
Getstr = ""
For i = 0 To 2 ^ n -1
m = i
If 　 　Then
For j = 1 To n
If m Mod 2 = 0 Then
Getstr = "女" + Getstr
Else
Getstr = "男" + Getstr
End If
m = m \2
Next j
List1.AddItem Getstr
If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))
Getstr =""
End If
Next i
End Sub
Function search(i As Integer) As Boolean '判讀男生是否相鄰
Dim j As Integer，t As Integer
Dim a(1 To 15) As Integer
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \2
Next j
flag = True
For k = 1 To n -1
If 　 　Then flag = False: Exit For
Next k
search = flag
End Function
Function Team(ch As String) As String '判讀男女生比例是否合適
Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer
Team = “”
For i = 0 To 1
c(i) = 0
Next i
For i = 1 To n
st= Mid(ch, i, 1)
If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1
Next i
If　 　Then Team = ch
End Function
【答案】（1）3
（2）search(i)；a(k) =a(k+1) Anod a(k)= 1或其他合理答案；2*c(1)>c(0) 或c(1)/c(0)>1/2 或c(1)/c(0)>0.5
【知識點】枚舉算法及程序實現
1 / 1

展開更多......

收起↑