土壤腐蚀性的影响及评价指数

合集下载

土壤侵蚀危害总结(共4篇)

土壤侵蚀危害总结(共4篇)

土壤侵蚀危害总结(共4篇):侵蚀土壤危害土壤侵蚀异地灾害土壤侵蚀学土壤侵蚀模数篇一:土壤侵蚀的危害土壤侵蚀的危害:1破坏土地,吞食农田。

2降低土壤肥力,加剧干旱的发展。

3淤积抬高河床,加剧洪涝灾害。

4淤塞湖泊,影响开发利用。

土壤侵蚀:土壤及其母质在水力、风力、重力、冻融等外营力的作用下,被破坏、剥蚀、搬运、沉积的过程。

水土流失:在水力、重力、风力等外营力的作用下,水土资源和土壤生产力的破坏和损失,包括土地表层侵蚀及水的损失。

水土保持:防止水土流失,合理保护、改良和利用风沙区、山丘区的水土资源,维护和提高土壤生产力以利于充分发挥水土资源的经济效益和社会效益,建立良好的生态环境事业。

水力侵蚀:在降雨雨滴击溅、地表径流冲刷和下渗水分作用下,土壤、土壤母质及其其它地面组成物质被破坏、剥蚀、搬运、和沉积的全部过程。

雨滴击溅侵蚀:在雨滴击溅作用下土壤结构和土壤颗粒产生位移的现象。

混合侵蚀:是指在水流冲力和重力作用下产生的一种特殊侵蚀类型,常称泥石流。

冰川侵蚀有冰川运动队地表土石体造成机械破坏作用的一系列现象。

面蚀:斜坡上的降雨不能完全被土壤吸收时在地表产生积水,由于重力作用形成地表径流,开始形成的地表径流处于未集中的分散状态,分散的地表径流冲走地表土粒沟蚀:在面蚀的基础上,尤其细沟状面蚀进一步发展,分散的地表径流由于地表影响逐渐集中,形成有固定流路的水流称作集中的地表径流或股流,集中的地表径流冲刷地表,切入地面带走土壤、母质及破碎基岩,形成沟壑的过程。

风沙流:气流及其搬运的固体颗粒的混合流。

荒漠化:气候变异和人类活动在内的种种因素造成的干旱、半干旱、亚湿润干旱地区的土地退化输沙量;气流在单位时间通过单位宽度或面积所搬运是沙量沙尘暴:大风扬起地面沙尘,使空气混浊,水平能见度小于1000米的恶劣天气。

按导致土壤侵蚀的外营力种类划分:水力重力风力冻融冰川混合生物化学。

按发生的时间划分为古代侵蚀现代侵蚀按发生的速度划分为加速侵蚀正常侵蚀泥石流的分类:按固体物质组成分泥石质水石流泥流。

水、土的腐蚀性评价表格

水、土的腐蚀性评价表格



混凝土结构
SO42-
46.11;51.22
<450
450~2250
2250~4500
>4500


Mg2+
5.18;6.48
<3000
3000~4500
4500~6000
>6000

PH值
7.45;7.50
>5.0
5.0~4.0
4.0~3.5
<3.5

侵蚀性CO2
/
<30
30~60
60~100
25.45;21.81
<250
250~500
500~5000
>5000


备注
按《岩土工程勘察规范》(GB50021-2001)12.2条(2009年局部修订)评价
25.27;20.22
<300
300~1500
1500~3000
>3000


Mg2+
2.56;1.28
<2000
2000~3000
3000~4000
>4000

PH值
7.40;7.35
>5.0
5.0~4.0
4.0~3.
<30
30~60
60~100


钢筋混凝结
构中的钢筋
Cl-含量


钢筋混凝结
构中的钢筋
Cl-含量
36.44;43.07
<250
250~500
500~5000
>5000


备注
按《岩土工程勘察规范》(GB50021-2001)12.2条(2009年局部修订)评价

土壤腐蚀性的影响及评价指数

土壤腐蚀性的影响及评价指数

