frmgroundwater1.frm

水质模糊综合评价系统 水质模糊综合评价系统 水质模糊综合评价系统

ElseIf Val(Text1.Text) > 8.5 And Val(Text1.Text) <= 9 Then
     Label1.Caption = "Ⅳ类"
     f1 = 6
ElseIf Val(Text1.Text) < 5.5 And Val(Text1.Text) > 0 Then
     Label1.Caption = "Ⅴ类"
     f1 = 10
ElseIf Val(Text1.Text) > 9 Then
     Label1.Caption = "Ⅴ类"
     f1 = 10
End If
End Sub

Private Sub Text10_Change()
'根据不同的文本框输入值标签显示不同的水质类别
If Val(Text10.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text10.Text) > 0 And Val(Text10.Text) <= 150 Then
     Label10.Caption = "Ⅰ类"
     f10 = 0
ElseIf Val(Text10.Text) > 150 And Val(Text10.Text) <= 300 Then
     Label10.Caption = "Ⅱ类"
     f10 = 1
ElseIf Val(Text10.Text) > 300 And Val(Text10.Text) <= 450 Then
     Label10.Caption = "Ⅲ类"
     f10 = 3
 ElseIf Val(Text10.Text) > 450 And Val(Text10.Text) <= 550 Then
     Label10.Caption = "Ⅳ类"
     f10 = 6
ElseIf Val(Text10.Text) > 550 Then
     Label10.Caption = "Ⅴ类"
     f10 = 10
End If
End Sub

Private Sub Text11_Change()
'根据不同的文本框输入值标签显示不同的水质类别
If Val(Text11.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text11.Text) > 0 And Val(Text11.Text) <= 0.005 Then
     Label11.Caption = "Ⅰ类"
     f11 = 0
ElseIf Val(Text11.Text) > 0.005 And Val(Text11.Text) <= 0.01 Then
     Label11.Caption = "Ⅱ类"
     f11 = 1
ElseIf Val(Text11.Text) > 0.01 And Val(Text11.Text) <= 0.05 Then
     Label11.Caption = "Ⅲ类"
     f11 = 3
 ElseIf Val(Text11.Text) > 0.05 And Val(Text11.Text) <= 0.1 Then
     Label11.Caption = "Ⅳ类"
     f11 = 6
ElseIf Val(Text11.Text) > 0.1 Then
     Label11.Caption = "Ⅴ类"
     f11 = 10
End If

End Sub

Private Sub Text12_Change()
'根据不同的文本框输入值标签显示不同的水质类别
If Val(Text12.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text12.Text) > 0 And Val(Text12.Text) <= 1 Then
     Label12.Caption = "Ⅰ类"
     f12 = 0
 ElseIf Val(Text12.Text) > 1 And Val(Text12.Text) <= 2 Then
     Label12.Caption = "Ⅳ类"
     f12 = 6
ElseIf Val(Text12.Text) > 2 Then
     Label12.Caption = "Ⅴ类"
     f12 = 10
End If
End Sub

Private Sub Text13_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text13.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text13.Text) > 0 And Val(Text13.Text) <= 0.0001 Then
     Label13.Caption = "Ⅰ类"
     f13 = 0
ElseIf Val(Text13.Text) > 0.0001 And Val(Text13.Text) <= 0.001 Then
     Label13.Caption = "Ⅱ类"
     f13 = 1
ElseIf Val(Text13.Text) > 0.001 And Val(Text13.Text) <= 0.01 Then
     Label13.Caption = "Ⅲ类"
     f13 = 3
ElseIf Val(Text13.Text) > 0.01 Then
     Label13.Caption = "Ⅴ类"
     f13 = 10
End If
End Sub

Private Sub Text14_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text14.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
 Exit Sub

ElseIf Val(Text14.Text) > 0 And Val(Text14.Text) <= 0.1 Then
     Label14.Caption = "Ⅰ类"
     f14 = 0
ElseIf Val(Text14.Text) > 0.1 And Val(Text14.Text) <= 0.2 Then
     Label14.Caption = "Ⅱ类"
     f14 = 1
ElseIf Val(Text14.Text) > 0.2 And Val(Text14.Text) <= 0.3 Then
     Label14.Caption = "Ⅲ类"
     f14 = 3
 ElseIf Val(Text14.Text) > 0.3 And Val(Text14.Text) <= 1.5 Then
     Label14.Caption = "Ⅳ类"
     f14 = 6
ElseIf Val(Text14.Text) > 1.5 Then
     Label14.Caption = "Ⅴ类"
     f14 = 10
End If
End Sub

Private Sub Text15_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text15.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub

ElseIf Val(Text15.Text) > 0 And Val(Text15.Text) <= 0.05 Then
     Label15.Caption = "Ⅰ类"
