【正文】
t = 0 End IfEnd SubPrivate Sub Command1_Click()P = 0i = 0n1 = 1P = Val(Text1)i = Val(Text2)n1 = Val(Text3)If i = 0 ThenMsgBox 轉(zhuǎn)動比的值不能為0,請重新輸入…… = Exit SubEnd IfT1 = * 10 ^ 6 * P / n1 = T1 End Sub Private Sub Command2_Click()If ( = Or = ) Or = ThenMsgBox 請輸入正確的數(shù)據(jù)……Exit SubEnd If End SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 請輸入正確的數(shù)據(jù)……Exit SubEnd If Hlim1 = Val(Text1)Hlim2 = Val(Text2) End SubPrivate Sub Command1_Click()If ( = Or = ) Or ( = Or = ) ThenMsgBox 請輸入正確的數(shù)據(jù)……Exit SubEnd Ifk = Val()OA = Val() End SubPrivate Sub Command10_Click() = End SubPrivate Sub Command11_Click()k = Val()End SubPrivate Sub Command12_Click() = End SubPrivate Sub Command13_Click() = End SubPrivate Sub Command14_Click() = End SubPrivate Sub Command15_Click() = End SubPrivate Sub Command16_Click() = End SubPrivate Sub Command17_Click() = End SubPrivate Sub Command18_Click()OA = Val()End SubPrivate Sub Command19_Click()Z1 = Val() = Z1Z2 = Val() * 4 = Z2End SubPrivate Sub Command2_Click()Text1 = End SubPrivate Sub Command3_Click()Text1 = End SubPrivate Sub Command4_Click()Text1 = End SubPrivate Sub Command5_Click()Text1 = End SubPrivate Sub Command6_Click()Text1 = End SubPrivate Sub Command7_Click()Text1 = End SubPrivate Sub Command8_Click()Text1 = End SubPrivate Sub Command9_Click()Text1 = 2End Sub 選擇安全系數(shù)Private Sub Command1_Click()Text3 = 1End SubPrivate Sub Command2_Click()Text3 = End SubPrivate Sub Command3_Click()Text3 = End SubPrivate Sub Command4_Click()Text4 = End SubPrivate Sub Command5_Click()Text4 = End SubPrivate Sub Command6_Click()Text4 = 2End SubPrivate Sub Command7_Click()Zn1 = Val()Zn2 = Val()End SubPrivate Sub Command8_Click()If ( = Or = ) Or ( = Or = ) ThenMsgBox 請輸入正確的數(shù)據(jù)……Exit SubEnd IfSh = Val()Sf = Val()Zn1 = Val()Zn2 = Val()End SubPrivate Sub Command9_Click()Sh = Val()Sf = Val()End Sub 輸入及計算及校核Private Sub Command1_Click()Oh1 = Zn1 * Hlim1 / Sh = Oh1m = = mOh2 = Zn2 * Hlim2 / Sh = Oh2