【正文】 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(軸肩太小請(qǐng)調(diào)整D2或D3參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(軸肩太小請(qǐng)調(diào)整D4或D3參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(軸肩太小請(qǐng)調(diào)整D4或D5參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(軸肩太小請(qǐng)調(diào)整D5或D6參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(鍵槽太淺請(qǐng)調(diào)整H1參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf Thenmyeero = MsgBox(鍵槽太淺請(qǐng)調(diào)整H2參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfIf = 0 Thenmyeero = MsgBox(請(qǐng)輸入大于零的參數(shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfEnd SubPrivate Sub cancel_Click()End SubPrivate Sub ok_Click()Dim swapp As ObjectDim part As ObjectH1 = / 2H2 = / 2B1 = / 2B2 = / 2Dim myeero As StringIf = Thenmyeero = MsgBox(請(qǐng)輸入?yún)?shù)！, 48 + 0, 錯(cuò)誤)Exit SubEnd IfSet swapp = CreateObject() = TrueSet part = (G:\, 1)Set part = ()(D1@拉伸2).systemvalue = / 1000(D1@拉伸3).systemvalue = / 1000(D1@拉伸4).systemvalue = / 1000(D1@拉伸5).systemvalue = / 1000(D1@拉伸6).systemvalue = / 1000(D1@拉伸7).systemvalue = / 1000(D1@草圖1).systemvalue = / 1000(D1@草圖3).systemvalue = / 1000(D1@草圖4).systemvalue = / 1000(D1@草圖5).systemvalue = / 1000(D1@草圖6).systemvalue = / 1000(D1@草圖7).systemvalue = / 1000(D1@倒角1).systemvalue = / 1000(D1@圓角1).systemvalue = / 1000(D1@基準(zhǔn)面1).systemvalue = ( H1) / 1000(D1@草圖13).systemvalue = / 1000(D2@草圖13).systemvalue = ( ) / 1000(D3@草圖13).systemvalue = B1 / 1000(D1@基準(zhǔn)面2).systemvalue = ( H2) / 1000(D2@草圖14).systemvalue = ( B2) / 1000(D1@草圖14).systemvalue = B2 / 1000 (ABC)End Sub