部分代码如下：
'理论廓线方程
x(i) = r0 * Sin(fai - Arcsin(L * Cos(fai1(i)) - a) / r0)
y(i) = r0 * Cos(fai - Arccos(L * Cos(fai1(i)) - a) / r0)
z(i) = L * Sin(fai1(i))
Next
'以下为数据保存程序
 Dim k As Long
 '凸轮理论廓线
 Open "F:\temp1.csv" For Output As #2
 Print #2, "x"; ","; "y"; ","; "z"
 For k = 0 To DotNum
 Print #2, x(k); ","; y(k); ","; z(k);
 Next
 Close #2
 End Sub
最后得出的X Y  Z排序不是我想要的,请高手解答，谢谢

Print #2, "x"; ","; "y"; ","; "z"
 For k = 0 To DotNum
Print #2, x(k); ","; y(k); ","; z(k);

因你图是贴了图的，有点看不懂。
是数据不换行的问题吗？
输出数据那行命令，最后多了一个分号，会导致不换行。

感谢感谢,已经找到原因了

不知道，楼主的用处？输出坐标？输出前是什么状态？

VB编程，通过数学解析法得到空间凸轮坐标数据点,