UC知道vb中用pset画圆为什么画出的是椭圆,我的坐标比例是相等的
来源：百度知道 编辑：UC知道 时间：2024/05/04 06:49:48
Dim e As Integer
Dim x As Single, y As Single
Picture1.Scale (-10, 10)-(10, -10)
For e = 0 To 360 Step 1
x = Cos(e * pi / 180) * 5
y = Sin(e * pi / 180) * 5
Picture1.PSet (x, y)
Next
谢谢!
Dim x As Single, y As Single
Picture1.Scale (-10, 10)-(10, -10)
For e = 0 To 360 Step 1
x = Cos(e * pi / 180) * 5
y = Sin(e * pi / 180) * 5
Picture1.PSet (x, y)
Next
谢谢!
圆的一个条件就是半径固定 也就是说 圆心到每个点的距离都是相同的 椭圆的话有两个焦点啊 椭圆的是点到两焦点距离和相同 所以就算点的座标比例相同但是距离结果是不同的 而且还是算的点到两焦点的距离和 所以画不出圆吧 要画的画就把两焦点坐标改相同试试 把(-10，10)-(10，-10)改成(-10，10)-(-10，10)试试 (嗯 VB有那么多方法画圆 为什么你要用这个啊 真是好学滴伦~)