【正文】 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 Then If (i1 + 1) / 2 * k ^ 2 * i1 / (Sin( / i)) ^ 2 + j * k * i1 / (Sin( / i)) ^ 2 min Then min = (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 = pp End Sub Function g1(x) g1 = x 17 End Function Function 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 / y End 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 / 60000 End Function Function g7(x, y, z) i1 = Val() zz1 = (z * z / 4) / x zz2 = ((i1 1) * y / ) ^ 2 If (2 * x / z + zz2 * z / x) ^ 2 8 * zz2 0 Then g7 = 1000000000 Else g7 = x * zz1 z / 4 * Sqr((2 * x / z + zz2 * z / x) ^ 2 8 * zz2) End If End Function Function 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 Function Private Sub Command2_Click() 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 輸入錯誤，請重新輸入 ! End Select Dim min As Double min = 1E+19 Dim i As Single Dim 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。 （ 6）提高了查閱中外資料和閱讀資料并查找有效信息的能力。 優(yōu)化設(shè)計參數(shù)輸入 ,及結(jié) 果。將鼠標(biāo)指針停留在圖標(biāo)上 — 會兒，將出現(xiàn)該 圖標(biāo)的中文名稱；在工具欄上單擊鼠標(biāo)右鍵．將顯示工具欄選擇菜單 (如圖 12)。 圖 10【窗體布局】窗口 (7) 菜單欄 菜單欄上的菜單命令，指明了 VB 能夠完成的功能。 應(yīng)用【工程】窗口功能的方法是在【工程】窗口上單擊鼠 標(biāo)右鍵，比如想要將【工程】在軟盤上作一備份，可用鼠標(biāo)右鍵單擊【工程】窗口上的任一項，再在出現(xiàn)的菜單上選擇【另存為】命令，就可以將源程序作一備份了如圖 8。 屬性是 VB 語言的一個重要概念， VB的每一個對象均有屬性。 除標(biāo)準(zhǔn)控件外．還可以用添加 ActiveX 控件的方式得到更多的控件，使得編程功能更多。用戶在上面添加各種控件，可以顯示文字、圖形、圖像等如圖 5。應(yīng)用程序之間的資源共享。面向?qū)ο蟮木幊陶Z言； Visual Basic 的其它特性 在 Visual Basic 以前的版本中。 用戶最終創(chuàng)建的程序是一個真正的 EXE 文件，可以自由發(fā)布。 “ Visual”是的指采用可視化的開發(fā)圖形用戶界面（ GUI）的方法，一般不需要編寫大量代碼去描述界面元素的外觀和位置，而只要把需要的控件拖放到屏幕上的相應(yīng)位置既可方便設(shè)計圖形用戶界面：“ Basic”指的是 BASIC 語言，因為VB是在原有的 BASIC 語言的基礎(chǔ) 上發(fā)展起來的。是一種很好的視圖化語言。Visual Basic（簡稱 VB），它是 Microsoft 公司推出的一種 Windows 應(yīng)用程序開發(fā)工具。在參數(shù)優(yōu)化設(shè)計中，設(shè)計變量既有連續(xù)變量 ,又有整數(shù)變量 ,還有離散變量 ,是一個混合型設(shè)計變量。 ? 為中心 線與水平面夾角，本文取 ? =0176。 有效圓周力為 Fe=1000p/v 式中： p—— 傳遞的功率 kw ； v—— 鏈速 m/s 。鏈傳動在工作時，存在緊邊拉力和松邊拉力。 鏈傳動過程中的力 鏈傳動在安裝時，應(yīng)使鏈條受到一定的張緊力 。從動鏈輪的齒數(shù) 。 Pca=ka*kz*p 式中： ak — 工況系數(shù)，見表 5； zk — 主動鏈輪齒數(shù)系數(shù)，見圖 2 ； P— 傳遞的功率， kw 圖 2 齒輪系數(shù) kz 表 5 工況系數(shù) ka 從動機(jī)械特性 主動機(jī)械特性 平穩(wěn)運轉(zhuǎn) 輕微沖擊 中等沖擊 電動機(jī)、汽輪機(jī)和燃?xì)廨啓C(jī)、帶有液力耦合器的內(nèi)燃機(jī) 6 缸或 6缸以上帶機(jī)械式聯(lián)軸器的內(nèi)燃機(jī)、經(jīng)常啟動的電動機(jī)（一日兩次以上） 少于 6gang 帶機(jī)械式聯(lián)軸器的內(nèi)燃機(jī) 平穩(wěn)運轉(zhuǎn) 離心式的泵和壓縮機(jī)、印刷機(jī)、均勻加料的帶式輸送機(jī)、紙張壓光機(jī)、自動扶梯、液體攪拌機(jī)和滾料機(jī)、回轉(zhuǎn)干燥爐、風(fēng)機(jī) 中等沖擊 3缸或 3缸以上的泵和壓縮機(jī)、混凝土攪拌機(jī)、載荷非恒定的輸送機(jī)、固體攪拌機(jī)和混料機(jī) 嚴(yán)重沖擊 刨煤機(jī)、電鏟、軋機(jī)、球墨機(jī)、橡膠加工機(jī)械、壓力機(jī)、剪床、單缸或雙缸的泵和壓縮機(jī)、石油鉆機(jī) 極限功率 鏈傳動的過程中，鏈條受到一定的拉伸載荷，因此，鏈條有一定的疲勞強(qiáng)度限定。 a=4p ?????????????? ???????? ????????? ??222 1282 212 21 zzzzLpzzLp Lp =0