菜鸟请问ＶＢ绘图问题

Question

围绕一个小圆画一圈大圆，为什么当“大圆半径”太大时，画出来的圆形失真？
Private Sub Command1_Click()x = CDbl(x.Text)
y = CDbl(y.Text)
dybj = CDbl(dy.Text)
xybj = CDbl(xy.Text)For i = 0 To CDbl(xsjd.Text) Step CDbl(fbl.Text)
    Pic1.Circle (x + (xybj + dybj) * Cos(i * 0.0174532925199), y + (xybj + dybj) * Sin(i * 0.0174532925199)), dybjNext iEnd SubPrivate Sub Command3_Click()
Pic1.Cls
End SubPrivate Sub Command4_Click()
x = CInt(x.Text)
y = CInt(y.Text)
dybj = CDbl(dy.Text)
xybj = CDbl(xy.Text)
Pic1.Circle (x, y), xybj, QBColor(15)End Sub

Answer 1

绘图函数的坐标参数都是Single类型（你可以看一下Circle方法的帮助），按照你图中的参数计算
CSng(5000 + (174999+3000) * cos(0.1 * 0.0174532925199)) = 182998.7 
最小精度已经接近整数位了，定位不准导致圆形失真很正常啊。