vb绘制正三角形.docVIP

Visual basic 绘制正三角形 分析图形 正三角形边长相等，三角相等，每个角都是60度。 绘制关键 找出正三角形的三个点的坐标解析表达式。 分析方法 用三个顶点的坐标确定三点的位置，用Vb的line命令来绘制三条边就可以解决。 分析坐标 确定一个点A x,y）和边长a 点B的坐标解析表达式 x+1/2*a,y-a*sin 60° 点C的坐标解析表达式 x+a,y 分析绘图要求 要求正三角形的三个顶点都在窗体的可视范围内。 基本绘图命令 在vb程序中，命令的输入格式和自然语言很贴近，将自然语言转换成程序语句即可。在一个命令的输入过程中，不确定的命令方法或属性在程序中有提示，可以根据对英文单词的理解进行选择，完成程序。 清除窗体内的图形。 Form1.cls 确定边长。 Val inputbox 绘制窗体范围的确定。 Form1.scale - 4、绘制边，组成正三角形。 Form1.Line A的坐标-B的坐标 Form1.Line B的坐标-C的坐标 Form1.Line A的坐标-C的坐标 窗体设计 在窗体上绘制一个命令按钮，用于控制图形的绘制，修改它的caption属性为“绘制正三角形”。 编程实现 Private Sub Command1_Click Form1.Cls ‘清除命令 Dim x, y, a As Single a Val InputBox 请输入正三角形的边长 ‘输入边长 x 0 y 0 Form1.Scale -5, -5 - 5, 5 ‘设定窗体的大小 Form1.Line x, y - x + 1 / 2 * a, y - a * Sin 60 * 3.14 / 180 ‘绘制AB边 Form1.Line x + 1 / 2 * a, y - a * Sin 60 * 3.14 / 180 - x + a, y ‘绘制BC边 Form1.Line x + a, y - x, y ‘绘制CA边 End Sub 注意事项 在坐标系中，x代表着距离窗体左边缘的长度，y代表着距离窗体上边缘的长度。 在窗体的坐标系中，要注意绘制的正三角形的大小。 A C B 1/2a Sin60°*a x y 命令按钮 Caption属性