二叉树是一种每个节点最多有两个子树的结构。有一种特殊的二叉树称为完全二叉树，其特点是树中的结点按从上至下、从左到右的顺序进行存储，每个根节点连接2个子节点，直至存储完毕。如图a为完全二叉树，而图b则不是完全二叉树。
某学校学生参加模拟商赛活动，所有参赛队员需组成一个模拟公司，该公司组织架构是一个完全二叉树，如图c所示。为了合理分配每位参赛队员在公司组织架构中的位置，公司的组成规则如下：
1）公司的所有成员以能力值确定最终的岗位层次，能力值最高的位于第1层，即任命为董事长，依次向下。
2）每个岗位的下属能力值不超过自己的上司，如开发经理的能力值不能超过技术总监。
3）两个不同的类型的同级岗位之间能力值没有相关性，即产品经理与咨询师属于两个不同类型的同级岗位，没有相关性。如图d所示，数组a（1）～a（6）依次存储了图c中所有岗位对应的员工能力值。
若此时有新队员进入公司组织，在图d所示的完全二叉树中再增加一个值为a（10）=7的新元素构建新二叉树的方法如下：
第一步：判断新节点位置，a（10）应放在节点a（5）下方；
第二步：因a（10）＞a（5），交换a（10）和a（5）的值；a（5）＞a（2），再次交换a（2）和a（5）的值第三步：因a（2）＜a（1），无需交换，新元素已放入正确位置，构建成新二叉树，上移结束。
目前对所有队员进行了三项测试，得到三项成绩之和作为能力值，根据能力值构建如上规则的完全二叉树，再根据二叉树对所有队员进行岗位匹配。程序运行时，读取所有队员三项测试成绩保存在变量s中，将每位员工的姓名和各项测试成绩得分显示在list1中，单击“计算”按钮，对数据进行统计分析，求出每位员工能力值，并由此构造二叉树，结果显示在列表框 List2中，程序运行界面如图e所示。
（1）若在图d中增加两个新队员，能力值分别为a（10）=8，a（11）=6则队员、a（11）=6将被存储在数组元素 中。
（2）实现算法的VB程序如下，请在程序横线处填入合适的代码。
【考点】对象的属性、方法和事件；二叉树的基本操作．
【答案】略
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/4/23 12:26:7组卷：0引用：1难度：0.9
相似题
-
1．运行列表框对象语句：List1．AddItem=“同学们好！“，会显示：同学们好！；
（判断对错）发布：2025/1/2 11:30:1组卷：6引用：6难度：0.9 -
2．小张设计了一个“加减运算练习”VB程序．界面如下图所示．单击“出题”Command1按钮显示两个运算数和运算符号，并计数．在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试．VB程序如下，但加下横线处代码有错，请改正．
Dim n,s As Integer'n为试题计数器，s为得分
Dim a,b As Integer'a,b 为两个运算数
Dim c As String'c为运算符：“+“表示加法，“-“表示减法
Private Sub Form_Load（ ）n=0：
s=0
End Sub
Private Sub Command1_Click（ ）‘出题按钮
Randomize
n=n+1
If n＜11Then
Label1．Caption=“No：“+Str（n）
a=Int（Rnd*100）'a,b为运算数，且要求a不小于b
b=Int（Rnd*100）
If a＞bThen t=a：a=b：b=t'（1）
If Rnd＞0.5Then c=“+“Else b=“-“'（2）
Label5．Caption=Str（a）+c+Str（b）+“=“
Text1．Text=““
Else
Command1．Caption=“完成测试“
End If
End Sub
Private Sub Command2_Click（ ）‘判断按钮
If c=“+“Then
If a+b=Val（Text1．Text） Then s=s+10
Else
If a+b=Val（Text1．Text）Then s=s+10'（3）
End If
Label3．Caption=“得分：“+Str（s）
End Sub.发布：2025/1/2 9:30:2组卷：6引用：2难度：0.9 -
3．某智能农场启用了根据土壤湿度自动控制喷淋装置进行浇水的信息系统，每隔一段时间，系统自动检测土壤湿度，当土壤湿度低于某个阈值时将自动浇水。小李为统计出某段时间内（不超过100个时间单位）系统自动控制浇水的次数和该时间段内前后两次启动自动浇水系统的最大时间间隔单位，小李进行了数据分析，他认为如果某单位时间的土壤湿度比前一单位时间的土壤湿度高并且本单位时间内没有下雨，则认为启用了浇水系统。由此他编写了一个VB程序实现该功能：在文本框Text1中输入某段时间内的湿度值，在文本框Text2中输入该段时间内对应的天气情况，单击命令按钮Command1，在文本框Text3中显示系统自动浇水次数，Text4中显示前后两次自动浇水系统启用的最大时间间隔单位。
（1）在Private Sub Command1_Click（ ）中，Command1、Click分别表示（单选，填字母：A.对象名、属性名/B.对象名、事件名/C.类名、方法名）。
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
发布：2025/1/2 11:0:1组卷：0引用：1难度：0.3
