資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省衢州、麗水、湖州三地市2022屆高三4月信息技術教學質量檢測（二模）試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022·湖州模擬）從信息與信息處理的角度分析“北京冬奧會”，下列描述不正確的是（　　）
A．各項賽事被廣泛關注，這體現了信息的共享性
B．數字胸牌與手機觸碰即可完成信息的傳輸，說明信息的傳播可以脫離載體
C．8K超高清電視節目的制作經過了數字化處理
D．虛擬館中的數字運動員是由計算機計算生成的
2．（2022·湖州模擬）下列應用中沒有體現人工智能技術的是（　　）
A．使用無人汽車送貨 B．用APP自動識別植物的種類
C．刷公交卡乘車 D．使用語音撥號方式撥打電話
3．（2022·湖州模擬）用Access軟件設計疫苗信息管理系統的數據庫，其中“疫苗接種調查”數據表如圖所示。
下列說法正確的是（　　）
A．疫苗信息管理系統屬于數據庫管理系統
B．當前狀態下該數據表的表名不可修改
C．“出生日期”字段的數據類型為“日期/時間”
D．在當前狀態下執行添加新記錄操作，新記錄將產生在第二行
4．（2022·湖州模擬）某十進制正整數n轉換為二進制數，該二進制數位數為7位，首位是“1”，末位是“0”，下列說法正確的是（　　）
A．n\16的最大值為14
B．n是[64，126]之間的任意偶數
C．該二進制數首位所對應的權值是2'
D．將該二進制數末位的“0”去掉，再轉換為十進制數，所得的值是n/10
5．（2022·湖州模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法不正確的是（　　）
A．該音頻未經壓縮，共采樣44100次
B．該音頻的量化位數為8bit，最多有256個不同的量化值
C．執行“刪除”操作后直接保存，音頻時長變為1秒
D．執行“靜音”操作后直接保存，音頻文件存儲容量不變
6．（2022·湖州模擬）使用數碼相機連拍5秒16位色BMP格式的照片，連拍速度為10張/秒，該次拍攝所有圖像文件存儲容量約為800MB，則每幅圖像的分辨率約為（　　）
A．100萬像素 B．200萬像素 C．400萬像素 D．800萬像素
7．（2022·湖州模擬）下列VB表達式中，值為True的是（　　）
A．Int(-2.5)> -2 B．Not(3Mod6=0)
C．Len("56"+"12")=5612 D．Mid("15234"，3，3) > "56"
8．（2022·湖州模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入x的值為21，則輸出s和k的值分別為(　　)
A．4，7 B．-5，11 C．4，9 D．-5，9
9．（2022·湖州模擬）有如下VB程序段：
n =357859604
Do While n>0
c=n Mod 10
If c>5 Then c=5
count (c) = count(c) + 1
n=n\10
Loop
數組元素count (0)到count (9)的初始值均為0，執行該程序段后，則count (5)的值為(　　)
A．2 B．4 C．6 D．10
10．（2022·湖州模擬）生成0~9以內不重復的5個整數，并存儲至d數組，實現該功能的VB程序段如下：
s = "0123456789"
For i=1 To 5
s=Mid(s，1，k-1)+Mid(s，k+1)
Next i
上述程序段中方框處可選語句為：
①k=Int(Rnd*10)+1
②k=Int(Rnd*Len(s)+1)
③d(k)=i
④d(i) = Val(Mid(s，k，1))
則方框處語句依次是(　　)
A．①③ B．①④ C．②③ D．②④
11．（2022·湖州模擬）有如下VB程序段：
c= 0
For i=1 To 7
k=i
For j=i+1 To 8
If a(j) <= a(k) Then k= j
Next j
If a(i)<>a(k) And i<>k Then
t=a(i)：a(i)=a(k)：a(k)=t
c=c+1
End If
Next i
數組元素a(1)到a(8)的值依次為“54，12，23，12，7，12，78，23”，執行該程序段后，變量c的值是(　　)
A．4 B．5 C．6 D．7
12．（2022·湖州模擬）某對分查找算法的VB程序段如下：
i =1：j= 8：n= 0：key= 83
Do While i<=j
n=n+1
m=(i+j)\2
If key > a(2 * m) Then j=m-1 Else i=m+1
Loop
Text1。Text = Str(a(2 * j - 1))
數組元素a(1)到a(16)的值依次為“6，90，3，85，5，83，2，83，4，83，8，80，7，77，1，70”，奇數位存儲序號，偶數位存儲成績。執行該程序段后，下列說法正確的是(　　)
A．循環結束后i的值為5 B．變量m的值為4
C．變量n的值為5 D．Text1輸出結果為4
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·湖州模擬）小明收集了2020年浙江省各地市農、林、牧、漁業總產值的數據，并使用Excel軟件對數據進行處理，如圖所示，請回答下列問題：
（1）表格第1行中的標題“浙江省各地市農、林、牧、漁業總產值(2020年)”可以在A1單元格中輸入標題，合并　 　區域后居中得到。
（2）在C4單元格中輸入公式，使用自動填充功能完成C5：C14的計算，然后將C4中的公式復制到E4，G4和I4，并利用自動填充功能完成E5：E14，G5：G14，I5：I14的計算，則C4單元格中的公式是　 　(提示：
農業產值占比=某市農業產值/全省農業產值之和)。
（3）對區域A3：J14進行相關數據分析，下列說法正確的是 (多選，填字母)。
A．為了顯示農業和林業產值均位居全省前三的地市，可分別對B列和D列進行篩選
B．已知J列數據是由J4單元格填充得到，若更改H14單元格的值，則不會影響J14單元格的值
C．對區域A3：J14數據以“牧業產值全省占比”為主要關鍵字降序排序，“麗水市”排在“臺州市”前面
D．若要直觀展示各地市農、林、牧、漁業總產值在全省所占的比例，可以選擇餅圖
14．（2022·湖州模擬）小明制作主題為“快樂運動”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）處理圖像的部分界面如圖a所示。下列說法正確的有 (多選，填字母)。
A．可以復制“教學樓”圖層的圖層樣式并粘貼至“背景”圖層
B．將“綠植”圖層移動到“教學樓”圖層的下方，會影響圖像的呈現效果
C．通過“畫布大小”將圖像由600×400像素改為800X400像素后，所有圖層中的內容均會發生變化
D．將“背景.psd”文件存儲為JPG格式后，JPG 文件不包含“紙飛機”圖層的內容
（2）制作動畫作品的部分界面如第圖b所示，“按鈕”圖層中的“進入”按鈕是由“進入”按鈕元件創建的實例。測試影片時，當鼠標懸停在“進入”按鈕上時，按鈕中文字的顏色發生了改變，當單擊鼠標時，發出“叮叮”的聲音，由此可見，在“進入”按鈕元件的　 　(單選，填字母：A .彈起/ B .指針經過/ C .按下)幀中添加了聲音，且聲音的同步屬性為　 　(單選，填字母：A .事件/ B .數據流)。
（3）要使“我運動”圖層中的內容一直延續到第60幀，其他動畫效果保持不變，應進行的操作是　 　。
（4）在“人物”圖層的第60幀上添加了動作腳本“stop(　　)；”，測試影片時，在任意時刻單擊“進入”按鈕，跳轉到“main”場景第1幀并開始播放，則該按鈕實例上的動作腳本可行的有 (多選，填字母)。
A．on (release) {play(　　);}
B．on(release) {play("main",1);}
C．on(release) {gotoAndPlay("main",1);}
D．on(release) {gotoAndStop(" main", 1); play();}
15．（2022·湖州模擬）某玩具廠的生產流水線上有道工序，需要使用機械臂對n根長方體木塊材料進行自動化排序。排序步驟為：從左起第一個木塊開始向右尋找長度最短的，如果木塊長度相同，則選擇其中厚度較小的記錄其位置R1 (不考慮長度及厚度均相同的情況)，然后對區間[1，R1]內的木塊進行整體翻轉。再從第二個木塊向右繼續尋找，并記錄其位置R2，然后對區間[2，R2]的木塊進行整體翻轉……機械臂循環操作，直至排序完成。排序過程如圖a所示，其中⑦的厚度小于⑤的厚度。
根據．上述要求設計VB程序，功能如下：在窗體加載時，讀取木塊長度和厚度數據，并顯示在列表框List1中，單擊“排序”按鈕實現木塊排序，結果顯示在列表框List2中，程序運行界面如圖b所示。
（1）代碼Private Sub Com1_ Click ()中的Com1_Click()屬于 (單選，填字母)。
A．對象名 B．事件名
C．類別名 D．事件處理過程名
（2）實現上述功能的VB代碼如下，請在劃線處填寫合適的代碼。
Const n = 10
Dim cd(1 To n) As Single, hd(1 To n) As Single
Private Sub Form_ Load()
'通過數據庫讀取n根木塊的長度數據存儲到cd數組，厚度數據存儲到hd數組，并將數據顯示在列表框List1中，代碼略
End Sub
Private Sub Com1_Click()
Dim L As Integer, R As Integer
Dim min As Integer
Dim i As Integer, j As Integer
Dim t1 As Single, t2 As Single
For i=1 To n-1
min=i
For
j=i+1 To n
If
Then min= j
Next j
R=min
　 　
'實現區間內木塊的整體翻轉
Do While Lt1 = cd(L)： cd(L) = cd(R)： cd(R) = t1
t2 = hd(L)： hd(L) = hd(R)： hd(R) = t2
L=L+1
　 　
Loop
Next i
List2. AddItem"長度(cm)"+""+"厚度(cm)"
For i =1 To n
List2. AddItem Str(cd(i)) +"" + Str(hd(i))
Next i
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2022·湖州模擬）小明編寫VB程序實現有限小數、純循環小數、混循環小數轉化成最簡分數。三種類型的小數轉化方法如下表所示：
類型 計算公式 結果
有限小數 格式 a. b (a*x+b)/x
　
示例 3. 14 (3*10^ 2+14)/10 2 157/50
純循環小數 格式 a. (b) (a*(x-1)+b)/(x-1)
　
示例 3. (14) (3*(10^ 2-1)+14)/(10^2-1) 311/99
混循環小數 格式 a.b(c) (a*(t-1)*x+ (b*t+c-b))/((t-1)*x)
　
示例 3. 14(159) (3*(10 3-1)*10 2+(14*10 3+159-14))/(10^ 3-1)*10^2) 20923/6660
說明: ()內的數字串表示循環節 x=10 Len(b) t=10' Len(c)
程序運行時，在文本框Text1中輸入小數，單擊“轉化”按鈕，輸出對應的分數，界面如圖所示。
（1）在文本框中輸入“0.0(6)”，轉化成分數為　 　。
（2）實現上述功能的部分VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_ Click()
Dim s As String, xS As String,
zS As String
Dim fz As Long, fm As Long
Dim i As Integer
Dim x As Integer, y As Integer
s = Text1.Text
i=1
Do While Mid(s, i, 1) <> "."
i=i+1
Loop
zs =　 　
xs=Mid(s, i+1)
If not(f(xs)) Then
fm =
power (Len(xs))
fz =
val(zs) * fm + vas (xs)
Else
If
Mid(xs, 1, 1) = "(" Then
xs = Mid(xs, 2, Len(xs) - 2)
fm
= power(Len(xs)) - 1
fz
= Val(zs) * fm + Val(xs) .
Else
x=0: y=0: i=1
Do
While Mid(xs, i, 1) <> "("
i=i+1
Loop
x=i-1
y=Len(xs)-i-1
fm =
　 　
fz= Val (Mid(xs, 1, x)) * power(y)+Val
(Mid(xs, i+1, y))-Val (Mid(xs, 1, x))
fz=Val(zs)*fm+fz
End If
End If
Label2. Caption = Str(fz /
gcd(fz, fm)) + "/"+ Str(fm / gcd(fz,
fm))
End Sub
Function gcd (ByVal m As Long,
ByVal n As Long) As Long
Dim r As Long
Do While m Mod n<>0
r=
m Mod n
m=n
n=r
Loop
　 　
End Function
Function f(s As String) As Boolean
'循環節判斷
'函數返回True代表循環小數，False 不是循環小數，代碼略
End Function
Function power(x As Integer) As Long '返回10的x次方
'代碼略
End Function
答案解析部分
1．【答案】B
【知識點】信息及其特征；數字化概念與作用
2．【答案】C
【知識點】人工智能的應用
3．【答案】B
【知識點】數據表、字段、記錄的編輯
4．【答案】B
【知識點】進制及數制轉換
5．【答案】A
【知識點】聲音素材的基本處理
6．【答案】D
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】流程圖識讀
9．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
11．【答案】A
【知識點】排序算法及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）A1：J1
（2）=B4/SUM(B$4：B$14)
（3）A；C；D
【知識點】表格數據的處理與計算
14．【答案】（1）B；D
（2）C；A
（3）選擇“我運動”圖層，對第31幀執行“清除關鍵幀”操作，然后對第60幀執行“插入幀”操作或其 他等價操作
（4）C；D
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）D
（2）L=i；R=R-1
（3）cd(j) < cd(min) Or cd(j) = cd(min) And hd(j) < hd (min)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．【答案】（1）1 / 15 或其他非最簡分數
（2）Mid(s, 1, i-1)；(power(y)-1) *power(x)；gcd=n
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省衢州、麗水、湖州三地市2022屆高三4月信息技術教學質量檢測（二模）試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022·湖州模擬）從信息與信息處理的角度分析“北京冬奧會”，下列描述不正確的是（　　）
A．各項賽事被廣泛關注，這體現了信息的共享性
B．數字胸牌與手機觸碰即可完成信息的傳輸，說明信息的傳播可以脫離載體
C．8K超高清電視節目的制作經過了數字化處理
D．虛擬館中的數字運動員是由計算機計算生成的
【答案】B
【知識點】信息及其特征；數字化概念與作用
2．（2022·湖州模擬）下列應用中沒有體現人工智能技術的是（　　）
A．使用無人汽車送貨 B．用APP自動識別植物的種類
C．刷公交卡乘車 D．使用語音撥號方式撥打電話
【答案】C
【知識點】人工智能的應用
3．（2022·湖州模擬）用Access軟件設計疫苗信息管理系統的數據庫，其中“疫苗接種調查”數據表如圖所示。
下列說法正確的是（　　）
A．疫苗信息管理系統屬于數據庫管理系統
B．當前狀態下該數據表的表名不可修改
C．“出生日期”字段的數據類型為“日期/時間”
D．在當前狀態下執行添加新記錄操作，新記錄將產生在第二行
【答案】B
【知識點】數據表、字段、記錄的編輯
4．（2022·湖州模擬）某十進制正整數n轉換為二進制數，該二進制數位數為7位，首位是“1”，末位是“0”，下列說法正確的是（　　）
A．n\16的最大值為14
B．n是[64，126]之間的任意偶數
C．該二進制數首位所對應的權值是2'
D．將該二進制數末位的“0”去掉，再轉換為十進制數，所得的值是n/10
【答案】B
【知識點】進制及數制轉換
5．（2022·湖州模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法不正確的是（　　）
A．該音頻未經壓縮，共采樣44100次
B．該音頻的量化位數為8bit，最多有256個不同的量化值
C．執行“刪除”操作后直接保存，音頻時長變為1秒
D．執行“靜音”操作后直接保存，音頻文件存儲容量不變
【答案】A
【知識點】聲音素材的基本處理
6．（2022·湖州模擬）使用數碼相機連拍5秒16位色BMP格式的照片，連拍速度為10張/秒，該次拍攝所有圖像文件存儲容量約為800MB，則每幅圖像的分辨率約為（　　）
A．100萬像素 B．200萬像素 C．400萬像素 D．800萬像素
【答案】D
【知識點】聲音、圖像、視頻編碼
7．（2022·湖州模擬）下列VB表達式中，值為True的是（　　）
A．Int(-2.5)> -2 B．Not(3Mod6=0)
C．Len("56"+"12")=5612 D．Mid("15234"，3，3) > "56"
【答案】B
【知識點】運算符、基本運算與表達式
8．（2022·湖州模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入x的值為21，則輸出s和k的值分別為(　　)
A．4，7 B．-5，11 C．4，9 D．-5，9
【答案】B
【知識點】流程圖識讀
9．（2022·湖州模擬）有如下VB程序段：
n =357859604
Do While n>0
c=n Mod 10
If c>5 Then c=5
count (c) = count(c) + 1
n=n\10
Loop
數組元素count (0)到count (9)的初始值均為0，執行該程序段后，則count (5)的值為(　　)
A．2 B．4 C．6 D．10
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2022·湖州模擬）生成0~9以內不重復的5個整數，并存儲至d數組，實現該功能的VB程序段如下：
s = "0123456789"
For i=1 To 5
s=Mid(s，1，k-1)+Mid(s，k+1)
Next i
上述程序段中方框處可選語句為：
①k=Int(Rnd*10)+1
②k=Int(Rnd*Len(s)+1)
③d(k)=i
④d(i) = Val(Mid(s，k，1))
則方框處語句依次是(　　)
A．①③ B．①④ C．②③ D．②④
【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
11．（2022·湖州模擬）有如下VB程序段：
c= 0
For i=1 To 7
k=i
For j=i+1 To 8
If a(j) <= a(k) Then k= j
Next j
If a(i)<>a(k) And i<>k Then
t=a(i)：a(i)=a(k)：a(k)=t
c=c+1
End If
Next i
數組元素a(1)到a(8)的值依次為“54，12，23，12，7，12，78，23”，執行該程序段后，變量c的值是(　　)
A．4 B．5 C．6 D．7
【答案】A
【知識點】排序算法及程序實現
12．（2022·湖州模擬）某對分查找算法的VB程序段如下：
i =1：j= 8：n= 0：key= 83
Do While i<=j
n=n+1
m=(i+j)\2
If key > a(2 * m) Then j=m-1 Else i=m+1
Loop
Text1。Text = Str(a(2 * j - 1))
數組元素a(1)到a(16)的值依次為“6，90，3，85，5，83，2，83，4，83，8，80，7，77，1，70”，奇數位存儲序號，偶數位存儲成績。執行該程序段后，下列說法正確的是(　　)
A．循環結束后i的值為5 B．變量m的值為4
C．變量n的值為5 D．Text1輸出結果為4
【答案】D
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·湖州模擬）小明收集了2020年浙江省各地市農、林、牧、漁業總產值的數據，并使用Excel軟件對數據進行處理，如圖所示，請回答下列問題：
（1）表格第1行中的標題“浙江省各地市農、林、牧、漁業總產值(2020年)”可以在A1單元格中輸入標題，合并　 　區域后居中得到。
（2）在C4單元格中輸入公式，使用自動填充功能完成C5：C14的計算，然后將C4中的公式復制到E4，G4和I4，并利用自動填充功能完成E5：E14，G5：G14，I5：I14的計算，則C4單元格中的公式是　 　(提示：
農業產值占比=某市農業產值/全省農業產值之和)。
（3）對區域A3：J14進行相關數據分析，下列說法正確的是 (多選，填字母)。
A．為了顯示農業和林業產值均位居全省前三的地市，可分別對B列和D列進行篩選
B．已知J列數據是由J4單元格填充得到，若更改H14單元格的值，則不會影響J14單元格的值
C．對區域A3：J14數據以“牧業產值全省占比”為主要關鍵字降序排序，“麗水市”排在“臺州市”前面
D．若要直觀展示各地市農、林、牧、漁業總產值在全省所占的比例，可以選擇餅圖
【答案】（1）A1：J1
（2）=B4/SUM(B$4：B$14)
（3）A；C；D
【知識點】表格數據的處理與計算
14．（2022·湖州模擬）小明制作主題為“快樂運動”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
（1）處理圖像的部分界面如圖a所示。下列說法正確的有 (多選，填字母)。
A．可以復制“教學樓”圖層的圖層樣式并粘貼至“背景”圖層
B．將“綠植”圖層移動到“教學樓”圖層的下方，會影響圖像的呈現效果
C．通過“畫布大小”將圖像由600×400像素改為800X400像素后，所有圖層中的內容均會發生變化
D．將“背景.psd”文件存儲為JPG格式后，JPG 文件不包含“紙飛機”圖層的內容
（2）制作動畫作品的部分界面如第圖b所示，“按鈕”圖層中的“進入”按鈕是由“進入”按鈕元件創建的實例。測試影片時，當鼠標懸停在“進入”按鈕上時，按鈕中文字的顏色發生了改變，當單擊鼠標時，發出“叮叮”的聲音，由此可見，在“進入”按鈕元件的　 　(單選，填字母：A .彈起/ B .指針經過/ C .按下)幀中添加了聲音，且聲音的同步屬性為　 　(單選，填字母：A .事件/ B .數據流)。
（3）要使“我運動”圖層中的內容一直延續到第60幀，其他動畫效果保持不變，應進行的操作是　 　。
（4）在“人物”圖層的第60幀上添加了動作腳本“stop(　　)；”，測試影片時，在任意時刻單擊“進入”按鈕，跳轉到“main”場景第1幀并開始播放，則該按鈕實例上的動作腳本可行的有 (多選，填字母)。
A．on (release) {play(　　);}
B．on(release) {play("main",1);}
C．on(release) {gotoAndPlay("main",1);}
D．on(release) {gotoAndStop(" main", 1); play();}
【答案】（1）B；D
（2）C；A
（3）選擇“我運動”圖層，對第31幀執行“清除關鍵幀”操作，然后對第60幀執行“插入幀”操作或其 他等價操作
（4）C；D
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．（2022·湖州模擬）某玩具廠的生產流水線上有道工序，需要使用機械臂對n根長方體木塊材料進行自動化排序。排序步驟為：從左起第一個木塊開始向右尋找長度最短的，如果木塊長度相同，則選擇其中厚度較小的記錄其位置R1 (不考慮長度及厚度均相同的情況)，然后對區間[1，R1]內的木塊進行整體翻轉。再從第二個木塊向右繼續尋找，并記錄其位置R2，然后對區間[2，R2]的木塊進行整體翻轉……機械臂循環操作，直至排序完成。排序過程如圖a所示，其中⑦的厚度小于⑤的厚度。
根據．上述要求設計VB程序，功能如下：在窗體加載時，讀取木塊長度和厚度數據，并顯示在列表框List1中，單擊“排序”按鈕實現木塊排序，結果顯示在列表框List2中，程序運行界面如圖b所示。
（1）代碼Private Sub Com1_ Click ()中的Com1_Click()屬于 (單選，填字母)。
A．對象名 B．事件名
C．類別名 D．事件處理過程名
（2）實現上述功能的VB代碼如下，請在劃線處填寫合適的代碼。
Const n = 10
Dim cd(1 To n) As Single, hd(1 To n) As Single
Private Sub Form_ Load()
'通過數據庫讀取n根木塊的長度數據存儲到cd數組，厚度數據存儲到hd數組，并將數據顯示在列表框List1中，代碼略
End Sub
Private Sub Com1_Click()
Dim L As Integer, R As Integer
Dim min As Integer
Dim i As Integer, j As Integer
Dim t1 As Single, t2 As Single
For i=1 To n-1
min=i
For
j=i+1 To n
If
Then min= j
Next j
R=min
　 　
'實現區間內木塊的整體翻轉
Do While Lt1 = cd(L)： cd(L) = cd(R)： cd(R) = t1
t2 = hd(L)： hd(L) = hd(R)： hd(R) = t2
L=L+1
　 　
Loop
Next i
List2. AddItem"長度(cm)"+""+"厚度(cm)"
For i =1 To n
List2. AddItem Str(cd(i)) +"" + Str(hd(i))
Next i
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）D
（2）L=i；R=R-1
（3）cd(j) < cd(min) Or cd(j) = cd(min) And hd(j) < hd (min)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．（2022·湖州模擬）小明編寫VB程序實現有限小數、純循環小數、混循環小數轉化成最簡分數。三種類型的小數轉化方法如下表所示：
類型 計算公式 結果
有限小數 格式 a. b (a*x+b)/x
　
示例 3. 14 (3*10^ 2+14)/10 2 157/50
純循環小數 格式 a. (b) (a*(x-1)+b)/(x-1)
　
示例 3. (14) (3*(10^ 2-1)+14)/(10^2-1) 311/99
混循環小數 格式 a.b(c) (a*(t-1)*x+ (b*t+c-b))/((t-1)*x)
　
示例 3. 14(159) (3*(10 3-1)*10 2+(14*10 3+159-14))/(10^ 3-1)*10^2) 20923/6660
說明: ()內的數字串表示循環節 x=10 Len(b) t=10' Len(c)
程序運行時，在文本框Text1中輸入小數，單擊“轉化”按鈕，輸出對應的分數，界面如圖所示。
（1）在文本框中輸入“0.0(6)”，轉化成分數為　 　。
（2）實現上述功能的部分VB程序如下，請在劃線處填入合適代碼。
Private Sub Command1_ Click()
Dim s As String, xS As String,
zS As String
Dim fz As Long, fm As Long
Dim i As Integer
Dim x As Integer, y As Integer
s = Text1.Text
i=1
Do While Mid(s, i, 1) <> "."
i=i+1
Loop
zs =　 　
xs=Mid(s, i+1)
If not(f(xs)) Then
fm =
power (Len(xs))
fz =
val(zs) * fm + vas (xs)
Else
If
Mid(xs, 1, 1) = "(" Then
xs = Mid(xs, 2, Len(xs) - 2)
fm
= power(Len(xs)) - 1
fz
= Val(zs) * fm + Val(xs) .
Else
x=0: y=0: i=1
Do
While Mid(xs, i, 1) <> "("
i=i+1
Loop
x=i-1
y=Len(xs)-i-1
fm =
　 　
fz= Val (Mid(xs, 1, x)) * power(y)+Val
(Mid(xs, i+1, y))-Val (Mid(xs, 1, x))
fz=Val(zs)*fm+fz
End If
End If
Label2. Caption = Str(fz /
gcd(fz, fm)) + "/"+ Str(fm / gcd(fz,
fm))
End Sub
Function gcd (ByVal m As Long,
ByVal n As Long) As Long
Dim r As Long
Do While m Mod n<>0
r=
m Mod n
m=n
n=r
Loop
　 　
End Function
Function f(s As String) As Boolean
'循環節判斷
'函數返回True代表循環小數，False 不是循環小數，代碼略
End Function
Function power(x As Integer) As Long '返回10的x次方
'代碼略
End Function
【答案】（1）1 / 15 或其他非最簡分數
（2）Mid(s, 1, i-1)；(power(y)-1) *power(x)；gcd=n
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