土壤腐蚀性的影响及评价指数学生姓名学号教学院系专业年级指导教师单位二、代码:Private Sub Command1_Click()Dim Z1!, Z2!, Z3!, Z4!, Z5!, Z6!, Z7!, Z8!, Z9!, Z10!, Z11!, Z12! Dim Bo!, B1!, Ba!, Bk!, Be!Dim a!, b!, c!, d!If Check1.Value = 1 Then Z1 = 4If Check2.Value = 1 Then Z1 = 2If Check3.Value = 1 Then Z1 = 0If Check4.Value = 1 Then Z1 = -2If Check5.Value = 1 Then Z1 = -4If Check6.Value = 1 Then Z1 = -12If Check7.Value = 1 Then Z1 = -12a = Val(InputBox("请输入测得土壤电阻率(Ω·cm)"))If a > 50000 Then Check8.Value = 1If a > 20000 And a <= 50000 Then Check9.Value = 1If a > 5000 And a <= 20000 Then Check10.Value = 1If a > 2000 And a <= 5000 Then Check11.Value = 1If a > 1000 And a <= 2000 Then Check12.Value = 1If a < 1000 Then Check13.Value = 1If Check8.Value = 1 Then Z2 = 4If Check9.Value = 1 Then Z2 = 2If Check10.Value = 1 Then Z2 = 0If Check11.Value = 1 Then Z2 = -2If Check12.Value = 1 Then Z2 = -4If Check13.Value = 1 Then Z2 = -6If Check14.Value = 1 Then Z3 = 0If Check15.Value = 1 Then Z3 = -1If Check16.Value = 1 Then Z4 = 2If Check17.Value = 1 Then Z4 = 0If Check18.Value = 1 Then Z4 = -1If Check19.Value = 1 Then Z4 = -3If Check20.Value = 1 Then Z5 = 0If Check21.Value = 1 Then Z5 = 1If Check22.Value = 1 Then Z5 = 3If Check23.Value = 1 Then Z5 = 0If Check24.Value = 1 Then Z5 = -2If Check25.Value = 1 Then Z5 = -4If Check26.Value = 1 Then Z5 = -6If Check27.Value = 1 Then Z5 = -8If Check28.Value = 1 Then Z5 = -10If Check29.Value = 1 Then Z6 = 0If Check30.Value = 1 Then Z6 = -3If Check31.Value = 1 Then Z6 = -6If Check32.Value = 1 Then Z7 = 0If Check33.Value = 1 Then Z7 = -1If Check34.Value = 1 Then Z7 = -2If Check35.Value = 1 Then Z7 = -3If Check36.Value = 1 Then Z7 = -4If Check37.Value = 1 Then Z8 = 0If Check38.Value = 1 Then Z8 = -1If Check39.Value = 1 Then Z8 = -2If Check40.Value = 1 Then Z8 = -3If Check41.Value = 1 Then Z9 = 0If Check42.Value = 1 Then Z9 = -1If Check43.Value = 1 Then Z9 = -2b = Val(InputBox("请输入第二次测得土壤电阻率(Ω·cm)")) If b > 50000 Thenc = 4If b > 20000 And a <= 50000 Then c = 2If b > 5000 And a <= 20000 Then c = 0If b > 2000 And a <= 5000 Then c = -2If b > 1000 And a <= 2000 Then c = -4If b < 1000 Then c = -6d = Abs(Z2 - c) 'd = |ΔZ2| If d < 2 Then Check44.Value = 1If d >= 2 And d <= 3 Then Check45.Value = 1If d > 3 Then Check46.Value = 1If Check44.Value = 1 Then Z10 = 0If Check45.Value = 1 Then Z10 = -4If Check46.Value = 1 Then Z10 = -2If d >= 2 And d <= 3 Then Check49.Value = 1If d >= 2 And d <= 3 Then Check47.Value = 0If d >= 2 And d <= 3 Then Check48.Value = 0If d >= 2 And d <= 3 Then Z11 = -1If d > 3 Then Check50.Value = 1If d > 3 Then Check47.Value = 0If d > 3 Then Check48.Value = 0If d > 3 Then Z11 = -2If Check47.Value = 1 Then Z11 = 0If Check48.Value = 1 Then Z11 = -6If Check51.Value = 1 Then Z12 = -3If Check52.Value = 1 Then Z12 = -8If Check53.Value = 1 Then Z12 = -10Bo = Z1 + Z2 + Z3 + Z4 + Z5 + Z6 + Z7 + Z8 + Z9B1 = Bo + Z10 + Z11If Bo >= 0 And B1 >= 0 Then Text1.Text = "Ⅰa"If Bo >= 0 And B1 >= 0 Then Text2.Text = "实际不腐蚀"If Bo >= 0 And B1 >= 0 Then Text3.Text = "极轻微"If Bo >= 0 And B1 >= 0 Then Text4.Text = "极轻微"If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text1.Text = "Ⅰb"If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text2.Text = "弱腐蚀" If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text3.Text = "轻微" If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text4.Text = "极轻微" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text1.Text = "Ⅱ"If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text2.Text = "腐蚀" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text3.Text = "中等" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text4.Text = "轻微" If Bo < -10 And B1 < -10 Then Text1.Text = "Ⅱ"If Bo < -10 And B1 < -10 Then Text2.Text = "强腐蚀"If Bo < -10 And B1 < -10 Then Text3.Text = "极强等"If Bo < -10 And B1 < -10 Then Text4.Text = "中等"Ba = Z1 + Z2 + Z4 + Z5 + Z6 + Z7 + Z8Bk = Z1 - Z2 + Z4 + Z5 + Z6If Ba >= 0 And Bk < -4 Then Text5.Text = "不起作用"If Ba > -4 And Ba < -1 And Bk >= -4 And Bk <= -1 Then Text5.Text = "弱"If Ba > -8 And Ba < -5 And Bk >= -4 And Bk <= 0 Then Text5.Text = "强"If Ba < -8 And Bk > -4 Then Text5.Text = "极强"Be = Ba + Z12If Be >= 0 Then Text6.Text = "轻微"If Be >= 0 Then Text7.Text = "极轻微"If Be >= -4 And Be <= -1 Then Text6.Text = "中等"If Be >= -4 And Be <= -1 Then Text7.Text = "极轻微"If Be >= -8 And Be <= -5 Then Text6.Text = "强"If Be >= -8 And Be <= -5 Then Text7.Text = "中等"If Be < -8 Then Text6.Text = "轻微"If Be < -8 Then Text7.Text = "极轻微"End SubPrivate Sub Command2_Click()EndEnd Sub。

