首页 >> 学识问答 >

星形线面积(星形线)

2024-01-11 16:42:08

问题描述:

星形线面积(星形线),快急哭了,求给个正确方向!

最佳答案

推荐答案

2024-01-11 16:42:08

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

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、执行文件-工程另存为命令,在弹出的对话框中依次保存窗体文件和工程文件即可。

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

  免责声明:本答案或内容为用户上传,不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。 如遇侵权请及时联系本站删除。

 
分享:
最新文章