二阶效应.txt

来自「结构力学中用于计算二阶效应问题,输入nl值和刚度系数,计算Ka,Kb值」· 文本 代码 · 共 45 行

Private Sub Command1_Click()
 Dim a As Single
 Dim Ka As Single
 Dim Kb As Single
 Dim c As Single
 Dim nl As Single
 Dim x As Single
If Text1.Text = "" Or Text2.Text = "" Then
   MsgBox "请输入正确参量!"
   GoTo hi
Else
 nl = Text1.Text
 x = Text2.Text
 a = (nl ^ 2 - 60) / (52 * nl ^ 2 - 480 * x + 48 * nl ^ 2 * x - 1.5 * nl ^ 4 - 120)
 Ka = (1 + 4 * x) * (Sin(nl) / nl - (4 * x * Cos(nl) - nl * Sin(nl)) * a) / (1 + 2 * x)
 Kb = 2 * (1 + 4 * x) * a
 c = Ka / Kb
 Picture1.Cls
 Picture1.Cls
 Picture2.Cls
 Picture3.Cls
 Picture4.Cls
 Picture1.Print Format(Ka, "#.0000")
 Picture2.Print Format(Kb, "#.0000")
 Picture3.Print Format(c, "#.0000")
 Picture4.Print Format(a, "#.0000")
End If
hi:
End Sub


Private Sub Command2_Click()
 Text1.Text = ""
 Text2.Text = ""
 Picture1.Cls
 Picture2.Cls
 Picture3.Cls
 Picture4.Cls
End Sub

Private Sub Command3_Click()
 End
End Sub