文件名称：画阿基米德螺旋线-VB绘图函数大全
文件大小：1.11MB
文件格式：PPT
更新时间：2024-05-15 03:17:59
VB VB绘图
画阿基米德螺旋线 阿基米德螺旋线方程： x=θ*cos(θ) 'θ为度数，作为参数要变为弧度 y=θ*sin(θ) Dim i As Integer Const Degree = 3.14159 / 180 x0 = Me.ScaleWidth \ 2 y0 = Me.ScaleHeight \ 2 For i = 0 To 1080 x = i * Cos(i * Degree) y = i * Sin(i * Degree) PSet (x + x0, y + y0) Next i