登录二一教育在线组卷平台 助您教考全无忧
浙江省衢州、丽水、湖州三地市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
