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=150aql0=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)+aql0aq1=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=180aqhi=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=0aql0=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=350aqhi=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>=0.and.cp<=2bphi=2bpl0=0aqhi=50aql0=0casecp>=2.and.cp<=4bphi=4bpl0=2aqhi=100aql0=50casecp>=4.