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