实验五：受弯剪扭构件截面承载力设计计算源代码OptionExplicitVIP专享

实验五：受弯剪扭构件截面承载力设计计算源代码 Option Explicit Private b As Single, h As Single, h0 As Single, M As Single, V As Single, T As Single, Vmax As Single, n As Single, d As Single Private Wt As Single, ass As Single, hw As Single, Bt As Single, a1 As Single Private T1 As Single, T2 As Single, T3 As Single, fyv As Single, ks As Single, Psv As Single, Psvmin As Single Private Astl As Single, Acor As Single, Ucor As Single, ksb As Single, x As Single Private B1 As Single, Es As Single, sscu As Single, AAs As Single Private P As Single, Ptl As Single, Pmin As Single, Ptlmin As Single Private Bc As Single, fy As Single, fc As Single, ft As Single, Smax As Single Private ssb As Single, Asv1 As Single, s As Single Private Sub Command1_Click() b = Text1 h = Text2 M = Text3 V = Text4 T = Text5 Const n = 2 '第一步 Const ass = 35 Wt = (b * b * (3 * h - b)) / 6 h0 = h - ass hw = h0 Bc = 1 If fy = 0 Or fc = 0 Or fyv = 0 Then MsgBox "请选择混凝土和钢筋", 1 Combo1.SetFocus Exit Sub End If If (hw / b) < 4 Then If (V * 1000 / (b * h0)) + (T * 1000000 / (0.8 * Wt)) < (0.25 * Bc * fc) Then Text6 = "截面尺寸满足要求" & vbCrLf Else MsgBox "截面尺寸不满足要求，请重新设计" Exit Sub End If End If '第二步 验算简化计算条件 If (0.35 * ft * b * h0) < (V * 1000) And (0.175 * ft * Wt) < (T * 1000000) Then Text6 = Text6 & "应按弯剪扭构件计算" & vbCrLf Else MsgBox "不能按简化计算条件计算，请重新设计参数" Exit Sub End If '第三步 If (V * 1000 / (b * h0) + (T * 1000000 / Wt)) > (0.7 * ft) Then Text6 = Text6 & "需按计算配置纵向钢筋和箍筋" & vbCrLf Else MsgBox "不应按计算配置纵向配筋，请重新设计" Exit Sub End If '第四步 Bt = (1.5) / ((1 + 0.5 * ((V * 1000 * ...