原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Option Explicit
Dim L1 As Single, L2 As Single, t As Single, d!, k!, kd!, thkd!, H!, D1!
Dim CD As Single, CM As Single, l As Single, Ko As Single
Dim Fhdmax As Single, Fhlmax As Single, Mhdmax As Single, Mhlmax!, Fhmax!, Mhmax!
Dim θ As Single
Const Pi = 3.141592653
Const G = 9.8
Const γ = 1025
Private Sub Command1_Click()
Dim r As Integer
Do While True
L1 = Val(InputBox( 请输入波长 L1 ： , 求解设计波长： , 100))
t = Val(InputBox( 请输入设计波周期 T ：, 请输入 , 6))
d = Val(InputBox( 请输入设计水深 d ： , 请输入 , 20))
If L1 = 0 Then
r = MsgBox( 请输入一个正数！ , 5, 输入错误 )
If r = 2 Then
End
End If
Else
Exit Do
End If
Loop
k = 2 * Pi / L1
kd = k * d
thkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))
L2 = G * (t ^ 2) * thkd / (2 * Pi)
Do Until Abs(L2 - L1) 0.001
L1 = L2
k = 2 * Pi / L1
kd = k * d
thkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))
L2 = G * (t ^ 2) * thkd / (2 * Pi)
Loop
Print 设计波长是： ; L2
Print 波数： ; Format$(k, 0.0000)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
H = Val(InputBox( 请输入设计波高 H： , 请输入 , 3))
D1 = Val(InputBox( 请输入桩柱直径 D1 ： , 请输入 , 2))
l = Val(InputBox( 请输入桩柱间距 l ：, 请输入 , 15))
If d / L2 0.5 Then
Print
Print 相对水深 d/L2:; d / L2
Print 采用线性波理论计算 :
Else
MsgBox 重新选择计算理论
End If
Print 波陡： ; H / L2
Print 相对柱径： ; D1 / L2
If D1 / L2 0.2 Then
Print 属于小直径桩柱
Else
Print 属于大直径桩柱
End I
文档评论（0）