电脑知识

PrivateSubCommand1_Click()MsgBox"炉渣中的可燃物百分含量，在无热工测试资料的情况下，一般Ciz的取值范围为10-25%，煤粉炉可取0-5%！"EndSubPrivateSubCommand...

PrivateSubCommand1_Click()'给建设项目污水排放量分类，按评价导则分为五类，分类依据为：200-1000-5000-10000-2000五类DimqsAsSingleqs=Text1.Text......

Dimrl,rm,rs,K1,K2'定义大中小型车系数DimR2'昼夜比DimTOTAL'总的车流量Dimr(11)AsInteger'预测点距路面距离Dimlaeq123(11)AsSingleDimlaeq333(11)AsSingle...

PrivateSubCommand1_Click()MsgBox"《公路建设项目环评影响评价规范》JTGB03-2006；P42：林带引起的衰减量随着功能区的不同差异不同，最大不超过10dB，例如，东北地区的林带密度小，衰减量可以...

PrivateSubCombo1_Click()OnErrorResumeNextDimQ2AsSingleT0=Text8.TextTB=Text9.Texts......

PrivateSubCombo1_Click()IfCombo1.Text="A"ThenText8.Text=-0.019ElseIfCombo1.Text="B"Then......

DimAAsSingleDimBAsSingleDimcAsSingleDimdAsSingleDimR1AsSingleDimqcAsSingleDimCmAsSingleDimRcAsSingleDimLAsSingleDimm1AsS...

PrivateSubCommand1_Click()DimFVAsSingleDimPmAsSingleDimQlgAsSingleOnErrorResumeNextA=Text1.Textcp=Text3.TextTlg=Text4.Te...

PrivateSubCommand1_Click()DimKAsSingleDimTOTALAsSingleDimfee1AsSingleDimfee2AsSingleDimfee6AsSingleDimfee5AsSingleDimK2A...

PrivateSubCommand1_Click()OnErrorResumeNextIfText1.Text<0.05OrText1=0.05ThenPSO2=Text1.Text/0.05*50ElseIfText1.Text&g...

PrivateSubCombo1_Click()IfCombo1.Text="拱顶罐"Then'大呼吸量计算参数设置Label1.Visible=Tru......