土壤腐蚀性的影响及评价指数
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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 = 4
If Check2.Value = 1 Then Z1 = 2
If Check3.Value = 1 Then Z1 = 0
If Check4.Value = 1 Then Z1 = -2
If Check5.Value = 1 Then Z1 = -4
If Check6.Value = 1 Then Z1 = -12
If Check7.Value = 1 Then Z1 = -12
a = Val(InputBox("请输入测得土壤电阻率（Ω·cm）"))
If a > 50000 Then Check8.Value = 1
If a > 20000 And a <= 50000 Then Check9.Value = 1
If a > 5000 And a <= 20000 Then Check10.Value = 1
If a > 2000 And a <= 5000 Then Check11.Value = 1
If a > 1000 And a <= 2000 Then Check12.Value = 1
If a < 1000 Then Check13.Value = 1
If Check8.Value = 1 Then Z2 = 4
If Check9.Value = 1 Then Z2 = 2
If Check10.Value = 1 Then Z2 = 0
If Check11.Value = 1 Then Z2 = -2
If Check12.Value = 1 Then Z2 = -4
If Check13.Value = 1 Then Z2 = -6
If Check14.Value = 1 Then Z3 = 0
If Check15.Value = 1 Then Z3 = -1
If Check16.Value = 1 Then Z4 = 2
If Check17.Value = 1 Then Z4 = 0
If Check18.Value = 1 Then Z4 = -1
If Check19.Value = 1 Then Z4 = -3
If Check20.Value = 1 Then Z5 = 0
If Check21.Value = 1 Then Z5 = 1
If Check22.Value = 1 Then Z5 = 3
If Check23.Value = 1 Then Z5 = 0
If Check24.Value = 1 Then Z5 = -2
If Check25.Value = 1 Then Z5 = -4
If Check26.Value = 1 Then Z5 = -6
If Check27.Value = 1 Then Z5 = -8
If Check28.Value = 1 Then Z5 = -10
If Check29.Value = 1 Then Z6 = 0
If Check30.Value = 1 Then Z6 = -3
If Check31.Value = 1 Then Z6 = -6
If Check32.Value = 1 Then Z7 = 0
If Check33.Value = 1 Then Z7 = -1
If Check34.Value = 1 Then Z7 = -2
If Check35.Value = 1 Then Z7 = -3
If Check36.Value = 1 Then Z7 = -4
If Check37.Value = 1 Then Z8 = 0
If Check38.Value = 1 Then Z8 = -1
If Check39.Value = 1 Then Z8 = -2
If Check40.Value = 1 Then Z8 = -3
If Check41.Value = 1 Then Z9 = 0
If Check42.Value = 1 Then Z9 = -1
If Check43.Value = 1 Then Z9 = -2
b = Val(InputBox("请输入第二次测得土壤电阻率（Ω·cm）")) If b > 50000 Then
c = 4
If b > 20000 And a <= 50000 Then c = 2
If b > 5000 And a <= 20000 Then c = 0
If b > 2000 And a <= 5000 Then c = -2
If b > 1000 And a <= 2000 Then c = -4
If b < 1000 Then c = -6
d = Abs(Z2 - c) 'd = |ΔZ2| If d < 2 Then Check44.Valu
e = 1
If d >= 2 And d <= 3 Then Check45.Value = 1
If d > 3 Then Check46.Value = 1
If Check44.Value = 1 Then Z10 = 0
If Check45.Value = 1 Then Z10 = -4
If Check46.Value = 1 Then Z10 = -2
If d >= 2 And d <= 3 Then Check49.Value = 1
If d >= 2 And d <= 3 Then Check47.Value = 0
If d >= 2 And d <= 3 Then Check48.Value = 0
If d >= 2 And d <= 3 Then Z11 = -1
If d > 3 Then Check50.Value = 1
If d > 3 Then Check47.Value = 0
If d > 3 Then Check48.Value = 0
If d > 3 Then Z11 = -2
If Check47.Value = 1 Then Z11 = 0
If Check48.Value = 1 Then Z11 = -6
If Check51.Value = 1 Then Z12 = -3
If Check52.Value = 1 Then Z12 = -8
If Check53.Value = 1 Then Z12 = -10
Bo = Z1 + Z2 + Z3 + Z4 + Z5 + Z6 + Z7 + Z8 + Z9
B1 = Bo + Z10 + Z11
If 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 = "极轻微"