word版可編輯-直齒圓柱齒輪傳動(dòng)計(jì)算機(jī)輔助設(shè)計(jì)精心整理doc-資料下載頁
2025-07-15 12:36本頁面
【正文】 End If End SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 請(qǐng)輸入正確的數(shù)據(jù)……Exit SubEnd If Hlim1 = Val(Text1)Hlim2 = Val(Text2) End SubPrivate Sub Command1_Click()If ( = Or = ) Or ( = Or = ) ThenMsgBox 請(qǐng)輸入正確的數(shù)據(jù)……Exit SubEnd Ifk = Val()OA = Val() End SubPrivate Sub Command10_Click() = End SubPrivate Sub Command11_Click()k = Val()End SubPrivate Sub Command12_Click() = End SubPrivate Sub Command13_Click() = End SubPrivate Sub Command14_Click() = End SubPrivate Sub Command15_Click() = End SubPrivate Sub Command16_Click() = End SubPrivate Sub Command17_Click() = End SubPrivate Sub Command18_Click()OA = Val()End SubPrivate Sub Command19_Click()Z1 = Val() = Z1Z2 = Val() * 4 = Z2End SubPrivate Sub Command2_Click()Text1 = End SubPrivate Sub Command3_Click()Text1 = End SubPrivate Sub Command4_Click()Text1 = End SubPrivate Sub Command5_Click()Text1 = End SubPrivate Sub Command6_Click()Text1 = End SubPrivate Sub Command7_Click()Text1 = End SubPrivate Sub Command8_Click()Text1 = End SubPrivate Sub Command9_Click()Text1 = 2End Sub 選擇安全系數(shù)Private Sub Command1_Click()Text3 = 1End SubPrivate Sub Command2_Click()Text3 = End SubPrivate Sub Command3_Click()Text3 = End SubPrivate Sub Command4_Click()Text4 = End SubPrivate Sub Command5_Click()Text4 = End SubPrivate Sub Command6_Click()Text4 = 2End SubPrivate Sub Command7_Click()Zn1 = Val()Zn2 = Val()End SubPrivate Sub Command8_Click()If ( = Or = ) Or ( = Or = ) ThenMsgBox 請(qǐng)輸入正確的數(shù)據(jù)……Exit SubEnd IfSh = Val()Sf = Val()Zn1 = Val()Zn2 = Val()End SubPrivate Sub Command9_Click()Sh = Val()Sf = Val()End Sub 輸入及計(jì)算及校核Private Sub Command1_Click()Oh1 = Zn1 * Hlim1 / Sh = Oh1m = = mOh2 = Zn2 * Hlim2 / Sh = Oh2k1 = * ((k * T1 * (i + 1) / OA * i * ((Oh1) ^ 2)) ^ (1 / 3))MsgBox 數(shù)據(jù)計(jì)算完成！End SubPrivate Sub Command2_Click()End Sub 計(jì)算主要尺寸Private Sub Command1_Click()d1 = m * Z1 = d1d2 = m * Z2 = d2b2 = OA * d1 = b2b1 = b2 + 5 = b1a = m * (Z1 + Z2) * 1 / 2 = av = = vMsgBox 所以數(shù)據(jù)計(jì)算完成!End Sub
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1