资源简介

浙江省湖州市2020-2021学年高二下学期信息技术期末调研测试卷
1．（2021高二下·湖州期末）下列有关信息和信息技术的说法，正确的是（　　）
A．计算机中存储的数据是信息
B．广播、电视都是常见的信息表达方式
C．可以利用信息技术把信息从一种形态转换为另一种形态
D．信息技术是伴随着计算机和互联网技术的发展而诞生的
【答案】C
【知识点】信息及其特征；信息技术的发展历史；信息表达方式与表达技术
2．（2021高二下·湖州期末）下列有关网页和浏览器的说法，正确的是（　　）
A．网页中的图像不能设置超链接
B．HTTP协议用于浏览器与Web服务器之间的信息传输
C．网页必须同时具备文本、图形图像和超链接这三种基本元素
D．在IE浏览器中，使用“添加到收藏夹”功能可以保存正在浏览的网页内容
【答案】B
【知识点】网络协议；浏览器；网页组成元素
3．（2021高二下·湖州期末）使用Access软件设计一个数据表，存储如图所示的学生消费记录数据。
序号 学籍号 姓名 金额 消费窗口 日期 是否住校
1 HZ20201121 沈宵阳 ￥11.50 9 2021/5/17 是
2 HZ201801 13 王加娜 ￥9.50 11 2021/5/17 否
3 HZ20200603 张颢琎 ￥12.00 3 2021/5/18 否
… … … … … … …
下列表结构设计合理的是（　　）
A． B．
C． D．
【答案】A
【知识点】数据表的创建
4．（2021高二下·湖州期末）使用UltraEdit软件观察字符“2020，武汉加油！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码表示的ASCII码字符共有6个
B．字符“!”的十六进制内码为A1
C．字符“3”的内码用二进制表示是“00110011”
D．存储该段字符需要14个字节
【答案】C
【知识点】进制及数制转换；字符编码
5．（2021高二下·湖州期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．当前状态下执行“删除”操作后，音频总时长减少3秒
B．当前状态下执行“剪裁”操作后，音频总时长变为3秒
C．当前状态下执行“静音”操作后，音频总时长减少3秒
D．当前状态下执行“插入静音”操作后（时长为3秒），音频总时长增加3秒
【答案】D
【知识点】声音素材的基本处理
6．（2021高二下·湖州期末）将一幅未经压缩的1024×768 像素、256 级灰度的BMP图片，另存为512×384像素、黑白的BMP图片，转换前后两个文件的存储容量比为（　　）
A．128:1 B．32:1 C．16:1 D．4:1
【答案】B
【知识点】声音、图像、视频编码
7．（2021高二下·湖州期末）下列选项中，表达式的值与其他三项不同的是（　　）
A．Abs(Int(-1.5)) B．5 Mod 2
C．Int(Rnd + 1) D．Val(Mid("2021", 4, 1))
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021高二下·湖州期末）某算法的部分流程图如图所示。
执行这部分流程，若输入n的值为22，则输出的t的值为（　　）
A．"1101" B．"1011" C．"10110" D．"01101"
【答案】C
【知识点】流程图识读
9．（2021高二下·湖州期末）有如下VB 程序代码段：
s1 = "51577": s2 = "75929"
i = 1: j = 1: k = 0
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Abs(Val(c1) - Val(c2)) < 4 Then
i = i + 1
Else
k = k + 1
End If
j = j + 1
Loop
执行该程序段后，变量k的值是（　　）
A．2 B．3 C．4 D．5
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021高二下·湖州期末）下列VB程序段功能为：数组元素a(1)至a(20)中存储的是0-9之间的随机整数，查找在数组a中连续出现数字b的数组元素个数和起始位置，若有多个相同元素个数，则记录最后出现的起始位置。
b = 5
k = 0: imax = 0
For i = 1 To 20
If a(i) = b Then
k = k + 1
If ⑴ Then
imax = k
⑵
End If
Else
k = 0
End If
Next i
Label1.Caption = "最大长度:" +Str(imax) +"，起始位置:" + Str(st)
划线处可选代码为：
①k > imax ② k >= imax ③ st = i - imax + 1 ④ st = i
下列选项中，代码顺序正确的是（　　）
A．①③ B．①④ C．②③ D．②④
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高二下·湖州期末）有如下VB程序代码段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 10
Next i
For i = 1 To 3 Step 2
For j = 6 To i + 2 Step -1
If a(j) > a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
执行上述程序段后，下列选项中，a(1)到a(6)各元素值可能的是（　　）
A．14 18 12 13 11 9 B．11 12 13 16 17 18
C．14 13 15 15 18 16 D．17 18 15 16 14 13
【答案】D
【知识点】排序算法及程序实现
12．（2021高二下·湖州期末）有如下VB 程序代码段：
i = 1: j = 10: c = 0
k = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= k Then
j = m - 1
Else
i = m + 1
End If
Loop
数组元素a(1)到a(10)的值依次为“1,4,10,21,21,26,27,29,30,36”，在文本框Text1中输入“21”，执行该程序段后，下列说法正确的是（　　）
A．变量i的值是3 B．变量j的值是4
C．变量c的值是4 D．变量m的值是3
【答案】C
【知识点】查找算法及程序实现
13．（2021高二下·湖州期末）小陈收集了2020年我国部分省份高等教育在校学生数统计的相关数据，并使用Excel软件对数据进行处理，如图a所示。
图a
请回答下列问题:
（1）小陈已正确计算了华东和华南地区的“本科区域占比”。现要计算华北地区的“本科区域占比”，可在F13 单元格中输入公式　 　，再利用自动填充功能完成区域F14:F17的计算。
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是　 　。
图b
（3）小陈对工作表中的数据进行进一步处理，结合图a和图b，下列说法正确的有 (多选，填字母)。
A．修改D15单元格数据为651052，图b所示图表会随之改变
B．在“本科”列前插入一列，“本科区域占比”列的数值不会发生改变
C．以“区域”为华东、“本科本省占比”为最大1项进行筛选，筛选出的省份是上海
D．若要对华东地区的省份以“本科”为关键字升序排序，可选择排序的区域是B2:F8
【答案】（1）= C13/SUM(C$13: C$17) 或 = C13/SUM($C$13: $C$17)
（2）B2:D2, B9:D12
（3）B；D
【知识点】表格数据的处理与计算
14．（2021高二下·湖州期末）小陈制作主题为“故乡”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
图a
（1）处理图像的部分界面如图a 所示。下列说法正确的有 （多选，填字母）。
A．可对“山脉”图层直接设置滤镜效果
B．可使用画笔工具修改“背景”图层中的图像内容
C．可复制“蒲公英”图层的图层样式并粘贴到“云”图层
D．将作品存储为JPEG 格式文件，该JPEG 格式文件保留原作品的图层信息
（2）制作动画作品的部分界面如第14 题图b 所示。“音乐”图层中声音的同步属性为“数据流”，为让音乐和“文字2”图层的补间动画同时结束，可在“音乐”图层第　 　帧执　 　行操作。
图b
（3）“按钮”图层最后一帧设置了动作脚本“stop(　　)；”。测试影片时，“退出”按钮一开始就出现在舞台上，若要“退出”按钮仅最后一帧出现，在不影响其他动画效果的前提下，可行的操作有 （多选，填字母）。
A．选中“按钮”图层第1帧，执行“删除帧”操作
B．选中“按钮”图层第1帧，执行“清除关键帧”操作
C．选中“按钮”图层第1至59帧，执行“删除帧”操作
D．选中“按钮”图层第1帧，删除其舞台上“退出”按钮实例
E．将“按钮”图层第1帧移动至第60帧，并在第60帧添加动作脚本“stop(　　)；”
（4）放映影片时，单击当前场景中的“退出”按钮可关闭放映文件，则“退出”按钮上应添加的动作脚本是　 　。
【答案】（1）B；C
（2）41；插入空白关键帧 或 插入关键帧
（3）D；E
（4）on(press){ fscommand(“quit”)；}或其他等价答案
【知识点】图片加工常用工具的使用；图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2021高二下·湖州期末）某夏令营按两门考试科目总分从高分到低分依次录取学生。如果录取学生的最后一名出现有总分并列的情况，则并列的学生全部录取。编写VB程序实现以上功能，程序运行时在列表框List1中显示全部学生的信息，在文本框Text1中输入计划招生人数，点击“录取”按钮Command1后，在列表框List2中输出录取的学生信息，并在标签Label1上显示最终录取的人数。程序运行界面如题图所示。
请回答下列问题：
（1）如图所示，按钮Command1 上显示的“录取”是该按钮对象的　 　（单选，填字母：A .对象名/B .属性名/C .方法名/D .属性值）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const num = 15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num) As Integer
Private Sub Form_Load(　　)
'读取num个学生的姓名、科目1、科目2的成绩，分别存储到数组xm、km1、km2。
'在列表框List1中输出所有学生的姓名与成绩，代码略。
End Sub
Private Sub Command1_Click()
Dim rs As
Integer, count As Integer, flag As Boolean
Dim i As
Integer, j As Integer, t As Integer, tmp As String
rs =
Val(Text1.Text)
List2.AddItem
" 姓名科目1 科目2"
count = 0:
i = 1
　 　
Do While i
<= num And flag
For j
= num - 1 To i Step -1
If
　 　 Then
tmp = xm(j): xm(j) = xm(j + 1): xm(j + 1) = tmp
t = km1(j): km1(j) = km1(j + 1): km1(j + 1) = t
t = km2(j): km2(j) = km2(j + 1): km2(j + 1) = t
End
If
Next j
flag =
False
If Or km1(i) + km2(i) = km1(i - 1) + km2(i - 1) Then
count = i
flag = True
End If
i = i + 1
Loop
For i = 1 To count
List2.AddItem xm(i) + " " + Str(km1(i)) + " " + Str(km2(i))
Next i
Label1.Caption = "共录取学生" + 　 　 + "人"
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）D
（2）flag = True；km1(j) + km2(j) < km1(j + 1) + km2(j + 1) 或把“<”改为“<=”；Str(count) 或 Str(i - 1)
（3）i <= rs 或i < rs + 1 或count【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2021高二下·湖州期末）有一个木棒游戏，探究在一堆木棒中取4根木棒组成一个正三角形的取法数量（三角形其中一边由两根木棒组成，长度相同的不同木棒算不同的方案）。如果取出长度为a,b,c,d（a <= b < c = d）的四根木棒能构成正三角形，那么a + b = c = d。算法如下：
⑴枚举两根短的木棒a和b；
⑵当a <> b 时，组合的数量= 长度为a 的木棒根数×长度为b 的木棒根数×长度为(a+b)的木棒取两根的取法数量；
⑶当a = b 时，组合的数量= 长度为a 的木棒取两根的取法数量×长度为(a+b)的木棒取两根的取法数量。
如木棒长度分别为“1,1,2,2,3,3”，当a=1，b=2 时，则c=d= 3，该情况的组合数量=（长度为1 的根数）*（长度为2 的根数）*（长度为3 的根数取两根的取法数量）= 2 *2 * 1 = 4。长度为3 的根数取两根的取法数量，即
程序运行界面如图所示，在文本框Text1输入一堆木棒的长度，以逗号间隔，点击“计算”按钮Command1后在标签Label1显示方案总数。
请回答下列问题：
（1）在文本框Text1中输入“2,3,3,6,6,6,7,”，能构成正三角形的取法数量是　 　(填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click(　　)
Dim tmax
As Integer, ans As Integer, k As Integer
Dim i As
Integer, a As Integer, b As Integer, tmp As Integer
Dim c As
String, s As String
Dim t(20)
As Integer
'储存相同长度木棒的数量，如t(5)的值是长度为5的木棒的数量
s =
Text1.Text
tmp = 0: k
= 0
ans = 0:
tmax = 0
For i = 1
To Len(s)
c =
Mid(s, i, 1)
If c =
"," Then
k
= k + 1
t(tmp)
= 　 　
If
tmp > tmax Then tmax = tmp
tmp
= 0
Else
tmp
= tmp * 10 + Val(c)
End If
Next i
For a = 1
To tmax \ 2 '枚举两根短的木棒
For b
= a To tmax
If
a + b > tmax Or t(a) * t(b) * t(a + b) = 0 Then Exit For
If
　 　 Then
ans = ans + js(t(a), 2) * js(t(a + b), 2)
Else
ans = ans + js(t(a), 1) * 　 　 * js(t(a + b), 2)
End
If
Next b
Next a
Label1.Caption
= "共有" + Str(ans) + "种方案"
End Sub
Function js(x As Integer, y As Integer) As Integer
'计算在x个对象中取y个对象的组合数量，即
'代码略。
End Function
【答案】（1）3
（2）t(tmp) + 1；a = b；js(t(b), 1) 或 t(b)
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省湖州市2020-2021学年高二下学期信息技术期末调研测试卷
1．（2021高二下·湖州期末）下列有关信息和信息技术的说法，正确的是（　　）
A．计算机中存储的数据是信息
B．广播、电视都是常见的信息表达方式
C．可以利用信息技术把信息从一种形态转换为另一种形态
D．信息技术是伴随着计算机和互联网技术的发展而诞生的
2．（2021高二下·湖州期末）下列有关网页和浏览器的说法，正确的是（　　）
A．网页中的图像不能设置超链接
B．HTTP协议用于浏览器与Web服务器之间的信息传输
C．网页必须同时具备文本、图形图像和超链接这三种基本元素
D．在IE浏览器中，使用“添加到收藏夹”功能可以保存正在浏览的网页内容
3．（2021高二下·湖州期末）使用Access软件设计一个数据表，存储如图所示的学生消费记录数据。
序号 学籍号 姓名 金额 消费窗口 日期 是否住校
1 HZ20201121 沈宵阳 ￥11.50 9 2021/5/17 是
2 HZ201801 13 王加娜 ￥9.50 11 2021/5/17 否
3 HZ20200603 张颢琎 ￥12.00 3 2021/5/18 否
… … … … … … …
下列表结构设计合理的是（　　）
A． B．
C． D．
4．（2021高二下·湖州期末）使用UltraEdit软件观察字符“2020，武汉加油！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码表示的ASCII码字符共有6个
B．字符“!”的十六进制内码为A1
C．字符“3”的内码用二进制表示是“00110011”
D．存储该段字符需要14个字节
5．（2021高二下·湖州期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．当前状态下执行“删除”操作后，音频总时长减少3秒
B．当前状态下执行“剪裁”操作后，音频总时长变为3秒
C．当前状态下执行“静音”操作后，音频总时长减少3秒
D．当前状态下执行“插入静音”操作后（时长为3秒），音频总时长增加3秒
6．（2021高二下·湖州期末）将一幅未经压缩的1024×768 像素、256 级灰度的BMP图片，另存为512×384像素、黑白的BMP图片，转换前后两个文件的存储容量比为（　　）
A．128:1 B．32:1 C．16:1 D．4:1
7．（2021高二下·湖州期末）下列选项中，表达式的值与其他三项不同的是（　　）
A．Abs(Int(-1.5)) B．5 Mod 2
C．Int(Rnd + 1) D．Val(Mid("2021", 4, 1))
8．（2021高二下·湖州期末）某算法的部分流程图如图所示。
执行这部分流程，若输入n的值为22，则输出的t的值为（　　）
A．"1101" B．"1011" C．"10110" D．"01101"
9．（2021高二下·湖州期末）有如下VB 程序代码段：
s1 = "51577": s2 = "75929"
i = 1: j = 1: k = 0
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Abs(Val(c1) - Val(c2)) < 4 Then
i = i + 1
Else
k = k + 1
End If
j = j + 1
Loop
执行该程序段后，变量k的值是（　　）
A．2 B．3 C．4 D．5
10．（2021高二下·湖州期末）下列VB程序段功能为：数组元素a(1)至a(20)中存储的是0-9之间的随机整数，查找在数组a中连续出现数字b的数组元素个数和起始位置，若有多个相同元素个数，则记录最后出现的起始位置。
b = 5
k = 0: imax = 0
For i = 1 To 20
If a(i) = b Then
k = k + 1
If ⑴ Then
imax = k
⑵
End If
Else
k = 0
End If
Next i
Label1.Caption = "最大长度:" +Str(imax) +"，起始位置:" + Str(st)
划线处可选代码为：
①k > imax ② k >= imax ③ st = i - imax + 1 ④ st = i
下列选项中，代码顺序正确的是（　　）
A．①③ B．①④ C．②③ D．②④
11．（2021高二下·湖州期末）有如下VB程序代码段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 10
Next i
For i = 1 To 3 Step 2
For j = 6 To i + 2 Step -1
If a(j) > a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
执行上述程序段后，下列选项中，a(1)到a(6)各元素值可能的是（　　）
A．14 18 12 13 11 9 B．11 12 13 16 17 18
C．14 13 15 15 18 16 D．17 18 15 16 14 13
12．（2021高二下·湖州期末）有如下VB 程序代码段：
i = 1: j = 10: c = 0
k = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= k Then
j = m - 1
Else
i = m + 1
End If
Loop
数组元素a(1)到a(10)的值依次为“1,4,10,21,21,26,27,29,30,36”，在文本框Text1中输入“21”，执行该程序段后，下列说法正确的是（　　）
A．变量i的值是3 B．变量j的值是4
C．变量c的值是4 D．变量m的值是3
13．（2021高二下·湖州期末）小陈收集了2020年我国部分省份高等教育在校学生数统计的相关数据，并使用Excel软件对数据进行处理，如图a所示。
图a
请回答下列问题:
（1）小陈已正确计算了华东和华南地区的“本科区域占比”。现要计算华北地区的“本科区域占比”，可在F13 单元格中输入公式　 　，再利用自动填充功能完成区域F14:F17的计算。
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是　 　。
图b
（3）小陈对工作表中的数据进行进一步处理，结合图a和图b，下列说法正确的有 (多选，填字母)。
A．修改D15单元格数据为651052，图b所示图表会随之改变
B．在“本科”列前插入一列，“本科区域占比”列的数值不会发生改变
C．以“区域”为华东、“本科本省占比”为最大1项进行筛选，筛选出的省份是上海
D．若要对华东地区的省份以“本科”为关键字升序排序，可选择排序的区域是B2:F8
14．（2021高二下·湖州期末）小陈制作主题为“故乡”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
图a
（1）处理图像的部分界面如图a 所示。下列说法正确的有 （多选，填字母）。
A．可对“山脉”图层直接设置滤镜效果
B．可使用画笔工具修改“背景”图层中的图像内容
C．可复制“蒲公英”图层的图层样式并粘贴到“云”图层
D．将作品存储为JPEG 格式文件，该JPEG 格式文件保留原作品的图层信息
（2）制作动画作品的部分界面如第14 题图b 所示。“音乐”图层中声音的同步属性为“数据流”，为让音乐和“文字2”图层的补间动画同时结束，可在“音乐”图层第　 　帧执　 　行操作。
图b
（3）“按钮”图层最后一帧设置了动作脚本“stop(　　)；”。测试影片时，“退出”按钮一开始就出现在舞台上，若要“退出”按钮仅最后一帧出现，在不影响其他动画效果的前提下，可行的操作有 （多选，填字母）。
A．选中“按钮”图层第1帧，执行“删除帧”操作
B．选中“按钮”图层第1帧，执行“清除关键帧”操作
C．选中“按钮”图层第1至59帧，执行“删除帧”操作
D．选中“按钮”图层第1帧，删除其舞台上“退出”按钮实例
E．将“按钮”图层第1帧移动至第60帧，并在第60帧添加动作脚本“stop(　　)；”
（4）放映影片时，单击当前场景中的“退出”按钮可关闭放映文件，则“退出”按钮上应添加的动作脚本是　 　。
15．（2021高二下·湖州期末）某夏令营按两门考试科目总分从高分到低分依次录取学生。如果录取学生的最后一名出现有总分并列的情况，则并列的学生全部录取。编写VB程序实现以上功能，程序运行时在列表框List1中显示全部学生的信息，在文本框Text1中输入计划招生人数，点击“录取”按钮Command1后，在列表框List2中输出录取的学生信息，并在标签Label1上显示最终录取的人数。程序运行界面如题图所示。
请回答下列问题：
（1）如图所示，按钮Command1 上显示的“录取”是该按钮对象的　 　（单选，填字母：A .对象名/B .属性名/C .方法名/D .属性值）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const num = 15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num) As Integer
Private Sub Form_Load(　　)
'读取num个学生的姓名、科目1、科目2的成绩，分别存储到数组xm、km1、km2。
'在列表框List1中输出所有学生的姓名与成绩，代码略。
End Sub
Private Sub Command1_Click()
Dim rs As
Integer, count As Integer, flag As Boolean
Dim i As
Integer, j As Integer, t As Integer, tmp As String
rs =
Val(Text1.Text)
List2.AddItem
" 姓名科目1 科目2"
count = 0:
i = 1
　 　
Do While i
<= num And flag
For j
= num - 1 To i Step -1
If
　 　 Then
tmp = xm(j): xm(j) = xm(j + 1): xm(j + 1) = tmp
t = km1(j): km1(j) = km1(j + 1): km1(j + 1) = t
t = km2(j): km2(j) = km2(j + 1): km2(j + 1) = t
End
If
Next j
flag =
False
If Or km1(i) + km2(i) = km1(i - 1) + km2(i - 1) Then
count = i
flag = True
End If
i = i + 1
Loop
For i = 1 To count
List2.AddItem xm(i) + " " + Str(km1(i)) + " " + Str(km2(i))
Next i
Label1.Caption = "共录取学生" + 　 　 + "人"
End Sub
（3）程序中加框处代码有错，请改正。
16．（2021高二下·湖州期末）有一个木棒游戏，探究在一堆木棒中取4根木棒组成一个正三角形的取法数量（三角形其中一边由两根木棒组成，长度相同的不同木棒算不同的方案）。如果取出长度为a,b,c,d（a <= b < c = d）的四根木棒能构成正三角形，那么a + b = c = d。算法如下：
⑴枚举两根短的木棒a和b；
⑵当a <> b 时，组合的数量= 长度为a 的木棒根数×长度为b 的木棒根数×长度为(a+b)的木棒取两根的取法数量；
⑶当a = b 时，组合的数量= 长度为a 的木棒取两根的取法数量×长度为(a+b)的木棒取两根的取法数量。
如木棒长度分别为“1,1,2,2,3,3”，当a=1，b=2 时，则c=d= 3，该情况的组合数量=（长度为1 的根数）*（长度为2 的根数）*（长度为3 的根数取两根的取法数量）= 2 *2 * 1 = 4。长度为3 的根数取两根的取法数量，即
程序运行界面如图所示，在文本框Text1输入一堆木棒的长度，以逗号间隔，点击“计算”按钮Command1后在标签Label1显示方案总数。
请回答下列问题：
（1）在文本框Text1中输入“2,3,3,6,6,6,7,”，能构成正三角形的取法数量是　 　(填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click(　　)
Dim tmax
As Integer, ans As Integer, k As Integer
Dim i As
Integer, a As Integer, b As Integer, tmp As Integer
Dim c As
String, s As String
Dim t(20)
As Integer
'储存相同长度木棒的数量，如t(5)的值是长度为5的木棒的数量
s =
Text1.Text
tmp = 0: k
= 0
ans = 0:
tmax = 0
For i = 1
To Len(s)
c =
Mid(s, i, 1)
If c =
"," Then
k
= k + 1
t(tmp)
= 　 　
If
tmp > tmax Then tmax = tmp
tmp
= 0
Else
tmp
= tmp * 10 + Val(c)
End If
Next i
For a = 1
To tmax \ 2 '枚举两根短的木棒
For b
= a To tmax
If
a + b > tmax Or t(a) * t(b) * t(a + b) = 0 Then Exit For
If
　 　 Then
ans = ans + js(t(a), 2) * js(t(a + b), 2)
Else
ans = ans + js(t(a), 1) * 　 　 * js(t(a + b), 2)
End
If
Next b
Next a
Label1.Caption
= "共有" + Str(ans) + "种方案"
End Sub
Function js(x As Integer, y As Integer) As Integer
'计算在x个对象中取y个对象的组合数量，即
'代码略。
End Function
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息技术的发展历史；信息表达方式与表达技术
2．【答案】B
【知识点】网络协议；浏览器；网页组成元素
3．【答案】A
【知识点】数据表的创建
4．【答案】C
【知识点】进制及数制转换；字符编码
5．【答案】D
【知识点】声音素材的基本处理
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】D
【知识点】排序算法及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）= C13/SUM(C$13: C$17) 或 = C13/SUM($C$13: $C$17)
（2）B2:D2, B9:D12
（3）B；D
【知识点】表格数据的处理与计算
14．【答案】（1）B；C
（2）41；插入空白关键帧 或 插入关键帧
（3）D；E
（4）on(press){ fscommand(“quit”)；}或其他等价答案
【知识点】图片加工常用工具的使用；图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）D
（2）flag = True；km1(j) + km2(j) < km1(j + 1) + km2(j + 1) 或把“<”改为“<=”；Str(count) 或 Str(i - 1)
（3）i <= rs 或i < rs + 1 或count【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）3
（2）t(tmp) + 1；a = b；js(t(b), 1) 或 t(b)
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