浅谈盐渍土对工程的影响及评价

浅谈盐渍土对工程的影响及评价

浅谈盐渍土对工程的影响及评价1前言盐渍土是盐土和碱土以及各种盐化、碱化土壤的总称。

土体内易溶盐含量大于0.3%且小于20%并具有溶陷及盐胀等特性的土称为盐渍土。

盐渍土地基浸水后会产生溶陷,硫酸盐渍土等地基,在温度湿度变化时,会产生体积膨胀,盐渍土中的硫酸根离子氯离子等会导致建筑物和地下材料设施(混凝土、钢筋等)的腐蚀,综上所述,盐渍土地基对工程具有较强的危害性。

2盐渍土对工程的影响危害1.盐渍土溶陷性对工程的影响危害盐渍土溶陷性指因水对土中盐类的溶解和迁移作用而产生的土体沉陷,在盐渍土地区。

如果拟建建筑物地基遭遇水的侵蚀时候(如粉土粉砂等),建筑物除了因粉土湿陷等产生的自身地基沉降外,因水对地基土体的盐类溶解会产生额外的沉陷,因土体中盐类溶解,拟建建筑物地基基础强度丧失,地基土基础性质发生改变,承载力下降,地基土沉陷,会对工程产生较大影响。

1.盐渍土盐胀性对工程的影响危害盐渍土盐胀性是指因温度或者含水量变化而产生的土体体积增大的现象,按盐渍土含盐化学成分来说一般硫酸盐渍土地区及亚硫酸盐渍土地区易发生盐胀。

当盐渍土地基中硫酸钠含量小于1%,且使用环境条件不变时,可不计盐胀性对建筑物的影响。

对设计等级为甲级、乙级的建筑物,每一建设厂区或同一地质单元应进行不少于三组的现场浸水试验;对于设计等级为丙级的建筑物,可进行室内盐胀性试验。

盐胀性对公路路基有较大影响,会使路面每年因温度及含水量周期变化使公路路面不均匀膨胀,形成鼓包开裂等;对普通建筑会出现墙体和地坪的开裂。

因为盐渍土的盐胀性会对工程产生较大影响。

