資源簡介

浙江省金華市義烏市2021屆高三信息技術適應性考試試卷
一、選擇題
1．（2021·義烏模擬）下列關于信息與信息的加工描述正確的是（　　）
A．計算機的運算速度只與硬件的性能有關。
B．計算機信息加工的本質是通過計算完成的。
C．使用Ultra Edit軟件查看到某字符的內碼是“D5 BD”，說明該字符在計算機內是用十六進制編碼的。
D．隨著科技的發展，計算機已經可以替代人自行做出所有的決策。
2．（2021·義烏模擬）下列有關瀏覽器與網頁的說法，正確的是（　　）
A．收發電子郵件時收件人地址必須與發件人地址不同。
B．使用IE瀏覽器登錄網站時，瀏覽器會自動記錄用戶的賬號和密碼。
C．以“網頁，全部（*htm;*html)”格式保存網頁，不一定能把網頁中的全部內容保存下來。
D．使用記事本打開某網頁文件就可以看到這個精美的網頁。
3．（2021·義烏模擬）使用ACCESS設計了一個“學生表”，用于存儲如下圖所示的數據：
下列關于“學生表”描述正確的是（　　）
A．“班級”字段的數據類型可以為“數字”。
B．“學籍輔號”字段的數據類型可以為“自動編號”。
C．若要增加一位“01”班學生的信息，可以在“學生表”的第3行位置插入一行記錄。
D．“學生表”的字段順序可以與圖中數據的列順序不一致。
4．（2021·義烏模擬）下列關于信息編碼的描述，正確的是（　　）
A．JPEG是常用的靜態圖像壓縮標準。
B．若十進制數a轉換為二進制后末尾為0，則a/2轉換為二進制后末尾也為0。
C．字符“A”的ASCII碼值為41H，則“J”的ASCII碼值為50H。
D．一幅16色的圖片，每個像素點占用2個字節。
5．（2021·義烏模擬）使用Photoshop軟件制作“商貿義烏”作品，部分界面如圖所示：
下列說法正確的是（　　）
A．可用“文字工具”修改“奇跡”兩字的字號大小。
B．當前狀態下，不能移動文字“義烏-倫敦”的位置。
C．將“義烏-倫敦”的圖層樣式拷貝給“中歐班列”后，“中歐班列”圖層會有4個圖層樣式。
D．“備用背景”圖層的內容不可見的原因，是該圖層的不透明度為0%。
6．（2021·義烏模擬）班里計劃組織演唱比賽，小李打算幫大家錄視頻，錄制的視頻是未經壓縮的1920*1080像素、256色圖像、幀頻為25，每位同學的表演時間為不超過5分鐘，有15位同學參賽，小李至少需要準備多大的存儲卡來存儲演唱視頻（　　）
A．256GB B．128GB C．64GB D．32GB
7．（2021·義烏模擬）下列VB表達式的值一定為2021的是（　　）
A．Len("2020") + 1 B．Abs(Int(-2020.6))
C．Val("2020"+"1") D．Int(Rnd()*2022)
8．（2021·義烏模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入s的值為“yummy”，則輸出的ch、t值分別為（　　）
A．"y",1 B．"m",1 C．"y",5 D．"m",4
9．（2021·義烏模擬）在字符串s中查找是否存在字符子串s1，若有則返回第一個s1的起始位置，若沒有則返回-1，實現該功能的VB程序段如下：
⑴ : i = 1
n = Len(s): t = Len(s1)
Do While i < n - t And p = -1
If ⑵ Then p = i
⑶
Loop
Label1.Caption = p
代碼中劃線部分由下列代碼組成：
①p=1
②s1 = Mid(s, i, t)
③p=-1
④s1 = Mid(s, i, 1)
⑤i = i + 1
⑥i = i + t
下列選項中，代碼順序正確的是（　　）
A．③②⑥ B．①④⑥ C．③②⑤ D．③④⑤
10．（2021·義烏模擬）有如下VB程序段：
For p = 11 To 12
Do While p > 1 And a(p) > a(p \ 2)
tmp = a(p): a(p) = a(p \ 2): a(p \ 2) = tmp
p = p \ 2
Loop
Next p
若a(1)～a(12)中的元素依次為“25，14，19，5，12，17，8，1，3，10，20，30”執行該程序段后，變量a(1)、a(2)和a(3)的值依次是（　　）
A．1 3 5 B．10 20 30 C．20 25 30 D．30 20 25
11．（2021·義烏模擬）有數據序列為“2，6，8，3，5，9，7”，經過一輪冒泡排序后的結果是“2，3，6，8，5，7，9”，那么還需要（　　）輪冒泡排序后，數據才能完全有序。
A．2 B．3 C．4 D．5
12．（2021·義烏模擬）有如下VB程序段：
key = Val(Text1.Text): cnt=10
For i = 1 To cnt - 1
n = key - a(i)
L = i + 1: R = cnt
Do While L <= R
m = (L + R) \ 2
If a(m) = n Then Exit Do
If a(m) > n Then R = m - 1 Else L = m + 1
Loop
If L <= R Then Text2.Text = Str(key - a(m)) + "," + Str(a(m))
Next i
在數組a(1)～a(10)中存儲的數據依次為“1，4，9，16，25，36，49，64，81，100”，在Text1中輸入一個不大于200的數，執行該程序后，Text2中顯示的內容可能是（　　）
A．1，99 B．36，64 C．81，25 D．100，100
二、操作題
13．（2021·義烏模擬）小張收集了2020年浙江省內本科院校錄取情況的相關數據，并用EXCEL表進行處理，如圖a所示：
圖a
請回答下列問題：
（1）圖a中I3：I11區域是用COUNTIF函數計算得到的，選擇I3單元格輸入公式后利用自動填充功能完成其他單元格的計算。觀察上圖，可知I3單元格中的公式為　 　(COUNTIF函數的作用是計算某個區域中滿足給定條件的單元格個數，如COUNTIF（D3:D61,D3）的作用是計算區域D3:D61中內容為“杭州市”的單元格個數)
（2）要使相同城市按照高校平均分有序排列，則排序時主、次關鍵字分別為　 　、　 　。
（3）選擇圖a數據區域A2：A61，F2：F61，創建了一張柱形圖，為了更直觀的觀察杭州市錄取平均分最高3所院校的柱形對比，可以對A2：F61區域進行　 　操作，使柱形圖更新為圖b。
①篩選出城市為“杭州市”的數據；②以城市為關鍵字，按筆畫進行升序排序；③對“高校平均分”列設置“最大3項”的篩選；④以高校平均分為關鍵字進行降序排序；⑤隱藏第三所之后的所有院校。
圖b
14．（2021·義烏模擬）使用flash軟件打開“我的莊園.fla”文件，編輯界面如圖a所示：
圖a
請回答下列問題:
（1）在制作作品前，小王進行了相應的需求分析，下列屬于創作需求分析的是　 　（A .該作品準備面向10歲以下的小朋友
B .該作品的使用價值如何 C .該作品的發布方式的選擇 D
.該作品選擇的結構類型為游戲型 E.作品的背景音樂要悅耳，動畫色彩和諧）
（2）“哈利波特”圖層第1幀的屬性如圖b所示，則該圖層的補間類型是　 　（A .形狀補間 / B .動畫補間 /
C .逐幀動畫），若在第30幀插入關鍵幀，是否影響動畫效果　 　（A .是/ B .否）。
圖b
（3）若要實現“發芽”圖層動畫結束1秒后，“花朵”圖層動畫才開始，則對“發芽”圖層正確的操作是：　 　。
（4）若要實現該場景動畫結束時，跳轉到該場景的第1幀停止播放，則可行的操作是：　 　。
15．（2021·義烏模擬）在一條寬度度為L的直線小河中，一只青蛙想沿著直線從河的左側跳到右側。小河中有n片位置互不相同的荷葉，青蛙必須跳到荷葉上過河，否則會掉入水中。開始時青蛙站在河的左側（坐標為0)，接著不停地向右側跳躍，每次跳躍的距離不超過W，當青蛙跳到或跳過河的右側(坐標為L)時，青蛙完成過河。例如當L=20,n=4,W=5，開始時4片荷葉的坐標為3，9，11，17，則至少需要增加2片荷葉，即在坐標8和16分別增加一個荷葉，得到過河的可行方案是0→3→8→9→11→16→17→20。
圖a 圖b
編寫程序找出青蛙成功過河至少需要增加的荷葉數，界面如圖b。請回答以下問題：
（1） 若要將列表框List1頂端與窗體頂端的距離設置為100，能實現該功能的語句是　 　(A .
List1.Height = 100 / B . List1.Top = 100 / C . List1.Width = 100）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Form_Load()
'讀取荷葉的位置，并保存到數組a中
'荷葉的數量保存在n中
'荷葉坐標和數量分別顯示在list1和Text2中
End Sub
Private Sub Command1_Click()
Dim a(0 To 100) As Integer
Dim n As Integer, L As Integer,
W As Integer, tot As Integer
Dim i As Integer, j As Integer,
p As Integer, d As Integer
L = Val(Text1.Text) : n =
Val(Text2.Text) : W = Val(Text3.Text)
a(0) = 0 : a(n + 1) = 　 　
For i = 1 To n - 1
k
= i
For j = i + 1 To n
If a(k) > a(j) Then
Next j
If k <> i Then
tmp = a(k): a(k) = a(i): a(i) = tmp
End If
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
p = 1: d = 0
Do While d < L
If p <= n + 1 And 　 　 Then
d = a(p)
p = p + 1
Else
tot = tot + 1
　 　
End If
Loop
Label4.Caption = "至少需要增加的荷葉數為：" + Str(tot)
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2021·義烏模擬）一張骨牌由上下兩行共四個格子構成，每個格子有一個1到6之間的數字。現在一共有5張骨牌，從左到右排成一排，定義每張骨牌的差值為：骨牌第一行的數字和減去第二行的數字和；5張骨牌的差值為：每張骨牌的差值和的絕對值。
如圖a中，5張骨牌的差值為：|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。
每張骨牌都可以順時針旋轉90度，效果如圖b所示。現在最多可以選擇其中一張骨牌進行旋轉，使得旋轉后的骨牌差值變小。求一種旋轉方案，并輸出骨牌差值的最小值。
圖a 圖b
編寫VB程序，實現上述功能。運行程序，在文本框Text1中依次輸入5張骨牌上的數字，單擊“計算”按鈕Command1，在文本框Text2、Text3、Text4中輸出結果。程序運行界面如圖b所示。
（1）若圖a中第1張骨牌的數字修改為，1、2、6、6，則骨牌差值的最小值為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 20) As Integer ‘依次存儲5張骨牌上的數字
Dim d(1 To 5) As Integer ‘依次存儲5張骨牌，上下兩行的差值
Const n = 5
Private Sub Form_Load()
'從文本框Text1讀取5張骨牌上的數字，依次存入數組a
'a(1)～a(4)依次存儲第一張骨牌從左到右從上到下四個數字
'a(5)到a(20)依次類推
'代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, up As
Integer, down As Integer, t As Integer, k As Integer
Dim id As Integer, times As
Integer, x As Integer, ans As Integer
For i = 1 To n
up = a(4 * i - 3) + a(4 * i
- 2)
down = a(4 * i - 1) + a(4 *
i)
d(i) = up - down
t = t + d(i)
Next i
id = 0 : times = 0
ans =　 　
If ans <> 0 Then
k = 1
Do While k <= n
For x = 1 To 3
temp =　 　
If temp < ans Then
ans = temp
id = k
　 　
End If
If temp = 0 Then Exit Do
Next x
k
= k + 1
Loop
End If
Text2.Text = CStr(id)
Text3.Text = CStr(times)
Text4.Text = CStr(ans)
End Sub
Function turn(ByVal k As Integer, ByVal x As Integer) As Integer
‘求將第k張骨牌，順時針旋轉x次后，上下兩行的差值，代碼略
End Function
答案解析部分
1．【答案】B
【知識點】信息加工與處理的概念；計算機屬性及性能指標；字符編碼
2．【答案】C
【知識點】電子郵件，電子公告板等信息交流方式；網絡資源的類型、下載與保存；瀏覽器
3．【答案】D
【知識點】字段的數據類型
4．【答案】A
【知識點】多媒體數據壓縮技術；字符編碼
5．【答案】B
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】A
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】C
【知識點】流程圖識讀
9．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】D
【知識點】排序算法及程序實現
11．【答案】A
【知識點】排序算法及程序實現
12．【答案】B
【知識點】查找算法及程序實現
13．【答案】（1）=COUNTIF(C$3:C$61,H3)或=COUNTIF($C$3:$C$61,H3)
（2）城市；高校平均分
（3）①④⑤或④①⑤
【知識點】表格數據的處理與計算
14．【答案】（1）CD
（2）B；A
（3）將“發芽”圖層的第40幀移到第28幀
（4）在文字(或哈利波特 或花朵)圖層的第60幀添加幀命令gotoandstop(1)
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）B
（2）L；a(p)-d<=W；d=d+W
（3）k=j
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）1
（2）Abs(t)；Abs(t + turn(k, x) - d(k))；times = x
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省金華市義烏市2021屆高三信息技術適應性考試試卷
一、選擇題
1．（2021·義烏模擬）下列關于信息與信息的加工描述正確的是（　　）
A．計算機的運算速度只與硬件的性能有關。
B．計算機信息加工的本質是通過計算完成的。
C．使用Ultra Edit軟件查看到某字符的內碼是“D5 BD”，說明該字符在計算機內是用十六進制編碼的。
D．隨著科技的發展，計算機已經可以替代人自行做出所有的決策。
【答案】B
【知識點】信息加工與處理的概念；計算機屬性及性能指標；字符編碼
2．（2021·義烏模擬）下列有關瀏覽器與網頁的說法，正確的是（　　）
A．收發電子郵件時收件人地址必須與發件人地址不同。
B．使用IE瀏覽器登錄網站時，瀏覽器會自動記錄用戶的賬號和密碼。
C．以“網頁，全部（*htm;*html)”格式保存網頁，不一定能把網頁中的全部內容保存下來。
D．使用記事本打開某網頁文件就可以看到這個精美的網頁。
【答案】C
【知識點】電子郵件，電子公告板等信息交流方式；網絡資源的類型、下載與保存；瀏覽器
3．（2021·義烏模擬）使用ACCESS設計了一個“學生表”，用于存儲如下圖所示的數據：
下列關于“學生表”描述正確的是（　　）
A．“班級”字段的數據類型可以為“數字”。
B．“學籍輔號”字段的數據類型可以為“自動編號”。
C．若要增加一位“01”班學生的信息，可以在“學生表”的第3行位置插入一行記錄。
D．“學生表”的字段順序可以與圖中數據的列順序不一致。
【答案】D
【知識點】字段的數據類型
4．（2021·義烏模擬）下列關于信息編碼的描述，正確的是（　　）
A．JPEG是常用的靜態圖像壓縮標準。
B．若十進制數a轉換為二進制后末尾為0，則a/2轉換為二進制后末尾也為0。
C．字符“A”的ASCII碼值為41H，則“J”的ASCII碼值為50H。
D．一幅16色的圖片，每個像素點占用2個字節。
【答案】A
【知識點】多媒體數據壓縮技術；字符編碼
5．（2021·義烏模擬）使用Photoshop軟件制作“商貿義烏”作品，部分界面如圖所示：
下列說法正確的是（　　）
A．可用“文字工具”修改“奇跡”兩字的字號大小。
B．當前狀態下，不能移動文字“義烏-倫敦”的位置。
C．將“義烏-倫敦”的圖層樣式拷貝給“中歐班列”后，“中歐班列”圖層會有4個圖層樣式。
D．“備用背景”圖層的內容不可見的原因，是該圖層的不透明度為0%。
【答案】B
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2021·義烏模擬）班里計劃組織演唱比賽，小李打算幫大家錄視頻，錄制的視頻是未經壓縮的1920*1080像素、256色圖像、幀頻為25，每位同學的表演時間為不超過5分鐘，有15位同學參賽，小李至少需要準備多大的存儲卡來存儲演唱視頻（　　）
A．256GB B．128GB C．64GB D．32GB
【答案】A
【知識點】聲音、圖像、視頻編碼
7．（2021·義烏模擬）下列VB表達式的值一定為2021的是（　　）
A．Len("2020") + 1 B．Abs(Int(-2020.6))
C．Val("2020"+"1") D．Int(Rnd()*2022)
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2021·義烏模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入s的值為“yummy”，則輸出的ch、t值分別為（　　）
A．"y",1 B．"m",1 C．"y",5 D．"m",4
【答案】C
【知識點】流程圖識讀
9．（2021·義烏模擬）在字符串s中查找是否存在字符子串s1，若有則返回第一個s1的起始位置，若沒有則返回-1，實現該功能的VB程序段如下：
⑴ : i = 1
n = Len(s): t = Len(s1)
Do While i < n - t And p = -1
If ⑵ Then p = i
⑶
Loop
Label1.Caption = p
代碼中劃線部分由下列代碼組成：
①p=1
②s1 = Mid(s, i, t)
③p=-1
④s1 = Mid(s, i, 1)
⑤i = i + 1
⑥i = i + t
下列選項中，代碼順序正確的是（　　）
A．③②⑥ B．①④⑥ C．③②⑤ D．③④⑤
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2021·義烏模擬）有如下VB程序段：
For p = 11 To 12
Do While p > 1 And a(p) > a(p \ 2)
tmp = a(p): a(p) = a(p \ 2): a(p \ 2) = tmp
p = p \ 2
Loop
Next p
若a(1)～a(12)中的元素依次為“25，14，19，5，12，17，8，1，3，10，20，30”執行該程序段后，變量a(1)、a(2)和a(3)的值依次是（　　）
A．1 3 5 B．10 20 30 C．20 25 30 D．30 20 25
【答案】D
【知識點】排序算法及程序實現
11．（2021·義烏模擬）有數據序列為“2，6，8，3，5，9，7”，經過一輪冒泡排序后的結果是“2，3，6，8，5，7，9”，那么還需要（　　）輪冒泡排序后，數據才能完全有序。
A．2 B．3 C．4 D．5
【答案】A
【知識點】排序算法及程序實現
12．（2021·義烏模擬）有如下VB程序段：
key = Val(Text1.Text): cnt=10
For i = 1 To cnt - 1
n = key - a(i)
L = i + 1: R = cnt
Do While L <= R
m = (L + R) \ 2
If a(m) = n Then Exit Do
If a(m) > n Then R = m - 1 Else L = m + 1
Loop
If L <= R Then Text2.Text = Str(key - a(m)) + "," + Str(a(m))
Next i
在數組a(1)～a(10)中存儲的數據依次為“1，4，9，16，25，36，49，64，81，100”，在Text1中輸入一個不大于200的數，執行該程序后，Text2中顯示的內容可能是（　　）
A．1，99 B．36，64 C．81，25 D．100，100
【答案】B
【知識點】查找算法及程序實現
二、操作題
13．（2021·義烏模擬）小張收集了2020年浙江省內本科院校錄取情況的相關數據，并用EXCEL表進行處理，如圖a所示：
圖a
請回答下列問題：
（1）圖a中I3：I11區域是用COUNTIF函數計算得到的，選擇I3單元格輸入公式后利用自動填充功能完成其他單元格的計算。觀察上圖，可知I3單元格中的公式為　 　(COUNTIF函數的作用是計算某個區域中滿足給定條件的單元格個數，如COUNTIF（D3:D61,D3）的作用是計算區域D3:D61中內容為“杭州市”的單元格個數)
（2）要使相同城市按照高校平均分有序排列，則排序時主、次關鍵字分別為　 　、　 　。
（3）選擇圖a數據區域A2：A61，F2：F61，創建了一張柱形圖，為了更直觀的觀察杭州市錄取平均分最高3所院校的柱形對比，可以對A2：F61區域進行　 　操作，使柱形圖更新為圖b。
①篩選出城市為“杭州市”的數據；②以城市為關鍵字，按筆畫進行升序排序；③對“高校平均分”列設置“最大3項”的篩選；④以高校平均分為關鍵字進行降序排序；⑤隱藏第三所之后的所有院校。
圖b
【答案】（1）=COUNTIF(C$3:C$61,H3)或=COUNTIF($C$3:$C$61,H3)
（2）城市；高校平均分
（3）①④⑤或④①⑤
【知識點】表格數據的處理與計算
14．（2021·義烏模擬）使用flash軟件打開“我的莊園.fla”文件，編輯界面如圖a所示：
圖a
請回答下列問題:
（1）在制作作品前，小王進行了相應的需求分析，下列屬于創作需求分析的是　 　（A .該作品準備面向10歲以下的小朋友
B .該作品的使用價值如何 C .該作品的發布方式的選擇 D
.該作品選擇的結構類型為游戲型 E.作品的背景音樂要悅耳，動畫色彩和諧）
（2）“哈利波特”圖層第1幀的屬性如圖b所示，則該圖層的補間類型是　 　（A .形狀補間 / B .動畫補間 /
C .逐幀動畫），若在第30幀插入關鍵幀，是否影響動畫效果　 　（A .是/ B .否）。
圖b
（3）若要實現“發芽”圖層動畫結束1秒后，“花朵”圖層動畫才開始，則對“發芽”圖層正確的操作是：　 　。
（4）若要實現該場景動畫結束時，跳轉到該場景的第1幀停止播放，則可行的操作是：　 　。
【答案】（1）CD
（2）B；A
（3）將“發芽”圖層的第40幀移到第28幀
（4）在文字(或哈利波特 或花朵)圖層的第60幀添加幀命令gotoandstop(1)
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2021·義烏模擬）在一條寬度度為L的直線小河中，一只青蛙想沿著直線從河的左側跳到右側。小河中有n片位置互不相同的荷葉，青蛙必須跳到荷葉上過河，否則會掉入水中。開始時青蛙站在河的左側（坐標為0)，接著不停地向右側跳躍，每次跳躍的距離不超過W，當青蛙跳到或跳過河的右側(坐標為L)時，青蛙完成過河。例如當L=20,n=4,W=5，開始時4片荷葉的坐標為3，9，11，17，則至少需要增加2片荷葉，即在坐標8和16分別增加一個荷葉，得到過河的可行方案是0→3→8→9→11→16→17→20。
圖a 圖b
編寫程序找出青蛙成功過河至少需要增加的荷葉數，界面如圖b。請回答以下問題：
（1） 若要將列表框List1頂端與窗體頂端的距離設置為100，能實現該功能的語句是　 　(A .
List1.Height = 100 / B . List1.Top = 100 / C . List1.Width = 100）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Form_Load()
'讀取荷葉的位置，并保存到數組a中
'荷葉的數量保存在n中
'荷葉坐標和數量分別顯示在list1和Text2中
End Sub
Private Sub Command1_Click()
Dim a(0 To 100) As Integer
Dim n As Integer, L As Integer,
W As Integer, tot As Integer
Dim i As Integer, j As Integer,
p As Integer, d As Integer
L = Val(Text1.Text) : n =
Val(Text2.Text) : W = Val(Text3.Text)
a(0) = 0 : a(n + 1) = 　 　
For i = 1 To n - 1
k
= i
For j = i + 1 To n
If a(k) > a(j) Then
Next j
If k <> i Then
tmp = a(k): a(k) = a(i): a(i) = tmp
End If
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
p = 1: d = 0
Do While d < L
If p <= n + 1 And 　 　 Then
d = a(p)
p = p + 1
Else
tot = tot + 1
　 　
End If
Loop
Label4.Caption = "至少需要增加的荷葉數為：" + Str(tot)
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）B
（2）L；a(p)-d<=W；d=d+W
（3）k=j
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
16．（2021·義烏模擬）一張骨牌由上下兩行共四個格子構成，每個格子有一個1到6之間的數字。現在一共有5張骨牌，從左到右排成一排，定義每張骨牌的差值為：骨牌第一行的數字和減去第二行的數字和；5張骨牌的差值為：每張骨牌的差值和的絕對值。
如圖a中，5張骨牌的差值為：|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。
每張骨牌都可以順時針旋轉90度，效果如圖b所示。現在最多可以選擇其中一張骨牌進行旋轉，使得旋轉后的骨牌差值變小。求一種旋轉方案，并輸出骨牌差值的最小值。
圖a 圖b
編寫VB程序，實現上述功能。運行程序，在文本框Text1中依次輸入5張骨牌上的數字，單擊“計算”按鈕Command1，在文本框Text2、Text3、Text4中輸出結果。程序運行界面如圖b所示。
（1）若圖a中第1張骨牌的數字修改為，1、2、6、6，則骨牌差值的最小值為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 20) As Integer ‘依次存儲5張骨牌上的數字
Dim d(1 To 5) As Integer ‘依次存儲5張骨牌，上下兩行的差值
Const n = 5
Private Sub Form_Load()
'從文本框Text1讀取5張骨牌上的數字，依次存入數組a
'a(1)～a(4)依次存儲第一張骨牌從左到右從上到下四個數字
'a(5)到a(20)依次類推
'代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, up As
Integer, down As Integer, t As Integer, k As Integer
Dim id As Integer, times As
Integer, x As Integer, ans As Integer
For i = 1 To n
up = a(4 * i - 3) + a(4 * i
- 2)
down = a(4 * i - 1) + a(4 *
i)
d(i) = up - down
t = t + d(i)
Next i
id = 0 : times = 0
ans =　 　
If ans <> 0 Then
k = 1
Do While k <= n
For x = 1 To 3
temp =　 　
If temp < ans Then
ans = temp
id = k
　 　
End If
If temp = 0 Then Exit Do
Next x
k
= k + 1
Loop
End If
Text2.Text = CStr(id)
Text3.Text = CStr(times)
Text4.Text = CStr(ans)
End Sub
Function turn(ByVal k As Integer, ByVal x As Integer) As Integer
‘求將第k張骨牌，順時針旋轉x次后，上下兩行的差值，代碼略
End Function
【答案】（1）1
（2）Abs(t)；Abs(t + turn(k, x) - d(k))；times = x
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