f15 = 0
ElseIf Val(Text15.Text) > 0.05 And Val(Text15.Text) <= 0.1 Then
     Label15.Caption = "Ⅲ类"
     f15 = 3
 ElseIf Val(Text15.Text) > 0.1 And Val(Text15.Text) <= 1 Then
     Label15.Caption = "Ⅳ类"
     f15 = 6
ElseIf Val(Text15.Text) > 1 Then
     Label15.Caption = "Ⅴ类"
     f15 = 10
End If
End Sub

Private Sub Text16_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text16.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text16.Text) > 0 And Val(Text16.Text) <= 300 Then
     Label16.Caption = "Ⅰ类"
     f16 = 0
ElseIf Val(Text16.Text) > 300 And Val(Text16.Text) <= 500 Then
     Label16.Caption = "Ⅱ类"
     f16 = 1
ElseIf Val(Text16.Text) > 500 And Val(Text16.Text) <= 1000 Then
     Label16.Caption = "Ⅲ类"
     f16 = 3
 ElseIf Val(Text16.Text) > 1000 And Val(Text16.Text) <= 2000 Then
     Label16.Caption = "Ⅳ类"
     f16 = 6
ElseIf Val(Text16.Text) > 2000 Then
     Label16.Caption = "Ⅴ类"
     f16 = 10
End If
End Sub

Private Sub Text17_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text17.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text17.Text) > 0 And Val(Text17.Text) <= 1 Then
     Label17.Caption = "Ⅰ类"
     f17 = 0
ElseIf Val(Text17.Text) > 1 And Val(Text17.Text) <= 2 Then
     Label17.Caption = "Ⅱ类"
     f17 = 1
ElseIf Val(Text17.Text) > 2 And Val(Text17.Text) <= 3 Then
     Label17.Caption = "Ⅲ类"
     f17 = 3
 ElseIf Val(Text17.Text) > 3 And Val(Text17.Text) <= 10 Then
     Label17.Caption = "Ⅳ类"
     f17 = 6
ElseIf Val(Text17.Text) > 10 Then
     Label17.Caption = "Ⅴ类"
     f17 = 10
End If
End Sub

Private Sub Text18_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text18.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text18.Text) > 0 And Val(Text18.Text) <= 50 Then
     Label18.Caption = "Ⅰ类"
     f18 = 0
ElseIf Val(Text18.Text) > 50 And Val(Text18.Text) <= 150 Then
     Label18.Caption = "Ⅱ类"
     f18 = 1
ElseIf Val(Text18.Text) > 150 And Val(Text18.Text) <= 250 Then
     Label18.Caption = "Ⅲ类"
     f18 = 3
 ElseIf Val(Text18.Text) > 250 And Val(Text18.Text) <= 350 Then
     Label18.Caption = "Ⅳ类"
     f18 = 6
ElseIf Val(Text18.Text) > 350 Then
     Label18.Caption = "Ⅴ类"
     f18 = 10
End If
End Sub

Private Sub Text19_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text19.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
   Exit Sub
ElseIf Val(Text19.Text) > 0 And Val(Text19.Text) <= 50 Then
     Label19.Caption = "Ⅰ类"
     f19 = 0
ElseIf Val(Text19.Text) > 50 And Val(Text19.Text) <= 150 Then
     Label19.Caption = "Ⅱ类"
     f19 = 1
ElseIf Val(Text19.Text) > 150 And Val(Text19.Text) <= 250 Then
     Label19.Caption = "Ⅲ类"
     f19 = 3
 ElseIf Val(Text19.Text) > 250 And Val(Text19.Text) <= 350 Then
     Label19.Caption = "Ⅳ类"
     f19 = 6
ElseIf Val(Text19.Text) > 350 Then
     Label19.Caption = "Ⅴ类"
     f19 = 10
End If
End Sub

Private Sub Text2_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text2.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text2.Text) > 0 And Val(Text2.Text) <= 0.02 Then
     Label2.Caption = "Ⅰ类"
     f2 = 0
ElseIf Val(Text2.Text) > 0.02 And Val(Text2.Text) <= 0.2 Then
     Label2.Caption = "Ⅲ类"
     f2 = 3
 ElseIf Val(Text2.Text) > 0.2 And Val(Text2.Text) <= 0.5 Then
     Label2.Caption = "Ⅳ类"
     f2 = 6
ElseIf Val(Text2.Text) > 0.5 Then
     Label2.Caption = "Ⅴ类"
     f2 = 10
End If
End Sub

