《浅基础工程及设计》-丁继辉-程序代码 第六章 程序代码.docVIP

6.6 附源程序代码 本章基础计算工程主要包括个窗体，个模块。Dim Xx(50), Fji(50), Xpi(50), Pjidi(50) Dim x Private Sub Command1_Click() 箱形基础内力计算 Dim Iceng(50), Kceng(50), Iliang(50), Kliang(50) Dim Iguan, EIji Dim EIshang, EIqiang Dim Qzuo(50), Qyou(50), Mzuoy(50), Mzhong(50) Dim x(50) Dim SumM1 Dim SumPm1 Call TianJiaJiBen Call TianJiaHeZai Me.List4.AddItem (箱形基础内力分析) Me.List4.AddItem ( ) 计算箱形基础刚度 箱形基础横截面惯性矩 Iguan = (Bji * Hji ^ 3 - Bjing * Hjing ^ 3) / 12 EIji = Ef * Iguan Me.List4.AddItem (箱形基础刚度(kN.m^2) EIji= ) Format(EIji, 00.00) 计算上部结构刚度 各层上下柱的截面惯性矩 S