1.盐渍土腐蚀性对工程的影响危害盐渍土的腐蚀性对工程危害最大,在工程勘察中,主要评价盐渍土中硫酸盐及氯盐,地基土中氯盐会对混凝土结构中钢筋产生较大的腐蚀性,当混凝土浇筑质量不佳或者长期冻融等使钢筋混凝土中混凝土保护层破坏产生裂缝等情况时,地基土中氯离子会对钢筋产生强烈的腐蚀作用从而使钢筋混凝土抗剪性能严重下滑从而影响结构强度;地基土中硫酸根离子会对混凝土结构及烧结黏土砖等产生腐蚀作用,影响混凝土抗压强度从而影响整个建筑地基结构的强度,在进行工程建设勘察活动时候,应把盐渍土的腐蚀性放到重要位置上,采用合理的地基处理办法及防腐措施,以延长建筑物及地基基础设施的耐久性及安全性。

绍兴高压天然气管线工程沿线土壤腐蚀调查、腐蚀性评价报告

绍兴高压天然气管线工程沿线土壤腐蚀调查、腐蚀性评价报告

绍兴高压天然气管线工程沿线土壤腐蚀调查、腐蚀性评价报告目录—、前言1.管道为什么会发生腐蚀?2.地下管道存在两类腐蚀电池3.土壤介质腐蚀特点及评价方法4.现场勘测和实验室分析内容5.土壤勘测的必要性二、勘察依据、测试仪器三、土壤腐蚀性判断指标四、线路的概况和走向五、测试结果及分析六、阴极保护设计方案及说明一、前言:1. 管道为什么会发生腐蚀?土壤对管道的腐蚀属于电化学腐蚀范畴,其腐蚀原因,是土壤中固相、液相和气相三者对金属管道共同作用的结果。

造成金属离子脱离晶格跑到土壤中,金属中离子和电子分家,离子进入土壤,管道遭受腐蚀。

留在管道上的电子从电位负的阳极沿管道导体跑到电位正的阴极,土壤中空气和盐溶液使土壤具有离子导电性成为电解质。

土壤中的氧分子在阴极上得到电子还原成氢氧根离子,于是阳极过程、阴极过程和电流在管道上流动就不断进行,腐蚀也就不断进行。

阳极过程:金属成为金属离子并释放出电子,如铁Fe+ n H2O→Fe2+.nH2O +2e在中性和碱性土壤中,铁离子和氢氧根离子进一步生成氢氧化亚铁Fe2+ +2OH-→Fe(OH)2氢氧化亚铁在氧和水的作用下生成氢氧化铁2Fe(OH)2 +1/2 O2 +H2O→2Fe(OH)3氢氧化铁溶解度很小,比较疏松,覆盖在钢铁表面保护性差。

由于紧靠着电极的腐蚀,氢氧化铁和土粒粘在一起,形成一层紧密层,呈棕黄色锈层。

阴极过程:土壤中氧、水与电子结合生成氢氧根离子O2 + 2H2O + 4e→4OH-揭开管道腐蚀的秘密就是金属离子和电子分家,也就是活泼金属产生的电子不断被氧消耗,造成串联过程不断进行,金属腐蚀不断发生。

腐蚀速度取决于电子消耗速度,腐蚀速度大小用电流密度大小来衡量。

2. 地下管道存在两类腐蚀电池腐蚀分宏电池和微电池二类,腐蚀形式分均匀腐蚀和局部腐蚀,以局部腐蚀危害性最大,埋地管道多以局部腐蚀为主。

地下管线腐蚀形态:金属管线在土壤中的腐蚀过程主要是电化学溶解过程,由于形成腐蚀电池而导致地下管线的锈蚀穿孔。

建筑场地水、土腐蚀性的调查、测试与评价

建筑场地水、土腐蚀性的调查、测试与评价