Private Sub Text20_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text20.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text20.Text) > 0 And Val(Text20.Text) <= 3 Then
     Label20.Caption = "Ⅰ类"
 ElseIf Val(Text20.Text) > 3 And Val(Text20.Text) <= 100 Then
     Label20.Caption = "Ⅳ类"
ElseIf Val(Text20.Text) > 100 Then
     Label20.Caption = "Ⅴ类"
End If
End Sub


Private Sub Text3_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text3.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text3.Text) > 0 And Val(Text3.Text) <= 2 Then
     Label3.Caption = "Ⅰ类"
     f3 = 0
ElseIf Val(Text3.Text) > 2 And Val(Text3.Text) <= 5 Then
     Label3.Caption = "Ⅱ类"
     f3 = 1
ElseIf Val(Text3.Text) > 5 And Val(Text3.Text) <= 20 Then
     Label3.Caption = "Ⅲ类"
     f3 = 3
 ElseIf Val(Text3.Text) > 20 And Val(Text3.Text) <= 30 Then
     Label3.Caption = "Ⅳ类"
     f3 = 6
ElseIf Val(Text3.Text) > 30 Then
     Label3.Caption = "Ⅴ类"
     f3 = 10
End If
End Sub

Private Sub Text4_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text4.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text4.Text) > 0 And Val(Text4.Text) <= 0.001 Then
     Label4.Caption = "Ⅰ类"
     f4 = 0
ElseIf Val(Text4.Text) > 0.001 And Val(Text4.Text) <= 0.01 Then
     Label4.Caption = "Ⅱ类"
     f4 = 1
ElseIf Val(Text4.Text) > 0.01 And Val(Text4.Text) <= 0.02 Then
     Label4.Caption = "Ⅲ类"
     f4 = 3
 ElseIf Val(Text4.Text) > 0.02 And Val(Text4.Text) <= 0.1 Then
     Label4.Caption = "Ⅳ类"
     f4 = 6
ElseIf Val(Text4.Text) > 0.1 Then
     Label4.Caption = "Ⅴ类"
     f4 = 10
End If
End Sub

Private Sub Text5_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text5.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text5.Text) > 0 And Val(Text5.Text) <= 0.001 Then
     Label5.Caption = "Ⅰ类"
     f5 = 0
ElseIf Val(Text5.Text) > 0.001 And Val(Text5.Text) <= 0.002 Then
     Label5.Caption = "Ⅲ类"
     f5 = 3
 ElseIf Val(Text5.Text) > 0.002 And Val(Text5.Text) <= 0.01 Then
     Label5.Caption = "Ⅳ类"
     f5 = 6
ElseIf Val(Text5.Text) > 0.01 Then
     Label5.Caption = "Ⅴ类"
     f5 = 10
End If
End Sub

Private Sub Text6_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text6.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   
ElseIf Val(Text6.Text) > 0 And Val(Text6.Text) <= 0.001 Then
     Label6.Caption = "Ⅰ类"
     f6 = 0
ElseIf Val(Text6.Text) > 0.001 And Val(Text6.Text) <= 0.01 Then
     Label6.Caption = "Ⅱ类"
     f6 = 1
ElseIf Val(Text6.Text) > 0.01 And Val(Text6.Text) <= 0.05 Then
     Label6.Caption = "Ⅲ类"
     f6 = 3
 ElseIf Val(Text6.Text) > 0.05 And Val(Text6.Text) <= 0.1 Then
     Label6.Caption = "Ⅳ类"
     f6 = 6
ElseIf Val(Text6.Text) > 0.1 Then
     Label6.Caption = "Ⅴ类"
     f6 = 10
End If
End Sub

Private Sub Text7_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text7.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text7.Text) > 0 And Val(Text7.Text) <= 0.005 Then
     Label7.Caption = "Ⅰ类"
     f7 = 0
ElseIf Val(Text7.Text) > 0.005 And Val(Text7.Text) <= 0.01 Then
     Label7.Caption = "Ⅱ类"
     f7 = 1
ElseIf Val(Text7.Text) > 0.01 And Val(Text7.Text) <= 0.05 Then
     Label7.Caption = "Ⅲ类"
     f7 = 3
ElseIf Val(Text7.Text) > 0.05 Then
     Label7.Caption = "Ⅴ类"
     f7 = 10
End If
End Sub

Private Sub Text8_Change()
'根据不同的文本框输入值标签显示不同的水质类别

If Val(Text8.Text) < 0 Then
   MsgBox "请输入合理的数值!", vbOKOnly + vbExclamation, "提示"
   Exit Sub
ElseIf Val(Text8.Text) > 0 And Val(Text8.Text) <= 0.00005 Then
     Label8.Caption = "Ⅰ类"
     f8 = 0
ElseIf Val(Text8.Text) > 0.00005 And Val(Text8.Text)