Private Sub Form_Paint()
Dim xt As Integer
For i = 0 To 5000
PSet (i, 1200), vbRed '在对像的指定位置(x,y),按确定的像素颜色画点
Next i
For xt = 0 To 5000
PSet (xt, 300 * Cos(xt * 3.1415926 / 1800) + 600 * Sin(3 * xt * 3.1415926 / 1800) + 1200), vbBlue
Next xt
Print Tab(17); "数学曲线"
End Sub
用PSet只能打点，还是建议用Line来，先计算好两端点，再连起来。
只要你的点取得足够多，就像曲线了。
刚刚我看了下你的问题追踪 你是想写一个画图软件吗
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024