【正文】 49 End Sub Form5 窗體代碼 Dim words As String Dim ii As Integer Dim txtwor。 HBS If 10 And 10 Then MsgBox 小齒輪材料選擇有誤 Exit Sub End If If Then MsgBox 小齒輪硬度需 要大于大齒輪硬度 Exit Sub End If If = 5 Then If = 5 Then 45 AD = 1: ZE = ElseIf = 6 And = 9 Then AD = : ZE = ElseIf = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If ElseIf = 6 And = 9 Then If = 6 And = 9 Then AD = : ZE = 188 ElseIf = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If ElseIf = 10 And = 11 Then If = 10 And = 11 Then AD = : ZE = ElseIf = 12 And = 15 Then AD = : ZE = End If 46 ElseIf = 12 And = 15 And = 12 And = 15 Then AD = : ZE = End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 45正火（ 162217） HBS 45調(diào)質(zhì)（ 217255） HBS 42SiMn調(diào)質(zhì)（ 217269） HBS 40MnB調(diào)質(zhì)（ 241286） HBS 35CrMo調(diào)質(zhì)（ 207269） HBS 40Cr調(diào)質(zhì)（ 241286） HBS ZG310570正火（ 163197） HBS ZG340640正火（ 169229） HBS ZG35CrMnSi正火、回火（ 163217） HBS ZG35CrMnSi調(diào)質(zhì)（ 197269） HBS 47 HT300（ 190240） HBS HT350（ 210260） HBS QT5007（ 170230） HBS QT6003（ 190270） HBS KTZ55004（ 180250） HBS KTZ65002（ 210260） HBS 45正火（ 162217） HBS 45調(diào)質(zhì)（ 217255） HBS 42SiMn調(diào)質(zhì)（ 217269） HBS 40MnB調(diào)質(zhì)（ 241286） HBS 35CrMo調(diào)質(zhì) （ 207269） HBS 40Cr調(diào)質(zhì)（ 241286） HBS ZG310570正火（ 163197） HBS ZG340640正火（ 169229） HBS ZG35CrMnSi正火、回火（ 163217） HBS ZG35CrMnSi調(diào)質(zhì)（ 197269） HBS HT300（ 190240） HBS HT350（ 210260） HBS QT5007（ 170230） HBS QT6003（ 190270） HBS KTZ55004（ 180250） HBS KTZ65002（ 210260） HBS 48 = 0 = 0 = 圓錐齒輪傳動參數(shù)設(shè)計系統(tǒng) words = = 150 = True = End Sub Private Sub timer1_timer() lenth = Len(words) txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub Private Sub HScroll3_Change() = amp。 MPa = 70 + * amp。 MPa 44 = 170 + * amp。 MPa = 349 + * amp。 MPa End Select = amp。 MPa Case 10, 11 = 222 + * amp。 MPa Case 6, 7, 8 = 198 + * amp。 MPa Case 1 = 354 + * amp。與 170176。 fTitle Else If I 0 Then tmpStr = Mid(fTitle, Abs(I), sLen + I) Else tmpStr = Space(I) amp。 mm = D2 amp。 本窗體其它對象的代碼如下 : Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() 39。 過程列表框 :列出對象的過程和事件 ,選取該框右邊的箭頭可以顯示這個對象的全部事件。 設(shè)置控件的屬性 在設(shè)置好控件之后，緊接著就應(yīng)該給創(chuàng)建的控件設(shè)置屬性，用“視圖”菜單中的 17 “屬性窗口”命令或利用工具欄中的“屬性窗口”命令打開屬性窗口。 還有一個更簡單的方法來繪制控件，只 要雙擊工具箱中的控件，這樣會在窗體中央創(chuàng)建一個尺寸為缺省值的控件，然后再用 鼠標調(diào)整控件的大小，移動控件到窗體中的其它位置。 功能過程描述 與傳統(tǒng)的齒輪傳動設(shè)計相比，本系統(tǒng)具有計算精確，設(shè)計速度快、提供的可行方案多等優(yōu)點，流程圖如圖 26所示，具體步驟如下： 1． 選擇齒輪 類型； 2．選擇齒輪材料、熱處理方法，求出許用應(yīng)力； 3．確定設(shè)計準則； 4．進行設(shè)計計算，求出齒輪的各項基本參數(shù)； 5．計算齒輪幾何尺寸，確定齒輪精度等級； 6．校核齒輪應(yīng)力； 7．數(shù)據(jù)保存及輸出。 下拉式菜單的實現(xiàn) 下拉式菜單是用戶在任何時候都可以在頂端菜單條上選擇后拉出的菜單。S)，當文件菜單展開后，可以用字母鍵“ S來使用這個菜單項。如將一頂層菜單的標題屬性設(shè)為“文件 (amp。 具有子菜單的菜單項或者頂層菜單不能定義快捷鍵，只能定義訪問鍵。 常用菜單項快捷操作的設(shè)置 菜單項快捷操作的設(shè)置分 為快捷鍵和訪問鍵兩個部分。當因為某種原因使得某個選項所代表的功能不能被實現(xiàn)時，就應(yīng)該禁止該選項被選中，表現(xiàn)在界面上為灰色，反之為正常黑色。這樣設(shè)置的目的是保證設(shè)計過程的連續(xù)性和嚴格先后順序。這樣的設(shè)計，不僅會給自己的設(shè)計增加難度，而且往往使界面看上去龐雜，對用戶沒有真正的好處。當用戶在使用應(yīng)用軟件遇到問題時，不必翻閱參考手冊，通過聯(lián)機幫助系統(tǒng)就能隨時隨地獲得有效的幫助，迅速解決問題。 提供信息反饋和聯(lián)機幫助 加強“人機對話”，對用戶的重要操作有信息反饋，這對于幫助廣大用戶，特別是不熟練用戶更好地使用尤為重要。缺乏一致性就會使界面混亂、無序、不協(xié)調(diào)，給用戶的使用帶來不便，甚至還會使用戶覺得應(yīng)用程序不可靠。一個優(yōu)秀的用戶界面即是一個直觀的、對用戶透明的界面。人工查閱相當麻煩。 對于數(shù)表，由于數(shù)據(jù)不變化且數(shù)據(jù)量不太多，直接將其編入程序中，利用條件判 10 斷語句在計算程序中自動讀取。 建立和求解線性方程組的運算程序框圖如圖 22所示。 9 擬合運算 擬合曲線 f(x)的運算分兩步進行。 由于 ix 和 iy 是已知的一組數(shù)據(jù)，因此式（ 13）的φ可看作是多項式樣 mP (x)待定系數(shù) α j(j=1,2,? ,m,m+1)的函數(shù)，可表示為： φ =φ (α 1,α 2,? ,α m,α m+1) 求出上式中φ為極小時的α 1,α 2 ,? ,α m ,α m+1值代入式（ 13）中，所得多項式 ??mPx 8 就是與原函數(shù)（曲線）各結(jié)點處偏差平方和極小時的擬合多項式（擬合曲線 ）。工程上常 采用第二種方法進行曲線擬合 , 本系統(tǒng)采用控制偏差平方和最小的方法進行曲線擬合。響應(yīng)就是指執(zhí)行一段應(yīng)用程序 ,它不沿預(yù)定的路徑執(zhí)行 ,而是在響應(yīng)不同事件時執(zhí)行不同的代碼。 事件驅(qū)動編程 Windows操作系統(tǒng)出現(xiàn)以來 ,圖形化的用戶界面和多任 務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的 ,在使用 VB設(shè)計應(yīng)用程序時 ,必須首先確定應(yīng)用程序如何同用戶 6 進行交互。綜合考慮，在確定開發(fā)工具 時選擇 。 除了 VB之外 ,當前能夠編制 Windows應(yīng)用程序的可視化編程工具還有很多 ,所針對的 編 程 領(lǐng) 域 也 各 有 側(cè) 重 , 就 微 軟 系 列 的 可 視 化 開 發(fā) 工 具 而 言 , 就有VB,VisualC++,VisualJ++,Visual Foxpro等 ,其 中 Visual Foxpro是針對數(shù)據(jù)庫編程的開發(fā)工具； Visual J++能結(jié)合微軟的一貫 編程風格，很方便進行 Java的應(yīng)用開發(fā)，但它的移植性較差； Visual C++是為專業(yè)程序設(shè)計員提供的開發(fā)工具 ,變