现有的研究主要集中在理论层面,实 际应用方面的研究和探索相对较少, 未来需要加强应用基础研究,为建筑 场地水、土腐蚀性的调查、测试与评 价提供更加实用的方法和手段。
重视技术手段的提升
随着科技的发展,新的技术和手段如 大数据、人工智能、遥感等可以应用 于建筑场地水、土腐蚀性的调查、测 试与评价中,可以大大提高研究的效 率和精度。
任务和要求
充分了解建筑场地的自然和社会环境背景;
依据相关规范和标准,对场地水、土的腐蚀性进行评 价;
对建筑场地水、土进行全面的腐蚀性物质调查和测试 ;
为建筑场地的规划和设计提供可靠的腐蚀性数据支持 。
02
建筑场地水、土腐蚀性调查
调查目的和方法
01
了解建筑场地的水、土腐蚀性状况,为后续规划和设计提供基 础资料。
缺乏系统性和综合性
现有的研究大多针对某一特定的腐蚀因素或某一特定的建筑场地进行,缺乏对多 种因素的综合考虑和不同场地之间的比较,这使得难以形成普适性的结论和指导 。
研究需求和未来发展趋势
发展多学科交叉研究
加强应用基础研究
建筑场地水、土腐蚀性的调查、测试 与评价涉及到环境科学、地球化学、 土木工程等多个学科领域,需要不同 学科的交叉融合,以提供更全面、更 深入的认识和理解。
THANKS
谢谢您的观看
评价内容和标准
内容
主要包括建筑场地水的化学成分、微生物和放射性元素含量的测定,土壤的物理 性质、化学成分、微生物和放射性元素含量的测定,建筑材料耐腐蚀性能的评估 等。
标准
根据国家相关标准和规范,结合当地实际情况,制定具体的评价标准。
评价结果分析和解释
数据分析
将测试数据与标准数据进行比较,分析建筑场地水、土的腐 蚀性等级。

影响土壤腐蚀的因素

影响土壤腐蚀的因素

影响土壤腐蚀的因素土壤的腐蚀性主要受到多种因素的影响。

1.含盐量土壤中含有多种矿物盐,其可溶盐的含量与成分是影响电解质溶液导电性的主要因素,甚至有些成分还参与电化学反应,从而对土壤腐蚀性产生一定的影响。

一般,土壤中可溶盐的含量都在2%以内,很少超过5%。

土壤中分布最广的是含镁、钾、钠、钙元素的盐类。

因为铁盐大都是可溶盐,所以氯离子和硫酸根离子含量越大,土壤腐蚀性越强。

2.含水量土壤中总是有一定量的水分,含水量不同,土壤的腐蚀性不同。

(1)土壤含水量很低时,腐蚀性一般不大;(2)含水量增加,电解质溶液增多,腐蚀原电池回路电阻减小,腐蚀速度增大;(3)含水量增加到一定程度,土壤中的可溶盐已全部溶解,随着含水量的增加,不再有新的盐分溶解,腐蚀速度不再有较大的变化。

3.含氧量如前所述,O2是金属腐蚀的去极化剂,其存在,可以加速金属的腐蚀。

土壤中含氧量增加,可以减小阴极反应所受阻力,增加腐蚀电池的腐蚀电流即提高腐蚀速度。

由此,可以认为氧的存在可以起到去极化作用。

土壤中含氧量的大小与土壤的深度、结构、渗透性、含水量、温度和生物活动等因素有关。

在通常情况下,干燥疏松的土壤,含氧量较高;沼泽土和粘性较强的土壤,含氧量较低。

4.细菌如前所述,一般情况下含氧量越大,土壤腐蚀性越强。

但是在某些缺氧的土壤中仍发现存在严重的腐蚀,这是因为有细菌参加了腐蚀过程。

土壤中与金属腐蚀有关的细菌主要是硫酸盐还原菌。

硫酸盐还原菌属于厌氧性细菌,即只有在缺氧或无氧的条件下才能生存。

如果土壤中非常缺氧,而且有不存在氧浓差电池及杂散电流等腐蚀大电池时,腐蚀过程是很难进行的。

但是,对于含有硫酸盐的土壤,如果有硫酸盐还原菌的存在,腐蚀不但能顺利进行,而且更加严重。

细菌腐蚀并非它本身对金属的侵蚀作用,而是细菌生命活动的结果间接地对金属腐蚀的电化学过程产生影响。

据(阿果石油论坛)主要有以下4种方式影响腐蚀过程。

(1)新陈代谢产物的腐蚀作用:硫酸盐还原菌新陈代谢过程中产生的硫化物,可以促进金属的腐蚀。

安康市城区场地土的腐蚀性评价

安康市城区场地土的腐蚀性评价

安康市城区场地土的腐蚀性评价【摘要】长期以来,在场地土对建筑基础的腐蚀问题上,由于其作用的隐蔽性与危害的滞后性,一直没有引起业内人士的足够重视;在岩土工程实践中,许多地方还在拿以前的“地区经验”说话。

但是,随着环境污染问题的日益严重,包括大气、水体、场地土等介质的成分已经或正在发生变化,并通过运移、渗透等作用,使污染物得以不断扩散。

