储运设备腐蚀上机土壤腐蚀性的影响及评价指数修订版

IBMTstandardizationoffice【IBMT5AB-IBMT08-IBMT2C-ZZT18】储运设备腐蚀上机土壤腐蚀性的影响及评价指数修订版土壤腐蚀性的影响及评价指数（DIN50929）与外阴极相连时的腐蚀概率评定充气差异电池的阳极和阴极作用土壤腐蚀和腐蚀概率PrivateSubCheck1_Click()z1=4EndSubPrivateSubCheck10_Click()z2=0EndSubPrivateSubCheck11_Click()z2=-2EndSubPrivateSubCheck12_Click()z2=-4EndSubPrivateSubCheck13_Click()z2=-6EndSubPrivateSubCheck14_Click()z3=0EndSubPrivateSubCheck15_Click()z3=-1EndSubPrivateSubCheck16_Click()z4=2EndSubPrivateSubCheck17_Click()z4=0EndSubPrivateSubCheck18_Click()z4=-1EndSubPrivateSubCheck19_Click()z4=-3EndSubPrivateSubCheck2_Click()z1=2EndSubPrivateSubCheck20_Click()z9=0EndSubPrivateSubCheck21_Click()z9=-1EndSubPrivateSubCheck22_Click()z9=-2EndSubPrivateSubCheck23_Click()z10=0EndSubPrivateSubCheck24_Click()z10=-4EndSubPrivateSubCheck25_Click()z10=-2EndSubPrivateSubCheck26_Click()z5=0EndSubPrivateSubCheck27_Click()z5=1EndSubPrivateSubCheck28_Click()z5=3EndSubPrivateSubCheck29_Click()z5=0EndSubPrivateSubCheck3_Click()z1=0EndSubPrivateSubCheck30_Click()z5=-2EndSubPrivateSubCheck31_Click()z5=-4EndSubPrivateSubCheck32_Click()z5=-6EndSubPrivateSubCheck33_Click()z5=-8EndSubPrivateSubCheck34_Click()z5=-10EndSubPrivateSubCheck35_Click()z6=0EndSubPrivateSubCheck36_Click()z6=-3EndSubPrivateSubCheck37_Click()z6=-6EndSubPrivateSubCheck38_Click()z7=0EndSubPrivateSubCheck39_Click()z7=-1EndSubPrivateSubCheck4_Click()z1=-2EndSubPrivateSubCheck40_Click()z7=-2EndSubPrivateSubCheck41_Click()z7=-3EndSubPrivateSubCheck42_Click()z7=-4EndSubPrivateSubCheck43_Click()z8=0EndSubPrivateSubCheck44_Click()z8=-1EndSubPrivateSubCheck45_Click()z8=-2EndSubPrivateSubCheck46_Click()z8=-3EndSubPrivateSubCheck47_Click()z11=0EndSubPrivateSubCheck48_Click()z11=-6EndSubPrivateSubCheck49_Click()z11=-1EndSubPrivateSubCheck5_Click()z1=-4EndSubPrivateSubCheck50_Click()z11=-2EndSubPrivateSubCheck6_Click()z1=-12EndSubPrivateSubCheck7_Click()z1=-12EndSubPrivateSubCheck8_Click()z2=4EndSubPrivateSubCheck9_Click()z2=2EndSubPrivateSubOption1_Click()z12=-3EndSubPrivateSubOption2_Click()z12=-8EndSubPrivateSubOption3_Click()z12=-10EndSubPrivateSubCommand1_Click()DimzifuchAsStringB0=z1+z2+z3+z4+z5+z6+z7+z8+z9B1=B0+z10+z11Ba=z1+z2+z4+z5+z6+z7+z8Bk=z1-z2+z4+z5+z6Be=Ba+z12IfB0>=0Thenzifuch="土壤腐蚀性：实际不腐蚀"ElseIf-1<=B0<=-4Thenzifuch="土壤腐蚀性：弱腐蚀"ElseIf-5<=B0<=-10Thenzifuch="土壤腐蚀性：腐蚀"ElseIfB0<-10Thenzifuch="土壤腐蚀性：强腐蚀"EndIfIfB1>=0Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：极轻微均匀腐蚀的腐蚀概率：极轻微"ElseIf-1<=B1<=-4Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：轻微均匀腐蚀的腐蚀概率：极轻微"ElseIf-5<=B1<=-10Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：中等均匀腐蚀的腐蚀概率：轻微"ElseIfB1<-10Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：极强均匀腐蚀的腐蚀概率：中等"EndIfzifuch=zifuch+""+"充气电池阳极作用："IfBa>=0Thenzifuch=zifuch+"不起作用"ElseIf-1<=Ba<=-4Thenzifuch=zifuch+"弱"ElseIf-5<=Ba<=-8Thenzifuch=zifuch+"强"ElseIfBa<-8Thenzifuch=zifuch+"极强"EndIfzifuch=zifuch+""+"阴极作用:"IfBk<-4Thenzifuch=zifuch+"不起作用"ElseIf-4<=Bk<=-1Thenzifuch=zifuch+"弱"ElseIf0<=Bk<=4Thenzifuch=zifuch+"强"ElseIfBk>4Thenzifuch=zifuch+"极强"EndIfzifuch=zifuch+""+"与外阴极相连时的腐蚀概率："IfBe>=0Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：轻微均匀腐蚀概率：极轻微"ElseIf-1<=Be<=-4Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：中等均匀腐蚀概率：极轻微"ElseIf-5<=Be<=-8Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：强均匀腐蚀概率：中等"ElseIfBe<-8Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：极强均匀腐蚀概率：增强"EndIfLabel10.Caption=zifuchEndSub