【正文】 理學(xué)院學(xué)報(bào),1999（4）；210～230［7］楊頂信 .機(jī)械優(yōu)化設(shè)計(jì)方法與評(píng)判指標(biāo)[J].山西晉城廣播電視大學(xué)學(xué)報(bào),2022（6）；109 ～120［8］張濟(jì)川 .鏈傳動(dòng)的結(jié)構(gòu)優(yōu)化設(shè)計(jì)[J].西安交通大學(xué)機(jī)械工程學(xué)院學(xué)報(bào),2022（2）；310 ～320［9］柳林林 ,[J]. 哈爾濱制藥總廠,2022；310～330［10］[J].北京大學(xué)學(xué)報(bào) .1988（3 ）；370～390［11］周藹如,官士鴻,林偉建 .《Visual Basic 程序設(shè)計(jì) 》[M].電子工業(yè)出版社,［12］[J]. 常州信息職業(yè)技術(shù)學(xué)院學(xué)報(bào),2022（3）；110～140［13］ [J].華北工學(xué)院?？茖W(xué)校學(xué)報(bào),1992（6）；210 ～230［14］[J].江西省農(nóng)業(yè)機(jī)械研究所,1998；70～110［15］ Visual Basic 開(kāi)發(fā)機(jī)械優(yōu)化設(shè)計(jì) CAI 系統(tǒng)[J]. 湘潭大學(xué)學(xué)報(bào),1999（5 ）；100 ～110［16］賈瑞芬,[J].福建農(nóng)林大學(xué), 機(jī)電工程學(xué)院學(xué)報(bào),2022（2 ）；102～130附錄 1程序清單Public a As Single, z1 As Single, n1 As Single, P1 As Single, p As Single, Pca As Single, i1 As Single, Q1 As Single, q As Single, f As Single, m As Single, w As Single, kz As Single, kf As Single, aa As Single, pp As Single, zz As SinglePrivate Sub Command1_Click() MsgBox 1，從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)平穩(wěn)，ka= 2,從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)輕微沖擊，ka= 3,從動(dòng)機(jī)平穩(wěn)，主動(dòng)機(jī)中等沖擊 ka= 4,從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)平穩(wěn) ka= 5, 從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)輕微沖擊 ka= 6,從動(dòng)機(jī)中等沖擊，主動(dòng)機(jī)中等沖擊 ka= 7,從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)平穩(wěn) ka= 8, 從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)輕微沖擊 ka= 9, 1 從動(dòng)機(jī)嚴(yán)重沖擊，主動(dòng)機(jī)中等沖擊 ka= End SubPrivate Sub Command3_Click() 39。計(jì)算按鈕39。 Q1 = Val() m = Val() q = Val() n1 = Val() P1 = Val() i1 = Val()Select Case m Case 1 ka = 1 Case 2 ka = Case 3 ka = Case 4 ka = Case 5 ka = Case 6 ka = Case 7 ka = Case 8 ka = Case 9 ka = Case Else MsgBox 輸入錯(cuò)誤，請(qǐng)重新輸入! End Select Dim min As Doublemin = 1E+19Dim i As SingleDim j As Single Dim k As Single For i = 10 To 60 Step 1 For j = 10 To 10000 Step 40 For k = 8 To Step 4 If (10 = i And i = 20) Then kz = / 10 * (i 10) + ElseIf (20 i And i = 30) Then kz = / 10 * (i 20) + ElseIf (30 i And i = 40) Then kz = / 10 * (i 30) + ElseIf (40 i And i = 50) Then kz = / 10 * (i 40) + ElseIf (50 i And i = 60) Then kz = / 10 * (i 50) + End If f = 17 w = f / 100 * j 39。確定垂度系數(shù)39。 If ( = w And w = ) Then kf = 4 / * (w ) + 30 ElseIf ( w And w = 1) Then kf = 13 / * (w ) + 26 ElseIf (1 w And w = ) Then kf = 5 / * (w 1) + 13 ElseIf ( w And w = 3) Then kf = / * (w ) + 8 ElseIf (3 w And w = 5) Then kf = / 1 * (w 2) + ElseIf (5 w And w = 10) Then kf = / 2 * (w 3) + End If Pca = ka * kz * P1 39。確定計(jì)算功率39。If g1(i) = 0 And g2(i) = 0 And g3(j, k) = 0 And g4(j, k) = 0 And g5(i, k) = 0 And g6(i, k) = 0 And g7(j, k, i) 10 And g7(j, k, i) 10 ThenIf (i1 + 1) / 2 * k ^ 2 * i1 / (Sin( / i)) ^ 2 + j * k * i1 / (Sin( / i)) ^ 2 min Thenmin = (i1 + 1) / 2 * k ^ 2 * i1 / (Sin( / i)) ^ 2 + j * k * i1 / (Sin( / i)) ^ 2 pp = k aa = j zz = i End If End If Next k Next j Next i = aa = zz = ppEnd Sub Function g1(x) g1 = x 17End FunctionFunction g2(x) i1 = Val() g2 = 120 i1 * x End Function Function g3(x, y) g3 = x / y 30 End Function Function g4(x, y) g4 = 50 x / yEnd Function Function g5(x, y) n1 = Val() g5 = x * y * n1 / 60000 End Function Function g6(x, y) n1 = Val() g6 = 15 x * y * n1 / 60000End FunctionFunction g7(x, y, z) i1 = Val() zz1 = (z * z / 4) / x zz2 = ((i1 1) * y / ) ^ 2If (2 * x / z + zz2 * z / x) ^ 2 8 * zz2 0 Then g7 = 1000000000Elseg7 = x * zz1 z / 4 * Sqr((2 * x / z + zz2 * z / x) ^ 2 8 * zz2)End IfEnd FunctionFunction g8(x, y)n1 = Val()g8 = Pca * x ^ * n1 ^ * (y / ) ^ (3 * y)End Function Function g9(x, y, z) q = Val() P1 = Val() Q1 = Val() g9 = Q1 / ((ka * P1 * 60000000 / x * n1 * y) + (q * x ^ 2 * n1 ^ 2 * y ^ 2 / 3600000000) + (kf * q * z * 100)) 6 End FunctionPrivate Sub Command2_Click() 39。退出按鈕EndEnd SubPrivate Sub Command4_Click() 39。設(shè)置“清除”按鈕 = = = = = = = = = = End Sub