由此看来,介质的成分及其腐蚀性不是一成不变的,根据我单位长期在安康城区勘察作业,划分出安康城区场地土的腐蚀性等级,以供相关部门参考。

【关键词】场地土;腐蚀性;分析1.场地土的腐蚀性规范规定1.1采取土试样应符合下列规定(1)混凝土结构处于地下水位以上时,应取土试样做土的腐蚀性测试。

(2)混凝土结构部分处于地下水位以上、部分处于地下水位以下时,应取地下水位以上土试样做腐蚀性测试。

(3)土试样应在混凝土结构所在的深度采取,每个场地不应少于2件。

当土中盐类成分和含量分布不均匀时,应分区、分层取样,每区、每层不应少于2件。

1.2土腐蚀性的测试项目和试验方法应符合下列规定(1)土对混凝土结构腐蚀性的测试项目包括:pH值、Ca2+、Mg2+、Cl-、SO42-、HCO3-、CO32-、侵蚀性CO2、游离CO2、NH4+、OH-、总矿化度。

(2)土对混凝土结构腐蚀性的测试项目包括:pH值、Ca2+、Mg2+、Cl-、SO42-、HCO3-、CO32-的易溶盐(土水比1:5)分析。

(3)土对钢结构的腐蚀性的测试项目包括:pH值、氧化还原电位、极化电流密度、电阻率、质量损失。

1.3受环境类型影响,土对混凝土结构的腐蚀性注:(1)表中的数值适用于有干湿交替作用的情况,Ⅰ、Ⅱ类腐蚀环境无干湿交替作用时,表中硫酸盐含量数值应乘以1.3的系数。

(2)(此注取消)。

(3)表中数值对土的腐蚀性评价,应乘以1.5的系数;单位以mg/kg表示。

(4)表中苛性碱(OH-)含量(mg/L)应为NaOH和KOH中的OH-含量(mg/L)。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

