【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:frmCompute.frm绩等信息,祝愿广大网友取得需要的信息,参考学习。
VERSION 5.00
Begin VB.Form frmCompute
Caption = "计算结果"
ClientHeight = 5100
ClientLeft = 60
ClientTop = 345
ClientWidth = 4185
LinkTopic = "Form1"
ScaleHeight = 5100
ScaleWidth = 4185
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton btnNew
Caption = "重新计算"
Height = 435
Left = 2760
TabIndex = 2
Top = 4440
Width = 975
End
Begin VB.CommandButton btnDrawM
Caption = "弯矩图"
Height = 435
Left = 1650
TabIndex = 1
Top = 4440
Width = 855
End
Begin VB.ListBox List1
Height = 3375
ItemData = "frmCompute.frx":0000
Left = 420
List = "frmCompute.frx":0002
TabIndex = 0
Top = 600
Width = 3435
End
Begin
VB.Label Label1
Caption = "各结点弯矩:(kNm,上部受拉为正)"
Height = 255
Left = 420
TabIndex = 3
Top = 240
Width = 3075
End
End
Attribute VB_Name = "frmCompute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnDrawM_Click()
frmDrawM.Show 1
End Sub
Private Sub btnNew_Click()
Load frmStart
frmStart.Show
Unload Me
End Sub
Private Sub Form_Load()
Call GetK(K(), i0(), EI0, EI(), L())
Call GetP(P(), L(), Fc(), q(), PosA())
Success = Formula(Theta(), K(), P())
Call GetM(m(), i0(), Theta(), P())
For i = 1 To N + 1
List1.AddItem ("结点" + Str(i) + ":" + Str(m(i)))
Next
End Sub