【正文】 HBS 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 = 圓錐齒輪傳動(dòng)參數(shù)設(shè)計(jì)系統(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 = 120 + * amp。 MPa = 70 + * amp。 MPa = 293 + * amp。 MPa 44 = 170 + * amp。 MPa = 335 + * amp。 MPa = 349 + * amp。 MPa = 250 + * amp。 MPa End Select = amp。 MPa Case 12, 13, 14, 15 = 272 + * amp。 MPa Case 10, 11 = 222 + * amp。 MPa Case 9 43 = 245 + * amp。 MPa Case 6, 7, 8 = 198 + * amp。 MPa Case 2, 3, 4, 5 = 331 + * amp。 MPa Case 1 = 354 + * amp。H80000004 = False End If If = True Or = True Then = 1000 ElseIf = True Then = 1500 End If End Sub Private Sub Text3_Change() If CInt() 3 Then MsgBox 錐齒輪最大傳動(dòng)比為 3，請(qǐng)重新輸入 , vbOKOnly, 警告 Exit Sub End If End Sub Private Sub timer1_timer() lenth = Len(words) 31 txtword = Left(words, ii) = txtword ii = ii + 1 If ii lenth Then ii = 0 End If End Sub Form4 窗體代碼 Dim words As String Dim ii As Integer Dim txtword As String Dim lenth As Integer Private Sub Combo3_Click() Select Case Case 0 = 169 = 217 = ( + ) / 2 Case 1 = 217 = 255 32 = ( + ) / 2 Case 2 = 217 = 269 = ( + ) / 2 Case 3 = 241 = 286 = ( + ) / 2 Case 4 = 207 = 269 = ( + ) / 2 Case 5 = 241: = 286 = ( + ) / 2 Case 6 = 163 = 197 = ( + ) / 2 Case 7 33 = 169 = 299 = ( + ) / 2 Case 8 = 163 = 217 = ( + ) / 2 Case 9 = 197 = 269 = ( + ) / 2 Case 10 = 190 = 240 = ( + ) / 2 Case 11 = 210 = 260 = ( + ) / 2 Case 12 = 170 = 230 34 = ( + ) / 2 Case 13 = 190 = 270 = ( + ) / 2 Case 14 = 180 = 250 = ( + ) / 2 Case 15 = 210 = 260 = ( + ) / 2 End Select End Sub Private Sub Combo4_Click() Select Case Case 0 = 169 = 217 = ( + ) / 2 Case 1 35 = 217 = 255 = ( + ) / 2 Case 2 = 217 = 269 = ( + ) / 2 Case 3 = 241 = 286 = ( + ) / 2 Case 4 = 207 = 269 = ( + ) / 2 Case 5 = 241 = 286 = ( + ) / 2 Case 6 = 163 = 197 36 = ( + ) / 2 Case 7 = 169 = 299 = ( + ) / 2 Case 8 = 163 = 217 = ( + ) / 2 Case 9 = 197 = 269 = ( + ) / 2 Case 10 = 190 = 240 = ( + ) /