资源简介

浙江省金华市义乌市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

展开更多......

收起↑