土壤腐蚀性的影响及评价指数学生姓名学号教学院系专业年级指导教师单位二、代码：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。