部分代码如下：
'理论廓线方程
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排序不是我想要的,请高手解答，谢谢

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

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