📄 form1.frm
字号:
Width = 1575
End
Begin VB.Label Label36
Caption = "Wc/Hi<10:"
Height = 255
Left = 240
TabIndex = 90
Top = 2160
Width = 855
End
Begin VB.Label Label35
Caption = "Wc/Hi>10:"
Height = 255
Left = 240
TabIndex = 89
Top = 480
Width = 855
End
Begin VB.Label Label34
Caption = "Mound structure:"
Height = 255
Left = 240
TabIndex = 88
Top = 240
Width = 1455
End
End
Begin VB.CommandButton Command21
Caption = "计算"
Height = 255
Left = 5640
TabIndex = 85
Top = 8880
Width = 735
End
Begin VB.TextBox Text23
Height = 270
Left = 4560
TabIndex = 84
Top = 8880
Width = 855
End
Begin VB.Frame Frame11
Caption = "D'Angremond(1996)公式"
Height = 1695
Left = 4080
TabIndex = 78
Top = 7560
Width = 4215
Begin VB.TextBox Text26
Height = 270
Left = 1920
TabIndex = 102
Top = 840
Width = 855
End
Begin VB.TextBox Text25
Height = 270
Left = 480
TabIndex = 100
Top = 840
Width = 855
End
Begin VB.CommandButton Command22
Caption = "退出"
Height = 255
Left = 2400
TabIndex = 86
Top = 1320
Width = 735
End
Begin VB.OptionButton Option2
Height = 255
Left = 2760
TabIndex = 82
Top = 600
Width = 255
End
Begin VB.OptionButton Option1
Height = 255
Left = 2760
TabIndex = 81
Top = 240
Width = 255
End
Begin VB.Label Label40
Caption = "m ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 101
Top = 840
Width = 375
End
Begin VB.Label Label39
Caption = "Tp="
Height = 255
Left = 120
TabIndex = 99
Top = 840
Width = 255
End
Begin VB.Label Label33
Caption = "Kt="
Height = 255
Left = 120
TabIndex = 83
Top = 1320
Width = 375
End
Begin VB.Label Label32
Caption = "Smooth structure"
Height = 255
Left = 120
TabIndex = 80
Top = 600
Width = 1455
End
Begin VB.Label Label31
Caption = "Mound strucyure"
Height = 255
Left = 120
TabIndex = 79
Top = 240
Width = 1455
End
End
Begin VB.TextBox Text10
Height = 270
Left = 2520
TabIndex = 77
Top = 2640
Width = 495
End
Begin VB.TextBox Text7
Height = 270
Left = 1800
TabIndex = 75
Top = 2640
Width = 495
End
Begin VB.TextBox Text6
Height = 270
Left = 840
TabIndex = 73
Top = 2640
Width = 495
End
Begin VB.TextBox Text5
Height = 270
Left = 2520
TabIndex = 71
Top = 2160
Width = 495
End
Begin VB.TextBox Text2
Height = 270
Left = 1800
TabIndex = 69
Top = 2160
Width = 495
End
Begin VB.TextBox Text1
Height = 270
Left = 840
TabIndex = 67
Top = 2160
Width = 495
End
Begin VB.Frame Frame10
Caption = "基本参数"
Height = 1215
Left = 240
TabIndex = 65
Top = 1800
Width = 3615
Begin VB.CommandButton Command29
Caption = "退出"
Height = 255
Left = 3000
TabIndex = 131
Top = 840
Width = 495
End
Begin VB.Label Label13
Caption = "b"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 76
Top = 840
Width = 135
End
Begin VB.Label Label7
Caption = "D50"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1200
TabIndex = 74
Top = 840
Width = 375
End
Begin VB.Label Label6
Caption = "Hsi"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 72
Top = 840
Width = 375
End
Begin VB.Label Label5
Caption = "L"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 70
Top = 360
Width = 135
End
Begin VB.Label Label2
Caption = "h"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1200
TabIndex = 68
Top = 360
Width = 135
End
Begin VB.Label Label1
Caption = "Rc"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 66
Top = 360
Width = 375
End
End
Begin VB.TextBox Text11
Height = 270
Left = 6000
TabIndex = 64
Top = 6600
Width = 855
End
Begin VB.CommandButton Command10
Caption = "退出"
Height = 255
Left = 2640
TabIndex = 51
Top = 4200
Width = 735
End
Begin VB.CommandButton Command2
Caption = "计算"
Height = 255
Left = 1800
TabIndex = 43
Top = 5400
Width = 735
End
Begin VB.CommandButton Command1
Caption = "计算"
Height = 255
Left = 1800
TabIndex = 42
Top = 4200
Width = 735
End
Begin VB.TextBox Text22
Height = 270
Left = 4560
TabIndex = 41
Top = 7080
Width = 855
End
Begin VB.Frame Frame9
Caption = "Calabrese,Vicinanza and Buccino(2003)公式"
Height = 1695
Left = 4080
TabIndex = 37
Top = 5760
Width = 4215
Begin VB.TextBox Text4
Height = 270
Left = 480
TabIndex = 62
Top = 840
Width = 855
End
Begin VB.CommandButton Command18
Caption = "退出"
Height = 255
Left = 2400
TabIndex = 59
Top = 1320
Width = 735
End
Begin VB.CommandButton Command9
Caption = "计算"
Height = 255
Left = 1560
TabIndex = 50
Top = 1320
Width = 735
End
Begin VB.Label Label30
Caption = "m ="
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 63
Top = 840
Width = 375
End
Begin VB.Label Label14
Caption = "Tp="
Height = 255
Left = 120
TabIndex = 61
Top = 840
Width = 255
End
Begin VB.Label Label29
Caption = "Kt="
Height = 255
Left = 120
TabIndex = 40
Top = 1320
Width = 375
End
Begin VB.Label Label28
Caption = " 0.31≤Hmoi/h≤0.61, 3≤ξ≤5.20"
Height = 255
Left = 840
TabIndex = 39
Top = 600
Width = 3255
End
Begin VB.Label Label27
Caption = "取值范围:-0.4≤d/b≤0.3, 1.06≤b/Hmoi≤8.13"
Height = 255
Left = 120
TabIndex = 38
Top = 360
Width = 3975
End
End
Begin VB.TextBox Text21
Height = 270
Left = 4560
TabIndex = 36
Top = 5160
Width = 855
End
Begin VB.Frame Frame8
Caption = "Silabdharma and Hall(2003)公式"
Height = 1215
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -