【xj】浙江省2019-2020学年高中信息技术仿真演练卷（二）
一、选择题
1．（2020·浙江模拟）关于信息安全、网络道德和知识产权，下列做法正确的是（ ）
A．开启智能手机的手势密码登录验证
B．关闭操作系统更新，不安装系统补丁
C．在观影时录制影片并分享到网络云盘
D．未经许可使用他人相片制作宣传海报
2．（2018高一上·浙江期末）小王用IE浏览器打开“百度”主页，下列说法不正确的是（ ）
A．该网页采用文件传输协议ftp协议来发送和接收信息
B．网页文件遵循HTML语言标准，可以用记事本打开并编辑
C．如果只需保存网页中的文字信息，可以选择的保存类型为“文本（*.txt）”
D．收藏该网站就是保存百度主页的地址“http://www.”
3．（2020·浙江模拟）下列应用中，使用了OCR技术的是（ ）
①车辆牌照识别系统拍摄车辆照片后，自动识别出其中的车牌号码
②视颏监控系统监测红绿灯路口的车辆通行情况
③某手机云笔记App通过扫措文字稿件，自动识别后转化成可编辑的文本
④手机拍摄练习题解题过程照片，并发布在班级QQ群中讨论
⑤某手机银行App转账时，通过扫描银行卡自动输入卡号
A．①②④ B．①③⑤ C．②③⑤ D．③④⑤
4．（2020·浙江模拟）下图所示是Access数据库中的student数据表，以下说法正确的是（ ）
A．当前状态下执行“新记录（W）”命令，则新添加的记录位于第3行位置
B．当前为数据视图，无法将“性别”字段修改为文本类型
C．新建记录时，无法在“出生日期”字段输入“一九九六年六月一日”
D．存储“性别”字段的值，需要的存储空间为1 bit
5．使用 UltraEdit软件观察字符“宁波Ningbo!”的内码，部分界面如图所示。
下列说法正确的是（ ）
A．英文字符“o”的内码表示成十六进制为“A3”
B．字符“波”的内码表示成二进制为“10110010 10101100”
C．字符“N”的内码与其ASCII码一致
D．图中所示“！”的内码占用了一个字节
6．（2020·浙江模拟）使用Photoshop软件制作“香港回归20周年”作品，部分界面如图所示
下列说法正确的是
A．“1997年-2017年”图层中使用了滤镜效果
B．“紫荆花”图层可以拖动到“1997年-2017年”图层的上方
C．“背景”图层可以使用“自由变换”命令将其缩小
D．将作品存储为JPEG格式文件，会呈现“香港回归20周年”图层中的3种图层样式效果
7．某算法流程图如下图所示，执行该流程后，变量x，y的值分别是（ ）
A．0，" 3 1" B．0，" 1 3" C．3，31 D．3，1
8．（2020·浙江模拟）已知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)
t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（ ）
A．“118”，“15”，“2”，“36”，“88”，“98”
B．“118”，“15”，“36”，“88”，“98”，“2”
C．“2”，“15”，“36”，“118”，“88”，“98”
D．“2”，“15”，“36”，“88”，“98”，“118”
9．（2020·浙江模拟）某对分查找算法的VB程序如下：
c=0: i=1: j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then
f= True
Else If key>d(m) Then
j=m-1
Else
i=m+1
End If
Loop
数组元素d(1)到d(8)的值依次为“97，79，68，48，35，23，18，10”，若运行该程序段后，c的值为2，则文本框Text1中输入的值是（ ）
A．68或18 B．68或23 C．79或23 D．79或18
10．（2020·浙江模拟）编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。
Private Sub Command1_Click()
Dim s As string
Dim n As Integer, w As Integer
s=Text1.Text
For i=1 To 3
n=Len(s):w=1
For j=2 To n
If ________ Then w=j Else Exit For
Next j
s=Mid(s,1,w-1)+Mid(s, w+l, n-w)
Next i
Text2.Text=s
End Sub
画线处的正确代码为（ ）
A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))
B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))
C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))
D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))
11．（2020·浙江模拟）小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1),a(2),a(3),……,a(n)中。他编写的VB程序段如下：
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And tempj=j-1
Loop
End If
要使程序实现上述功能，则方框①②中的语句分别是（ ）
A．a(j+1)=a(j)a(j+1)=temp B．a(j)=a(j-1)a(j+1)=temp
C．a(j+1)=a(j)a(j)=temp D．a(j)=a(j-1)a(j)=temp
二、操作题
12．（2020·浙江模拟）某同学收集了浙江省2017年第一季度消费者信心指数的统计数据，并使用Excel软件进行数据处理，如下图表格所示。
请回答下列问题：
（1）要计算各地就业信心指数与全省的差距，可先在F2单元格中输入公式，再用自动填充功能完成区域F3:F12的计算，则F2单元格中的公式是 （提示：各地就业信心指数与省差距=各城市就业信心指数-全省就业信心指数），若将C2单元格的小数位数设置为1位，则F2单元格内的数值会 （填变大/不变/变小）。
（2）若要制作一张图表来反映各城市的消费者信心总指数情况，则应选择的数据区域是 。
（3）将区域A1:F12的数据复制到新工作表，在新工作表中对“收入信心指数”和“消费意愿指数”进行筛选操作，筛选设置均如下图所示，则按此设置给指出的城市为 （填城市名称）。
13．（2020·浙江模拟）小张制作主题为“端午节”的多媒体作品。他使用PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，当前状态下，下列说法正确的是 （多选，填字母：A .“端午情”图层不能直接添加滤镜/B .“菖蒲”图层的各图层效果均可见/C .“粽子”图层不能直接添加图层样式D .“背景”图层可以直接删除）。
（2）如图b所示，“爱心”图层的补间动画持续时间是 秒（保留整数），该动画类型是 （填：形状补间/动画补间）。
（3）测试影片时，发现动画播放过程中背景图突然消失，现在要求背景图一直出现在舞台上，请写出正确的操作方法 。
（4）测试影片时，单击“按钮”图层最后一帧的“退出”按钮，实现跳转到“片尾”场景的第1帧并停止播放动画，则该按钮的动作脚本是 。
14．（2020·浙江模拟）数据的有损压缩：对多媒体数据进行有损压缩时，以少量数据丢失作为代价的，比如对某8 bit量化缩为6 bit量化，其算法可简单表示为：逐一删除各个字节的后2 bit，将删除后的6 bit数据首尾相连，然后重新按照8 bit一组构建字节，以十六进制显示。
例如，压缩前的原始数据为：
11111100 010111010 10110000可表示为十六进制：FC 5A B0
删除每字节的后2 bit：
111111 00 010110
10 101100 00
首尾相连构建新的数据：
11 11110101 10101100表示为十六进制：…F5 AC
自此，原数据进行了有损压缩。程序运行界面如下所示，
实现上述算法的VB程序如下，但程序中加框处有误，请改正。
Dim a(1 To 100) As Integer
Const code="0123456789ABCDEF"
Const n=100
Private Sub Form_Load() '以随机数模拟读取原始数据
s=""
Randomize
For i=1 To n
a(i)=Int (Rnd()*16)
Text1.Text=Text1.Text+ '①
Next i
End sub
Private Sub Command1_Click()
For i=1 To n
t=t+HtoB(a(i))
Next i
For j=1 To n* 4 Step 8 '每8位一组每8位一组，取前6个字符
s=s+Mid(t, j, 6)
Next j
For i=1 To 4 *(n-1) Step 4 '每4位一组转为十六进制显示
Text2.Text= Text2.Text +BtoH (Mid(s, 1, 4))
Next i
End sub
Function HtoB (x As Integer) As String '十六进十六进制转为二进制函数
t=""
m=0
Do While '②
r=x Mod 2
m=m+1
t= Trim(r)+t 'trim()用于删除前导空格
x=x\2
Loop
HtoB=Mid("0000", 1, 4-m)+t
End Function
Function BtoH (y As String) As String '二进制转为十六进制函数
t1=Val(Mid(y, 4, 1))
t2=Val(Mid(y, 3, 1))
t3=Val(Mid(y, 2, 1))
t4=Val(Mid(y, 1, 1))
s=t1+t2*+t3*4+t4*8
BtoH= Mid(code,s+1,1)
End Function
（1）①处加框代码应改为 。
（2）②处加框代码应改为 。
15．（2020·浙江模拟）物品装袋问题。现有n物品（不超过20个），及一个能装体积不超过y的袋子，分别给出各物品的体积及价值，求装入袋子里的物品价值总和的最大值。请编写VB程序，实现如下功能：在文本框Text1中输入袋子的体积，单击“就算”按钮Command1，在文本框Text2中输出装如袋子里的物品价值总和的最大值，运行效果如图所示。
算法设计：为了使装入袋子的价值总和最大，首先应该把单位价值（该物品的价值÷体积）最大的物品全部放入袋子（如果袋子当前剩余的容量不小于该物品的体积），然后再放单位价值第二的物品，如此往复。当袋子剩余的容量装不下一个完整的物品时，可以将这个物品的部分（若干个单位体积）装入袋子，直到袋子装满。实现上述功能的VB程序如下，请回答下列问题：
物品编号 体积 价值
1 26 19
2 7 14
3 22 11
4 10 22
（1）根据题意与算法描述，现有4个物品，其对应的体积和价值如表所示，若袋子的体积为30，则装入袋子里的物品最大价值为 （四舍五入保留1位小数）。
（2）请在画线处填入合适的代码。
Dim v(1 To 20)As Integer
'依次存储每个物品的体积
Dim w(1 To 20)As Integer
'依次存储每个物品的价
Dim pw(1 To 20)As Double
'依次存储每个物品的单位价值
Dim n As Integer '存储物品的总个数
Private Sub Form_Load()
'初始化操作，并将每个物品的体积和价值依次显示在列表框List1中（代码略）
'将物品的个数存入变量n中
'将每个物品的体积依次存入数组v(1)到v(n)中
'将每个物品的价值依次存入数组w(1)到w(n)中
End Sub
Sub sort()
'根据每个物品的单位价值进行降序排序
For i=1 To n-1
k=i
For j=i+1 To n
If Then k=j
Next j
If k < >i Then
t=v(i): v(i)=v(k): v(k)=t
t=w(i): w(i)=w(k): w(k)=t
p=pw(i): pw(i)=pw(k): pw(k)=p
End If
Next i
End
sub
Private
Sub Command1_Click()
Dim i As Integer, k As Integer, t As
Integer
Dim p as Double
Dim bw As Integer
Dim tot As Double
bw= Val(Text1.Text)
For i=1 To n
pw(i)=w(i)/v(i)
Next i
For i=1 To n
If bw＞=v(i) Then
tot=tot+w(i)
bw=bw-v(i)
Else
Exit for
End If
Next i
Text2.Text=Str(tot)
End
Sub
答案解析部分
1．【答案】A
【知识点】信息系统安全防护；信息素养、网络道德规范及法律法规
2．【答案】A
【知识点】网络协议；常用的网页编辑与制作工具
【解析】【解答】选项A：打开网页一般使用http协议，在下载文件或上传文件时使用ftp协议，本项错。选项B：网页文件使用超文本编辑语言进行编写，其实质是文本文件可以使用记事本打开并编辑，本项对。选项C：如果只保存网页上的文字信息在使用了“文件”-》“保存”后可以选择保存类型为“文本（*.txt）”。本项对。选项D：收藏网站不是保存网站只是为了下次快速打开网页所以保存网址就可以了，本项对。故答案选A。
【分析】本题考查的是网页的基础知识。网页是一种遵循超文本标记语言的文本文件，在浏览器端打开网页傅用超文本传输协议:http协议。
3．【答案】B
【知识点】字符识别
4．【答案】D
【知识点】数据表、字段、记录的编辑
5．【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】A选项：“o”的内码是6F；B选项：“波”的内码是B2 A8，转换为二进制后是1011001010101000 ； D选项：“”!”的内码以英文字母开始，占两个字节。故答案选C。
【分析】本题考查的是内码的查看和进制转换。用UltraEdit软件观察字符的内码时，每个英文字母占用1个字节，每个汉字占用2个字节。
6．【答案】B
【知识点】图层及图层的基本操作
7．【答案】A
【知识点】流程图识读
8．【答案】A
【知识点】排序算法及程序实现
9．【答案】A
【知识点】查找算法及程序实现
10．【答案】C
【知识点】枚举算法及程序实现；常用标准函数
11．【答案】A
【知识点】常见数据类型、数组；排序算法及程序实现
12．【答案】（1）=C2-C$13（或=C2-$C$13）；不变
（2）A1：B12
（3）湖州、台州、丽水
【知识点】表格数据的处理与计算
13．【答案】（1）ACD
（2）4；形状补间
（3）选中“背景”图层第70帧执行“清除关键”或选中“背景”图层第1帧“复制帧”，再选中第70帧“粘贴帧”
（4）on(release){gotoAndstop("片尾",1);}或on(press){gotoAndStop("片尾",1);}
【知识点】图层及图层的基本操作；动画的类型；动画的实现；常用影片控制函数的应用
14．【答案】（1）Mid(code,a(i)+1,1)
（2）x>0或x< >0
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
15．【答案】（1）45.5
（2）pw(k)【知识点】排序算法及程序实现；循环结构语句及程序实现
1 / 1【xj】浙江省2019-2020学年高中信息技术仿真演练卷（二）
一、选择题
1．（2020·浙江模拟）关于信息安全、网络道德和知识产权，下列做法正确的是（ ）
A．开启智能手机的手势密码登录验证
B．关闭操作系统更新，不安装系统补丁
C．在观影时录制影片并分享到网络云盘
D．未经许可使用他人相片制作宣传海报
【答案】A
【知识点】信息系统安全防护；信息素养、网络道德规范及法律法规
2．（2018高一上·浙江期末）小王用IE浏览器打开“百度”主页，下列说法不正确的是（ ）
A．该网页采用文件传输协议ftp协议来发送和接收信息
B．网页文件遵循HTML语言标准，可以用记事本打开并编辑
C．如果只需保存网页中的文字信息，可以选择的保存类型为“文本（*.txt）”
D．收藏该网站就是保存百度主页的地址“http://www.”
【答案】A
【知识点】网络协议；常用的网页编辑与制作工具
【解析】【解答】选项A：打开网页一般使用http协议，在下载文件或上传文件时使用ftp协议，本项错。选项B：网页文件使用超文本编辑语言进行编写，其实质是文本文件可以使用记事本打开并编辑，本项对。选项C：如果只保存网页上的文字信息在使用了“文件”-》“保存”后可以选择保存类型为“文本（*.txt）”。本项对。选项D：收藏网站不是保存网站只是为了下次快速打开网页所以保存网址就可以了，本项对。故答案选A。
【分析】本题考查的是网页的基础知识。网页是一种遵循超文本标记语言的文本文件，在浏览器端打开网页傅用超文本传输协议:http协议。
3．（2020·浙江模拟）下列应用中，使用了OCR技术的是（ ）
①车辆牌照识别系统拍摄车辆照片后，自动识别出其中的车牌号码
②视颏监控系统监测红绿灯路口的车辆通行情况
③某手机云笔记App通过扫措文字稿件，自动识别后转化成可编辑的文本
④手机拍摄练习题解题过程照片，并发布在班级QQ群中讨论
⑤某手机银行App转账时，通过扫描银行卡自动输入卡号
A．①②④ B．①③⑤ C．②③⑤ D．③④⑤
【答案】B
【知识点】字符识别
4．（2020·浙江模拟）下图所示是Access数据库中的student数据表，以下说法正确的是（ ）
A．当前状态下执行“新记录（W）”命令，则新添加的记录位于第3行位置
B．当前为数据视图，无法将“性别”字段修改为文本类型
C．新建记录时，无法在“出生日期”字段输入“一九九六年六月一日”
D．存储“性别”字段的值，需要的存储空间为1 bit
【答案】D
【知识点】数据表、字段、记录的编辑
5．使用 UltraEdit软件观察字符“宁波Ningbo!”的内码，部分界面如图所示。
下列说法正确的是（ ）
A．英文字符“o”的内码表示成十六进制为“A3”
B．字符“波”的内码表示成二进制为“10110010 10101100”
C．字符“N”的内码与其ASCII码一致
D．图中所示“！”的内码占用了一个字节
【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】A选项：“o”的内码是6F；B选项：“波”的内码是B2 A8，转换为二进制后是1011001010101000 ； D选项：“”!”的内码以英文字母开始，占两个字节。故答案选C。
【分析】本题考查的是内码的查看和进制转换。用UltraEdit软件观察字符的内码时，每个英文字母占用1个字节，每个汉字占用2个字节。
6．（2020·浙江模拟）使用Photoshop软件制作“香港回归20周年”作品，部分界面如图所示
下列说法正确的是
A．“1997年-2017年”图层中使用了滤镜效果
B．“紫荆花”图层可以拖动到“1997年-2017年”图层的上方
C．“背景”图层可以使用“自由变换”命令将其缩小
D．将作品存储为JPEG格式文件，会呈现“香港回归20周年”图层中的3种图层样式效果
【答案】B
【知识点】图层及图层的基本操作
7．某算法流程图如下图所示，执行该流程后，变量x，y的值分别是（ ）
A．0，" 3 1" B．0，" 1 3" C．3，31 D．3，1
【答案】A
【知识点】流程图识读
8．（2020·浙江模拟）已知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（ ）
A．“118”，“15”，“2”，“36”，“88”，“98”
B．“118”，“15”，“36”，“88”，“98”，“2”
C．“2”，“15”，“36”，“118”，“88”，“98”
D．“2”，“15”，“36”，“88”，“98”，“118”
【答案】A
【知识点】排序算法及程序实现
9．（2020·浙江模拟）某对分查找算法的VB程序如下：
c=0: i=1: j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then
f= True
Else If key>d(m) Then
j=m-1
Else
i=m+1
End If
Loop
数组元素d(1)到d(8)的值依次为“97，79，68，48，35，23，18，10”，若运行该程序段后，c的值为2，则文本框Text1中输入的值是（ ）
A．68或18 B．68或23 C．79或23 D．79或18
【答案】A
【知识点】查找算法及程序实现
10．（2020·浙江模拟）编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。
Private Sub Command1_Click()
Dim s As string
Dim n As Integer, w As Integer
s=Text1.Text
For i=1 To 3
n=Len(s):w=1
For j=2 To n
If ________ Then w=j Else Exit For
Next j
s=Mid(s,1,w-1)+Mid(s, w+l, n-w)
Next i
Text2.Text=s
End Sub
画线处的正确代码为（ ）
A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))
B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))
C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))
D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))
【答案】C
【知识点】枚举算法及程序实现；常用标准函数
11．（2020·浙江模拟）小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1),a(2),a(3),……,a(n)中。他编写的VB程序段如下：
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And tempj=j-1
Loop
End If
要使程序实现上述功能，则方框①②中的语句分别是（ ）
A．a(j+1)=a(j)a(j+1)=temp B．a(j)=a(j-1)a(j+1)=temp
C．a(j+1)=a(j)a(j)=temp D．a(j)=a(j-1)a(j)=temp
【答案】A
【知识点】常见数据类型、数组；排序算法及程序实现
二、操作题
12．（2020·浙江模拟）某同学收集了浙江省2017年第一季度消费者信心指数的统计数据，并使用Excel软件进行数据处理，如下图表格所示。
请回答下列问题：
（1）要计算各地就业信心指数与全省的差距，可先在F2单元格中输入公式，再用自动填充功能完成区域F3:F12的计算，则F2单元格中的公式是 （提示：各地就业信心指数与省差距=各城市就业信心指数-全省就业信心指数），若将C2单元格的小数位数设置为1位，则F2单元格内的数值会 （填变大/不变/变小）。
（2）若要制作一张图表来反映各城市的消费者信心总指数情况，则应选择的数据区域是 。
（3）将区域A1:F12的数据复制到新工作表，在新工作表中对“收入信心指数”和“消费意愿指数”进行筛选操作，筛选设置均如下图所示，则按此设置给指出的城市为 （填城市名称）。
【答案】（1）=C2-C$13（或=C2-$C$13）；不变
（2）A1：B12
（3）湖州、台州、丽水
【知识点】表格数据的处理与计算
13．（2020·浙江模拟）小张制作主题为“端午节”的多媒体作品。他使用PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，当前状态下，下列说法正确的是 （多选，填字母：A .“端午情”图层不能直接添加滤镜/B .“菖蒲”图层的各图层效果均可见/C .“粽子”图层不能直接添加图层样式D .“背景”图层可以直接删除）。
（2）如图b所示，“爱心”图层的补间动画持续时间是 秒（保留整数），该动画类型是 （填：形状补间/动画补间）。
（3）测试影片时，发现动画播放过程中背景图突然消失，现在要求背景图一直出现在舞台上，请写出正确的操作方法 。
（4）测试影片时，单击“按钮”图层最后一帧的“退出”按钮，实现跳转到“片尾”场景的第1帧并停止播放动画，则该按钮的动作脚本是 。
【答案】（1）ACD
（2）4；形状补间
（3）选中“背景”图层第70帧执行“清除关键”或选中“背景”图层第1帧“复制帧”，再选中第70帧“粘贴帧”
（4）on(release){gotoAndstop("片尾",1);}或on(press){gotoAndStop("片尾",1);}
【知识点】图层及图层的基本操作；动画的类型；动画的实现；常用影片控制函数的应用
14．（2020·浙江模拟）数据的有损压缩：对多媒体数据进行有损压缩时，以少量数据丢失作为代价的，比如对某8 bit量化缩为6 bit量化，其算法可简单表示为：逐一删除各个字节的后2 bit，将删除后的6 bit数据首尾相连，然后重新按照8 bit一组构建字节，以十六进制显示。
例如，压缩前的原始数据为：
11111100 010111010 10110000可表示为十六进制：FC 5A B0
删除每字节的后2 bit：
111111 00 010110
10 101100 00
首尾相连构建新的数据：
11 11110101 10101100表示为十六进制：…F5 AC
自此，原数据进行了有损压缩。程序运行界面如下所示，
实现上述算法的VB程序如下，但程序中加框处有误，请改正。
Dim a(1 To 100) As Integer
Const code="0123456789ABCDEF"
Const n=100
Private Sub Form_Load() '以随机数模拟读取原始数据
s=""
Randomize
For i=1 To n
a(i)=Int (Rnd()*16)
Text1.Text=Text1.Text+ '①
Next i
End sub
Private Sub Command1_Click()
For i=1 To n
t=t+HtoB(a(i))
Next i
For j=1 To n* 4 Step 8 '每8位一组每8位一组，取前6个字符
s=s+Mid(t, j, 6)
Next j
For i=1 To 4 *(n-1) Step 4 '每4位一组转为十六进制显示
Text2.Text= Text2.Text +BtoH (Mid(s, 1, 4))
Next i
End sub
Function HtoB (x As Integer) As String '十六进十六进制转为二进制函数
t=""
m=0
Do While '②
r=x Mod 2
m=m+1
t= Trim(r)+t 'trim()用于删除前导空格
x=x\2
Loop
HtoB=Mid("0000", 1, 4-m)+t
End Function
Function BtoH (y As String) As String '二进制转为十六进制函数
t1=Val(Mid(y, 4, 1))
t2=Val(Mid(y, 3, 1))
t3=Val(Mid(y, 2, 1))
t4=Val(Mid(y, 1, 1))
s=t1+t2*+t3*4+t4*8
BtoH= Mid(code,s+1,1)
End Function
（1）①处加框代码应改为 。
（2）②处加框代码应改为 。
【答案】（1）Mid(code,a(i)+1,1)
（2）x>0或x< >0
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
15．（2020·浙江模拟）物品装袋问题。现有n物品（不超过20个），及一个能装体积不超过y的袋子，分别给出各物品的体积及价值，求装入袋子里的物品价值总和的最大值。请编写VB程序，实现如下功能：在文本框Text1中输入袋子的体积，单击“就算”按钮Command1，在文本框Text2中输出装如袋子里的物品价值总和的最大值，运行效果如图所示。
算法设计：为了使装入袋子的价值总和最大，首先应该把单位价值（该物品的价值÷体积）最大的物品全部放入袋子（如果袋子当前剩余的容量不小于该物品的体积），然后再放单位价值第二的物品，如此往复。当袋子剩余的容量装不下一个完整的物品时，可以将这个物品的部分（若干个单位体积）装入袋子，直到袋子装满。实现上述功能的VB程序如下，请回答下列问题：
物品编号 体积 价值
1 26 19
2 7 14
3 22 11
4 10 22
（1）根据题意与算法描述，现有4个物品，其对应的体积和价值如表所示，若袋子的体积为30，则装入袋子里的物品最大价值为 （四舍五入保留1位小数）。
（2）请在画线处填入合适的代码。
Dim v(1 To 20)As Integer
'依次存储每个物品的体积
Dim w(1 To 20)As Integer
'依次存储每个物品的价
Dim pw(1 To 20)As Double
'依次存储每个物品的单位价值
Dim n As Integer '存储物品的总个数
Private Sub Form_Load()
'初始化操作，并将每个物品的体积和价值依次显示在列表框List1中（代码略）
'将物品的个数存入变量n中
'将每个物品的体积依次存入数组v(1)到v(n)中
'将每个物品的价值依次存入数组w(1)到w(n)中
End Sub
Sub sort()
'根据每个物品的单位价值进行降序排序
For i=1 To n-1
k=i
For j=i+1 To n
If Then k=j
Next j
If k < >i Then
t=v(i): v(i)=v(k): v(k)=t
t=w(i): w(i)=w(k): w(k)=t
p=pw(i): pw(i)=pw(k): pw(k)=p
End If
Next i
End
sub
Private
Sub Command1_Click()
Dim i As Integer, k As Integer, t As
Integer
Dim p as Double
Dim bw As Integer
Dim tot As Double
bw= Val(Text1.Text)
For i=1 To n
pw(i)=w(i)/v(i)
Next i
For i=1 To n
If bw＞=v(i) Then
tot=tot+w(i)
bw=bw-v(i)
Else
Exit for
End If
Next i
Text2.Text=Str(tot)
End
Sub
【答案】（1）45.5
（2）pw(k)【知识点】排序算法及程序实现；循环结构语句及程序实现
1 / 1