cad代码.docxVIP

界面及程序代码 界面1 界面1程序代码 Option Explicit Dim sbyte As Integer Private Sub CommandButton1_Click() If sbyte = 1 Then Me.Hide UserForm1.Show ElseIf sbyte = 2 Then Me.Hide UserForm1.Show ElseIf sbyte = 3 Then Me.Hide UserForm1.Show ElseIf sbyte = 4 Then Me.Hide UserForm1.Show ElseIf sbyte = 5 Then Me.Hide UserForm1.Show ElseIf sbyte = 0 Then Me.Hide UserForm1.Show End If End Sub Private Sub CommandButton2_Click() End End Sub Private Sub OptionButton1_Click() sbyte = 1 End Sub Private Sub OptionButton2_Click() sbyte = 2 End Sub Private Sub OptionButton3_Click() sbyte = 3 End Sub Private Sub OptionButton4_Click() sbyte = 4 End Sub Private Sub OptionButton5_Click() sbyte = 5 End Sub Private Sub UserForm_Initialize() sbyte = 0 End Sub 界面2 界面2程序代码 Option Explicit Dim arKa(3, 5) As Single 工况系数 Private Sub ComboBox1_Change() Select Case (ComboBox1.ListIndex) Case 0 ComboBox2.ListIndex = 0 Case 1 ComboBox2.ListIndex = 4 Case 2 ComboBox2.ListIndex = 9 Case Else ComboBox2.ListIndex = 19 End Select End Sub Private Sub ComboBox2_Change() Select Case (ComboBox2.ListIndex) Case 0 To 3 ComboBox1.ListIndex = 0 Case 4 To 8 ComboBox1.ListIndex = 1 Case 9 To 18 ComboBox1.ListIndex = 2 Case Else ComboBox1.ListIndex = 3 End Select End Sub Private Sub CommandButton1_Click() Unload Me 带传动设计.Show End Sub Private Sub CommandButton2_Click() Dim xka As Single Dim i As Single p = TextBox1.Text n1 = TextBox3.Text n2 = TextBox4.Text r = TextBox2.Text If ComboBox5.ListIndex = 0 Then 减速传动 xka = 1# ElseIf ComboBox5.ListIndex = 1 Then 增速传动 i = n2 / n1 If (i = 1.25 And i 1.74) Then xka = 1.05