希望哪位大俠能幫一幫小弟！本人初學vb，菜鳥一個！希望好心人能詳細的寫一下代碼，不勝感激！謝謝！！！
郵箱：[email protected] QQ:1139533953
外嚙合漸開線圓柱齒輪傳動計算
--給定中心距
輸入資料
1 模數: mn=1.75
2 齒數: z1=16
z2=43
3 螺旋角: helix=19+31/60+33/3600= 19.5258333333333
4 基本齒廓
齒形角: an=20
齒頂高系數: ha_m=1.0
徑向間隙系數: c_m=0.25
齒根圓角半徑系數: p_m=0.38
5 作業中心距: a_work=54.275
6 精度等級: pgrade=7
7 齒寬: gw1=25
gw2=20
8 作業齒寬: gw_work=MIN[gw1,gw2]= 20
9 當量齒數: zv1=z1/(cos(helix)^3)= 19.111223880291
zv2=z2/(cos(helix)^3)= 51.3614141782821
10 傳動比: u=z2/z1= 2.6875
主要幾何引數計算
1 分度(標準)中心距: a_bz=(z1+z2)*mn/cos(helix)*0.5= 54.7750652796414
2 中心距變動系數: ya=(a_work-a_bz)/mn= -0.2857515883665
3 端面齒形角: at=atan(tan(an)/cos(helix))= 21.1155161391519
4 端面嚙合角: at1=acos[a_bz/a_work*cos(at)]= 19.7033347150266
5 變位系數和: x_sum=[(z1+z2)*(inv(at1)-inv(at))/(2*tan(an))]= -0.2767334599442
6 補償變位系數: deta_y=x_sum-ya= 0.0090181284223
7 分度圓直徑: d1=mn*z1/cos(helix)= 29.7085099821784
d2=mn*z2/cos(helix)= 79.8416205771045
8 基圓直徑: db1=d1*cos(at)= 27.7137621059231
db2=d2*cos(at)= 74.4807356596683
9 分配變位系數(原則:大小輪的滑動比相等):
x1=rote[x1,-1 to 1,(1+u)*(tan(acos(db2/(d2+2*mn*(ha_m+x_sum-x1-deta_y))))-tan(at1))/(tan(at1)-u*(tan(acos(db2/(d2+2*mn*(ha_m+x_sum-x1-deta_y))))-tan(at1)))-(1+u)*(tan(acos(db1/(d1+2*mn*(ha_m+x1-deta_y))))-tan(at1))/(u*tan(at1)-(tan(acos(db1/(d1+2*mn*(ha_m+x1-deta_y))))-tan(at1)))]= 0.2738631591201
uj5u.com熱心網友回復：
樓主忘了標價格了。uj5u.com熱心網友回復：
幾分鐘可以搞定的問題才有人回答。要花許多時間的還是發到外包，或發問答掛上大量C幣懸賞。
uj5u.com熱心網友回復：
會用vb陳述句自動求解上述問題的，請聯系[email protected]轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95306.html
標籤：VBA