土壤腐蚀性的影响及评价指数学生姓名学号教学院系专业年级指导教师单位二、代码:Private Sub Command1_Click()Dim Z1!, Z2!, Z3!, Z4!, Z5!, Z6!, Z7!, Z8!, Z9!, Z10!, Z11!, Z12! Dim Bo!, B1!, Ba!, Bk!, Be!Dim a!, b!, c!, d!If Check1.Value = 1 Then Z1 = 4If Check2.Value = 1 Then Z1 = 2If Check3.Value = 1 Then Z1 = 0If Check4.Value = 1 Then Z1 = -2If Check5.Value = 1 Then Z1 = -4If Check6.Value = 1 Then Z1 = -12If Check7.Value = 1 Then Z1 = -12a = Val(InputBox("请输入测得土壤电阻率(Ω·cm)"))If a > 50000 Then Check8.Value = 1If a > 20000 And a <= 50000 Then Check9.Value = 1If a > 5000 And a <= 20000 Then Check10.Value = 1If a > 2000 And a <= 5000 Then Check11.Value = 1If a > 1000 And a <= 2000 Then Check12.Value = 1If a < 1000 Then Check13.Value = 1If Check8.Value = 1 Then Z2 = 4If Check9.Value = 1 Then Z2 = 2If Check10.Value = 1 Then Z2 = 0If Check11.Value = 1 Then Z2 = -2If Check12.Value = 1 Then Z2 = -4If Check13.Value = 1 Then Z2 = -6If Check14.Value = 1 Then Z3 = 0If Check15.Value = 1 Then Z3 = -1If Check16.Value = 1 Then Z4 = 2If Check17.Value = 1 Then Z4 = 0If Check18.Value = 1 Then Z4 = -1If Check19.Value = 1 Then Z4 = -3If Check20.Value = 1 Then Z5 = 0If Check21.Value = 1 Then Z5 = 1If Check22.Value = 1 Then Z5 = 3If Check23.Value = 1 Then Z5 = 0If Check24.Value = 1 Then Z5 = -2If Check25.Value = 1 Then Z5 = -4If Check26.Value = 1 Then Z5 = -6If Check27.Value = 1 Then Z5 = -8If Check28.Value = 1 Then Z5 = -10If Check29.Value = 1 Then Z6 = 0If Check30.Value = 1 Then Z6 = -3If Check31.Value = 1 Then Z6 = -6If Check32.Value = 1 Then Z7 = 0If Check33.Value = 1 Then Z7 = -1If Check34.Value = 1 Then Z7 = -2If Check35.Value = 1 Then Z7 = -3If Check36.Value = 1 Then Z7 = -4If Check37.Value = 1 Then Z8 = 0If Check38.Value = 1 Then Z8 = -1If Check39.Value = 1 Then Z8 = -2If Check40.Value = 1 Then Z8 = -3If Check41.Value = 1 Then Z9 = 0If Check42.Value = 1 Then Z9 = -1If Check43.Value = 1 Then Z9 = -2b = Val(InputBox("请输入第二次测得土壤电阻率(Ω·cm)")) If b > 50000 Thenc = 4If b > 20000 And a <= 50000 Then c = 2If b > 5000 And a <= 20000 Then c = 0If b > 2000 And a <= 5000 Then c = -2If b > 1000 And a <= 2000 Then c = -4If b < 1000 Then c = -6d = Abs(Z2 - c) 'd = |ΔZ2| If d < 2 Then Check44.Value = 1If d >= 2 And d <= 3 Then Check45.Value = 1If d > 3 Then Check46.Value = 1If Check44.Value = 1 Then Z10 = 0If Check45.Value = 1 Then Z10 = -4If Check46.Value = 1 Then Z10 = -2If d >= 2 And d <= 3 Then Check49.Value = 1If d >= 2 And d <= 3 Then Check47.Value = 0If d >= 2 And d <= 3 Then Check48.Value = 0If d >= 2 And d <= 3 Then Z11 = -1If d > 3 Then Check50.Value = 1If d > 3 Then Check47.Value = 0If d > 3 Then Check48.Value = 0If d > 3 Then Z11 = -2If Check47.Value = 1 Then Z11 = 0If Check48.Value = 1 Then Z11 = -6If Check51.Value = 1 Then Z12 = -3If Check52.Value = 1 Then Z12 = -8If Check53.Value = 1 Then Z12 = -10Bo = Z1 + Z2 + Z3 + Z4 + Z5 + Z6 + Z7 + Z8 + Z9B1 = Bo + Z10 + Z11If Bo >= 0 And B1 >= 0 Then Text1.Text = "Ⅰa"If Bo >= 0 And B1 >= 0 Then Text2.Text = "实际不腐蚀"If Bo >= 0 And B1 >= 0 Then Text3.Text = "极轻微"If Bo >= 0 And B1 >= 0 Then Text4.Text = "极轻微"If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text1.Text = "Ⅰb"If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text2.Text = "弱腐蚀" If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text3.Text = "轻微" If Bo >= -4 And Bo <= -1 And B1 >= -4 And B1 <= -1 Then Text4.Text = "极轻微" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text1.Text = "Ⅱ"If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text2.Text = "腐蚀" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text3.Text = "中等" If Bo >= -10 And Bo <= -5 And B1 >= -10 And B1 <= -5 Then Text4.Text = "轻微" If Bo < -10 And B1 < -10 Then Text1.Text = "Ⅱ"If Bo < -10 And B1 < -10 Then Text2.Text = "强腐蚀"If Bo < -10 And B1 < -10 Then Text3.Text = "极强等"If Bo < -10 And B1 < -10 Then Text4.Text = "中等"Ba = Z1 + Z2 + Z4 + Z5 + Z6 + Z7 + Z8Bk = Z1 - Z2 + Z4 + Z5 + Z6If Ba >= 0 And Bk < -4 Then Text5.Text = "不起作用"If Ba > -4 And Ba < -1 And Bk >= -4 And Bk <= -1 Then Text5.Text = "弱"If Ba > -8 And Ba < -5 And Bk >= -4 And Bk <= 0 Then Text5.Text = "强"If Ba < -8 And Bk > -4 Then Text5.Text = "极强"Be = Ba + Z12If Be >= 0 Then Text6.Text = "轻微"If Be >= 0 Then Text7.Text = "极轻微"If Be >= -4 And Be <= -1 Then Text6.Text = "中等"If Be >= -4 And Be <= -1 Then Text7.Text = "极轻微"If Be >= -8 And Be <= -5 Then Text6.Text = "强"If Be >= -8 And Be <= -5 Then Text7.Text = "中等"If Be < -8 Then Text6.Text = "轻微"If Be < -8 Then Text7.Text = "极轻微"End SubPrivate Sub Command2_Click()EndEnd Sub。

相关文档
最新文档