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

Dim a As Double Dim t As String Dim a1 As Integer Dim a2 As Integer Dim kl As Double Dim kb As Double Dim Ki As Double Dim kao As Double Dim m As Double Dim f As Double Dim e As Double Dim pnum() As Variant Dim num() As Variant Dim kka As Variant Dim lld() As Variant Dim kkl() As Variant Dim vmax As Double Private 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 * f fchu.Text = fchu: fq.Text =