Vf编程计算空气质量分指数

《Vf编程计算空气质量分指数》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Vf编程计算空气质量分指数*计算空气质量日报指数及状况aqi=0aqp=0bphi=0bpl0=0aqhi=0aql0=0aqp=0aq1=0aq2=0aq3=0aq4=0aq5=0aq6=0aq7=0*sele空气质量日报cp=val(thisform.text1.value)docasecasecp>=0.and.cp<=50bphi=50bpl0=0aqhi=50aql0=0casecp>=50.and.cp<=150bphi=150bpl0=50aqhi=100aql0=50casecp>=150.and.cp<=475bphi=475bpl0=150aqhi=1

2、50aql0=100casecp>=475.and.cp<=800bphi=800bpl0=475aqhi=200aql0=150casecp>=800.and.cp<=1600bphi=1600bpl0=800aqhi=300aql0=200casecp>=1600.and.cp<=2100bphi=2100bpl0=1600aqhi=400aql0=300casecp>=2100.and.cp<=2620bphi=2620bpl0=2100aqhi=500aql0=400endcaseaqp=(aqhi-aql0)/(bphi-bpl0)*(cp-bpl0)+aql0

3、aq1=aqp*replaces分指数withaqp*二氧化氮分指数aqp=0bphi=0bpl0=0aqhi=0aql0=0aqp=0cp=val(thisform.text2.value)docasecasecp>=0.and.cp<=40bphi=40bpl0=0aqhi=50aql0=0casecp>=40.and.cp<=80bphi=80bpl0=40aqhi=100aql0=50casecp>=80.and.cp<=180bphi=180bpl0=80aqhi=150aql0=100casecp>=180.and.cp<=280bphi=280bpl0=18

4、0aqhi=200aql0=150casecp>=280.and.cp<=565bphi=565bpl0=280aqhi=300aql0=200casecp>=565.and.cp<=750bphi=750bpl0=565aqhi=400aql0=300casecp>=750.and.cp<=940bphi=940bpl0=750aqhi=500aql0=400endcaseaqp=(aqhi-aql0)/(bphi-bpl0)*(cp-bpl0)+aql0aq2=aqp*replacen分指数withaqp*pm10分指数aqp=0bphi=0bpl0=0aqhi=0a

5、ql0=0aqp=0cp=val(thisform.text3.value)docasecasecp>=0.and.cp<=50bphi=50bpl0=0aqhi=50aql0=0casecp>=50.and.cp<=150bphi=150bpl0=50aqhi=100aql0=50casecp>=150.and.cp<=250bphi=250bpl0=150aqhi=150aql0=100casecp>=250.and.cp<=350bphi=350bpl0=250aqhi=200aql0=150casecp>=350.and.cp<=420bphi=420bpl0=3

6、50aqhi=300aql0=200casecp>=420.and.cp<=500bphi=500bpl0=420aqhi=400aql0=300casecp>=500.and.cp<=600bphi=600bpl0=500aqhi=500aql0=400endcaseaqp=(aqhi-aql0)/(bphi-bpl0)*(cp-bpl0)+aql0aq3=aqp*replacepm10分指数withaqp*一氧化碳分指数aqp=0bphi=0bpl0=0aqhi=0aql0=0aqp=0cp=val(thisform.text4.value)docasecasecp>

7、=0.and.cp<=2bphi=2bpl0=0aqhi=50aql0=0casecp>=2.and.cp<=4bphi=4bpl0=2aqhi=100aql0=50casecp>=4.and.cp<=14bphi=14bpl0=4aqhi=150aql0=100casecp>=14.and.cp<=24bphi=24bpl0=14aqhi=200aql0=150casecp>=24.and.cp<=36bphi=36bpl0=24aqhi=300aql0=200casecp>=36.and.cp<=48bphi=48bpl0