采用迭代法，使等式两边的绝对值差小于等于0.0001
已知条件：
α为角度
c为变形系数
fm曲率比
Fa为轴向力
Z钢球数量
Dw为钢球直径
未知量α'进行迭代VB中x1表示

要求:输入已知条件和代入一个α',最终求出/显示等式的两边数值和最终的α'

出现z2小于0了

多谢您的回复
但
z2= Fa / (Z * Dw * Dw * Sin(x1 * PI / 180))

x1范围在1° 到91°，Sin(x1 * PI / 180)范围在sin（PI/180）和sin（91*PI/180）多事正值，Fa与Z 和Dw都是正值，没有出现负值啊

出错的时候看看z2的值是多少

Z2有具体数值啊

你是不是不会看？
出错的时候，点调试，然后鼠标放到z2这个变量上，看看值是多少。问题出在哪里。
要学会调试程序。

菜鸟一枚
学学