哈工大机械设计电算程序vbvstuvi.docVIP

Dim a As DoubleDim t As StringDim a1 As IntegerDim a2 As IntegerDim kl As DoubleDim kb As DoubleDim Ki As DoubleDim kao As DoubleDim m As DoubleDim f As DoubleDim e As DoubleDim pnum() As VariantDim num() As VariantDim kka As VariantDim lld() As VariantDim kkl() As VariantDim vmax As DoublePrivate Sub Command1_Click() 计算相关参数fchu = Round((500 * Val(pd) * (2.5 - kao) / Val(z) / Val(v) / kao + m * Val(v) ^ 2), 2)fq = Round((2 * Val(z) * Val(fchu) * Sin(Val(bao) * 3.1416 / 360)), 2)bmm = (Val(z) - 1) * e + 2 * ffchu.Text = fchu: fq.Text = fq: bmm.Text = bmmEnd SubPrivate Sub Command2_Click() 确定载荷情况系数Dim KA1 As DoubleIf Val(n) 100 ThenCall MsgBox(转速过小！, 48, 警告): n.Text = : n.SetFocusElseIf Val(n) 6000 ThenCall MsgBox(转速过大！, 48, 警告): n.Text = : n.SetFocusElse:zaihe.Enabled = TrueIf dianjileixing.Text = I类 And zaihe.Text = 载荷平稳 And WorkHour.Text = 10h/天 Then KA1 = 1If dianjileixing.Text = I类 And zaihe.Text = 载荷平稳 And WorkHour.Text = 10~16h/天 Then KA1 = 1.1If dianjileixing.Text = I类 And zaihe.Text = 载荷平稳 And WorkHour.Text = 16h/天 Then KA1 = 1.2If dianjileixing.Text = I类 And zaihe.Text = 载荷变动小 And WorkHour.Text = 10h/天 Then KA1 = 1.1If dianjileixing.Text = I类 And zaihe.Text = 载荷变动小 And WorkHour.Text = 10~16h/天 Then KA1 = 1.2If dianjileixing.Text = I类 And zaihe.Text = 载荷变动小 And WorkHour.Text = 16h/天 Then KA1 = 1.3If dianjileixing.Text = I类 And zaihe.Text = 载荷变动较大 And WorkHour.Text = 10h/天 Then KA1 = 1.2If dianjileixing.Text = I类 And zaihe.Text = 载荷变动较大 And WorkHour.Text = 10~16h/天 Then KA1 = 1.3If dianjileixing.Text = I类 And zaihe.Text = 载荷变动较大 And WorkHour.Text = 16h/天 Then KA1 = 1.4If dianjileixing.Text = I类 And zaihe.Text = 载荷变动很大 And WorkHour.Text = 10h/天 Then KA1 = 1.3If dianjileixing.Text = I类 And zaihe.Text = 载荷变动很大 And WorkHour.Text = 10~16h/天 Then KA1 = 1.4If dianjileixing.Text = I类 And zaihe.Text = 载荷变动很大 And WorkHour.Text = 16h/天 Then KA1 = 1.5If dianjileixing.Text = II类 And zaihe.Te