星形线面积（星形线）

你们好，最近小活发现有诸多的小伙伴们对于星形线面积，星形线这个问题都颇为感兴趣的，今天小活为大家梳理了下，一起往下看看吧。

1、首先启动vb6.0，执行文件-新建命令，在弹出的新建工程对话框中选择标准exe文件，点击打开按钮。

2、进入窗体窗口，调整窗口的大小，修改窗体的caption属性值为“星形线”，修改borderstyle属性值为“5-fixed”。

3、双击工具箱里的picturebox控件，在窗体上创建一个picturebox1控件，调整其大小，使其布局更加美观。

4、在工具箱里双击command控件两次，在picturebox1上创建command1、command2控件。

5、分别修改command1、command2的caption属性值为“绘图”，“退出”，调整他们的位置。

6、双击command1按钮进入其代码区域，选择对象为command1，过程选择click事件。

7、接着输入代码，首先要绘制平面二维坐标系，输入代码如下：

8、Picture1.Scale (-10, 10)-(10, -10)

9、Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

10、Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)

11、Picture1.Line (0, 10)-(-0.125, 9.5), RGB(0, 0, 255)

12、Picture1.Line (0, 10)-(0.125, 9.5), RGB(0, 0, 255)

13、Picture1.Line (10, 0)-(9.5, 0.125), RGB(0, 0, 255)

14、Picture1.Line (10, 0)-(9.5, -0.125), RGB(0, 0, 255)

15、并进行调试运行。

16、接下来绘制图案，输入代码：

17、For t = 0 To 360 Step 0.01

18、x = 5 * (Cos(t * 360)) ^ 3

19、y = 5 * (Sin(t * 360)) ^ 3

20、Picture1.PSet (x, y)

21、Next t

22、并进行运行调试，根据错误提示进行纠正错误。错误的主要原因是漏掉了乘号。

23、继续修改调试，点击工具栏里的运行按钮进行调整，直至无误为止，查看效果。接着在command2代码区域输入end。

24、执行文件-生成工程exe文件，将文件生成可执行文件，这样就可以跨平台运行操作了。

25、执行文件-工程另存为命令，在弹出的对话框中依次保存窗体文件和工程文件即可。

以上就是星形线这篇文章的一些介绍，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！