如何编程绘制椭圆

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

进入窗体界面调整窗体的大小，修改form1的caption属性值为“椭圆”，修改其borderstyle属性值为'4-fixed',修改其startupposition为屏幕中心。

双击工具箱里picturebox控件，在窗体上创建一个picturebox1控件，调整其大小使其充满整个窗体。

双击工具箱里command控件两次，在picturebox1上创建两个按钮控件，分别为command1和command2，修改command1的caption属性值为“绘图”，修改command2的caption属性值为“退出”。

接下来编写代码，绘制平面坐标系，双击绘图按钮进入代码区域，对象选择command1，过程选择click事件。

修改picturebox1的名称属性值为“pic1”在代码区域输入代码：Pic1.cale (-200, 200)-(200, -200)Pic1.Line (-195, 0)-(195, 0): Pic1.Line (0, 195)-(0, -195)Pic1.Line (195, 0)-(190, 3): Pic1.Line (195, 0)-(190, -3)Pic1.Line (0, 195)-(-3, 190): Pic1.Line (0, 195)-(3, 190)Pic1.CurrentX = 192: Pic1.CurrentY = 10: Pic1.Print 'x'Pic1.CurrentX = 6: Pic1.CurrentY = 195: Pic1.Print 'y'接着点击运行代码进行调试，直至无误出现正确的坐标系为止。

接着继续输入代码，编写绘制椭圆，代码如下：j = 50  For k = 0 T 2 * 3.1415926 Step 0.001        X = i * Cos(k) '+ j * Sin(k)          Y = j * Sin(k) '+ j * Cos(k)        Pic1.PSet (X, Y)    Next点击运行按钮进行不断调试，直至能够出现正确的结果为止。

在调试过程中要细心耐心，根据不同的错误提示进行修改调试，同时我建议把出现的错误提示记录在自己的笔记本上，积累调试经验。

调试成功后，执行文件-生成工程命令，在弹出的对话框中输入工程名称，这样就形成了可执行文件，修改不同的参数值就会形成不同的椭圆形状。

接着执行文件-保存工程命令，在弹出的对话框中依次保存窗体和工程，并分别命名，保存在一个合适的位置上即可。