机械设计带轮辅助计算

ElseIf aa1 > 170 Then kaa = 0.98 ElseIf aa1 > 165 Then kaa = 0.96 ElseIf aa1 > 160 Then kaa = 0.95 ElseIf aa1 > 155 Then kaa = 0.93 ElseIf aa1 > 150 Then kaa = 0.92 ElseIf aa1 > 145 Then kaa = 0.91 ElseIf aa1 > 140 Then kaa = 0.89 ElseIf aa1 > 135 Then kaa = 0.88 ElseIf aa1 > 130 Then kaa = 0.86 ElseIf aa1 > 125 Then kaa = 0.84 Else kaa = 0.82 End If pr = (p0 + ap0) * kaa * kl z = pc / pr If z - Int(z) = 0 Then z = Int(z) Else z = Int(z) + 1 End If End If f0 = 500 * (2.5 - kaa) * pc / (kaa * z * v) + (v * v * 0.105) fp = 2 * z * f0 * Sin(aa1 / (2 * 180) * pai) OLE1.object.Parent.Cells(s + 2, 1