建筑結構與防火課程設計報告書-資料下載頁
2025-05-23 18:13本頁面
【正文】 = Ts * Tm + T0 Loop Until Ts 600 Ts = Format(Ts, ) = 防火保護層厚度di= + Str(Format((1000 * di), .0)) + mm If 2 * Ci * Ri * di * FV / (Cs * Rs) = 1 Then Label17 = 該防火保護層為輕質保護層 = amp。H0amp。 End If End If End If = 截面保護層參數B= + Str(dB) = 鋼材溫度Ts= + Str(Ts) + ℃ = 高溫下鋼材強度折減系數ηT= + Str(Format( * Ts * Ts * Ts * Ts * Ts + * Ts , .000)) = 該構件應力比σf/f= + Str(Format( * Val(), .000)) If ( * Val()) ( * ( * Ts * Ts * Ts * Ts * Ts + * Ts )) Then Label22 = 因為該構件應力比≤折減系數，所以保護層厚度滿足要求 di = Format( * di * 1000, .0) Else = = msg = MsgBox( 因為該構件應力比＞折減系數，所以保護層厚度不滿足要求，須增加保護層厚度, vbOKOnly, 提示) If msg = 1 Then GoTo RE End If End If = 考慮溫度應力的影響，由規(guī)范規(guī)定應將保護層厚度增加30%，即此時di為： + Str(di) + mmEnd SubPrivate Sub Command2_Click() = = = = = = = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Option1_Click() = True = False = False = False = False = False = True = False = False = False = False = FalseEnd SubPrivate Sub Option2_Click() = True = True = False = False = False = False = True = True = False = False = False = FalseEnd SubPrivate Sub Option3_Click() = False = False = True = True = True = True = False = False = True = True = True = TrueEnd Sub寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計較，只在做事上認真；無能的人！不在做事上認真，只在情緒上計較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人. 學習好幫手
職業(yè)教育相關推薦
鄂ICP備17016276號-1