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

土壤腐蚀性的影响及评价指数（DIN 50929）
Private Sub Check1_Click() z1 = 4
End Sub
Private Sub Check10_Click() z2 = 0
End Sub
Private Sub Check11_Click()
与外阴极相连时的腐蚀概率
评定充气差异电池的阳极和阴极作用
土壤腐蚀和腐蚀概率
End Sub
Private Sub Check12_Click() z2 = -4
End Sub
Private Sub Check13_Click() z2 = -6
End Sub
Private Sub Check14_Click() z3 = 0
End Sub
Private Sub Check15_Click() z3 = -1
End Sub
Private Sub Check16_Click() z4 = 2
Private Sub Check17_Click() z4 = 0
End Sub
Private Sub Check18_Click() z4 = -1
End Sub
Private Sub Check19_Click() z4 = -3
End Sub
Private Sub Check2_Click() z1 = 2
End Sub
Private Sub Check20_Click() z9 = 0
End Sub
Private Sub Check21_Click() z9 = -1
End Sub
Private Sub Check22_Click() z9 = -2
End Sub
Private Sub Check23_Click() z10 = 0
End Sub
Private Sub Check24_Click() z10 = -4
End Sub
Private Sub Check25_Click() z10 = -2
End Sub
Private Sub Check26_Click()
End Sub
Private Sub Check27_Click() z5 = 1
End Sub
Private Sub Check28_Click() z5 = 3
End Sub
Private Sub Check29_Click() z5 = 0
End Sub
Private Sub Check3_Click() z1 = 0
End Sub
Private Sub Check30_Click() z5 = -2
Private Sub Check31_Click() z5 = -4
End Sub
Private Sub Check32_Click() z5 = -6
End Sub
Private Sub Check33_Click() z5 = -8
End Sub
Private Sub Check34_Click() z5 = -10
End Sub
Private Sub Check35_Click() z6 = 0
End Sub
Private Sub Check36_Click() z6 = -3
End Sub
Private Sub Check37_Click() z6 = -6
End Sub
Private Sub Check38_Click() z7 = 0
End Sub
Private Sub Check39_Click() z7 = -1
End Sub
Private Sub Check4_Click() z1 = -2
End Sub
Private Sub Check40_Click()
End Sub
Private Sub Check41_Click() z7 = -3
End Sub
Private Sub Check42_Click() z7 = -4
End Sub
Private Sub Check43_Click() z8 = 0
End Sub
Private Sub Check44_Click() z8 = -1
End Sub
Private Sub Check45_Click() z8 = -2
Private Sub Check46_Click() z8 = -3
End Sub
Private Sub Check47_Click() z11 = 0
End Sub
Private Sub Check48_Click() z11 = -6
End Sub
Private Sub Check49_Click() z11 = -1
End Sub
Private Sub Check5_Click() z1 = -4
End Sub
Private Sub Check50_Click() z11 = -2
End Sub
Private Sub Check6_Click() z1 = -12
End Sub
Private Sub Check7_Click() z1 = -12
End Sub
Private Sub Check8_Click() z2 = 4
End Sub
Private Sub Check9_Click() z2 = 2
End Sub
Private Sub Option1_Click()
z12 = -3
End Sub
Private Sub Option2_Click()
z12 = -8
End Sub
Private Sub Option3_Click()
z12 = -10
End Sub
Private Sub Command1_Click()
Dim zifuch As String
B0 = z1 + z2 + z3 + z4 + z5 + z6 + z7 + z8 + z9 B1 = B0 + z10 + z11
Ba = z1 + z2 + z4 + z5 + z6 + z7 + z8
Bk = z1 - z2 + z4 + z5 + z6
Be = Ba + z12
If B0 >= 0 Then
zifuch = "土壤腐蚀性：实际不腐蚀"
ElseIf -1 <= B0 <= -4 Then zifuch = "土壤腐蚀性：弱腐蚀"
ElseIf -5 <= B0 <= -10 Then zifuch = "土壤腐蚀性：腐蚀"
ElseIf B0 < -10 Then zifuch = "土壤腐蚀性：强腐蚀"
End If
If B1 >= 0 Then
zifuch = zifuch + " " + "局部腐蚀或点蚀的腐蚀概率：极轻微均匀腐蚀的腐蚀概率：极轻微"
ElseIf -1 <= B1 <= -4 Then zifuch = zifuch + " " + "局部腐蚀或点蚀的腐蚀概率：轻微均匀腐蚀的腐蚀概率：极轻微"
ElseIf -5 <= B1 <= -10 Then zifuch = zifuch + " " + "局部腐蚀或点蚀的腐蚀概率：中等均匀腐蚀的腐蚀概率：轻微"
ElseIf B1 < -10 Then zifuch = zifuch + " " + "局部腐蚀或点蚀的腐蚀概率：极强均匀腐蚀的腐蚀概率：中等"
End If
zifuch = zifuch + " " + "充气电池阳极作用："
If Ba >= 0 Then
zifuch = zifuch + "不起作用"
ElseIf -1 <= Ba <= -4 Then zifuch = zifuch + "弱"
ElseIf -5 <= Ba <= -8 Then zifuch = zifuch + "强"
ElseIf Ba < -8 Then zifuch = zifuch + "极强"
End If
zifuch = zifuch + " " + "阴极作用:"
If Bk < -4 Then
zifuch = zifuch + "不起作用"
ElseIf -4 <= Bk <= -1 Then zifuch = zifuch + "弱"
ElseIf 0 <= Bk <= 4 Then zifuch = zifuch + "强"
ElseIf Bk > 4 Then zifuch = zifuch + "极强"
End If
zifuch = zifuch + " " + "与外阴极相连时的腐蚀概率："
If Be >= 0 Then
zifuch = zifuch + "局部腐蚀和点蚀腐蚀概率：轻微均匀腐蚀概率：极轻微" ElseIf -1 <= Be <= -4 Then zifuch = zifuch + "局部腐蚀和点蚀腐蚀概率：中
等均匀腐蚀概率：极轻微"
ElseIf -5 <= Be <= -8 Then zifuch = zifuch + "局部腐蚀和点蚀腐蚀概率：强均匀腐蚀概率：中等"
ElseIf Be < -8 Then zifuch = zifuch + "局部腐蚀和点蚀腐蚀概率：极强均匀腐蚀概率：增强"
End If
= zifuch
End Sub。