VB中二叉树的绘制(国外英文资料).docVIP

VB中二叉树的绘制 版本5.00 VB开始。中形成Form1 AutoRedraw = 1的事实 标题=“Form1” ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic =“Form1” ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3的窗口缺省 VB开始。菜单RightMouseClick 标题= 右键菜单(am)” 可见= 0的假的 VB开始。菜单cmdEnd 标题= 结束(e)” 快捷键= ^啊 结束 VB开始。菜单cmdFresh 标题= 刷新(f)” 快捷F = ^ 结束 结束 结束 属性VB_Name =“Form1 属性VB_GlobalNameSpace = False 属性VB_Creatable = False VB_PredeclaredId = True属性 属性VB_Exposed = False 选项显式 选择基础1 私人潜艇cmdEnd_Click() 结束 终止子 私人潜艇cmdFresh_Click() Form1.Cls 终止子 私人潜艇Form_Load() Form1。标题= 树绘图” Form1。背景色= HFFFFFF Form1。身高= 11925 Form1。宽度= 11535 终止子 私有子formmouseup(按钮为整数，转换为整数，X为单个，Y为单个) “定义阶段,部分数组为动态数组 Constπ为双= 3.141592654”常数π 昏暗的numSca是单一的，NumLJ，长，NumShM，长 “空间大小,循环量级与分支数目 暗淡的xx10是双的，yy10是双的，xx20的是双的，yy20是双的 “最初线条的起点坐标与终点坐标 调暗a，我长，j，长 “循环中使用的计数器与用于暂存以避免冲突的变量 暗淡的斯特拉斯，像弦一样长，strVar1 “存放多进制数各位数字的字符串变量,该串的长度,用于识别坐标的带逗号输入时用的字符串变量strVar1 暗比()为双，Thite()为双，S() 比的值,角度与字符串中的数字组合形成的数S组() 昏暗的Thita双 “存放在过程中会确定好的角度 xx1为Double，yy1为Double，xx2为Double， Yy2 As Double, xx3 As Double, yy3 As Double The coordinate variable for the points used when drawing lines Dim uu As Double, vv As Double The middle variable of the calculation Dim Tur As Boolean Dim Key As a Boolean If the Button = 2 Then PopupMenu RightMouseClick The Else stage of the first part of input parameters: magnitude, branch number, size, number of branch of power: NumShM ^ NumLJ size must be handled with care, otherwise cycles may be too large. You can use the clocks Timer event to replace the process with the optimizer. NumLJ = Abs ( order of magnitude: , system prompt, 4)) If NumLJ 1 Or NumLJ 13 Then I = MsgBox ( error! If you want to redo it, click ok, then click on the left button. system prompt) If I = vbOK Then The Exit Sub does not meet the required input and will end the process End the If End the If NumShM = Abs ( please enter the number of tree branches: , system prompt, 2)) If NumShM 1 Or NumShM 6 Then I = MsgBox ( error! If you want to redo it, click