2、Circle方法

　　Circle方法用于画圆、椭圆、圆弧和扇形，其语法格式如下：

　　格式: [对象.] Circle [ [ Step ] ( x , y ) ,半径 [ ,颜色 ] [ ,起始角度 ] [ ,终止角度 ] [ ,长短轴比率 ] ]

　　说明:

　　(1) 对象指的是Circle方法将在何处产生结果，它可以是窗体或图形框或打印机，缺省时为当前窗体。

　　(2)(x，y)为圆心坐标，关键字Step表示采用当前作图位置的相对值。

　　(3)圆弧和扇形通过参数的起始角度和终止角度控制。当起始角度和终止角度取值为0~360度时，画出来的是圆弧；当在起始角度和终止角度取值前加一个负号时，画出的是扇形，负号表示要画圆心到圆弧的径向线。

　　(4)椭圆通过长短轴比率控制，默认值为1，所以画出来的是圆。

　　下面我们用Circle方法分别画出圆形，椭圆，圆弧和扇形。下面是代码和图示：

Private Sub Form _ Click ( )
　Circle(1500, 1500), 1000
End Sub
　　下图为画出的圆形：




Private Sub Form _ Click ( )
　Circle(1500,1500),1000, ,0.7,2.1 ‘注意1000和0.7,中间是两个逗号
End Sub
　　下图为画出的圆弧：




Private Sub Form _ Click ( )
　Circle(1500,1500) ,1000 , , -0.7,-2.1
End Sub
　　下图为画出的扇形：



Private Sub Form _ Click ( )
　Circle(1500,1500),1000 , , , ,0.5
End Sub
　　下图为画出的椭圆形：


　　3、Pset方法

　　Pset方法用于画点,其语法格式如下:

　　格式: [对象 . ] Pset [ Step ] ( x , y ) [ ,颜色 ]

　　说明:

　　(1)参数(x,y)为所画点的坐标

　　(2)关键字Step表示采用当前作图位置的相对值

　　(3)采用背景颜色可清除某个位置上的点,利用Pset方法可画出任意的曲线

　　下面我们来看一个例子.我们用Pset方法在窗体上面绘制阿基米德螺线.下面是代码和运行结果:

Private Sub Form _ Activate ( )
　Dim x As Single
　Dim y As Single
　Dim z As Single

　Scale(-20,20)-(20,-20)
　Line(0,17)-(0,-17)
　Line(18,0)-(-18,0)

　For z=0 To 15 Step 0.01
　　y=z*Sin(z)
　　x=z*Cos(z)
　　PSet(x,y)
　Next z
End Sub
　　运行结果如下: 7



　　到现在为止,应该说我们关于编程方面的知识已经足够了.但应该怎样画出一个钟表的准确位置呢?也就是说我们怎样在窗体中确定每一个刻度呢?

　　肯定得用到三角函数了.让我们一起简单的回顾以下,在高中时所学的三角函数的知识吧.