月亮图案的绘制

启动vb6，进入窗体界面，选择当前窗体拖拽周围小正方形调节窗体的位置和大小，使其适应其大小要求。

选择窗口，在属性面板中修改其borderstyle属性值为0-none，修改caption属性值为月亮。并查看其修改结果。

选择工具箱里picturebox控件，并双击该控件，在窗体上出现该控件，调整其大小和位置，使其布局尽量美观。

在属性面板中选择picture属性点击右边的按钮打开加载图片对话框，在该对话框中找到将实现准备好的图片导入到窗体picturebox中去。

选择工具箱里按钮控件，将其双击在窗体上出现按钮控件，调整两个按钮在窗体的位置及大小，修改commmand1属性值为绘图，修改commmand2属性值为退出。

双击绘图按钮进入代码区域，在代码区域对象选择commmand1，过程选择click，然后在代码主体部分书写代码。

在代码区域首先定义绘图区域，并定义坐标系，绘制出纵横坐标，并且要标有正方向。

接着输入绘图代码，绘图使用pset函数描点，步长值取小一些，这样就可以形成线条。代码如下： For t = -360 To 360 Step 0.001x = Cos(t * 360) + Cos(2 * t * 360)y = Sin(t * 360) * 2 + Sin(t * 360) * 2Picture1.PSet (x, y) Next t

输入代码完成后点击运行按钮进行编译调试，如果在调试过程中出现错误系统会 给出提示内容，本提示内容为缺少括号。添加有括号后再次点击运行调试直至无误为至。

执行文件-保存工程命令，找到一个合适的位置，保存类型为vbp，名称为月亮然后进行保存，执行文件-生成月亮exe，把该文件生成可执行文件。