.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 = 1025Private Sub Command1_Click() Dim r As Integer Do While True L1 = Val(InputBox(请输入波长L1：, 求解设计波长：, 100) t = Val(InputBox(请输入设计波周期T：
