地面水评价分级

Private Sub Command1_Click()



    '给建设项目污水排放量分类，按评价导则分为五类，分类依据为：200-1000-5000-10000-2000 五类

    Dim qs As Single

    qs = Text1.Text

    If qs > 20000 Or qs = 20000 Then

        qsflag = 1

    ElseIf qs < 20000 And qs > 10000 Or qs = 10000 Then

        qsflag = 2

    ElseIf qs < 10000 And qs > 5000 Or qs = 5000 Then

        qsflag = 3

    ElseIf qs < 5000 And qs > 1000 Or qs = 1000 Then

        qsflag = 4

    ElseIf qs < 1000 And qs > 200 Or qs = 200 Then

        qsflag = 5

    Else

        qslfag = 6

    End If



    '给污水复杂程度分类

    If Check1.Value = vbChecked And Check2.Value = vbChecked And Check3.Value = vbChecked And Check4.Value = vbChecked Then

        AA = 1

    ElseIf Check1.Value = vbChecked And Check2.Value = vbChecked And Check3.Value = vbChecked Then

        AA = 1

    ElseIf Check1.Value = vbChecked And Check2.Value = vbChecked And Check4.Value = vbChecked Then

        AA = 1

    ElseIf Check4.Value = vbChecked And Check2.Value = vbChecked And Check3.Value = vbChecked Then

        AA = 1

    ElseIf Check1.Value = vbChecked And Check2.Value = vbChecked Then

        AA = 2

    ElseIf Check1.Value = vbChecked And Check3.Value = vbChecked Then

        AA = 2

    ElseIf Check1.Value = vbChecked And Check4.Value = vbChecked Then

        AA = 2

    ElseIf Check2.Value = vbChecked And Check3.Value = vbChecked Then

        AA = 2

    ElseIf Check2.Value = vbChecked And Check4.Value = vbChecked Then

        AA = 2

    ElseIf Check3.Value = vbChecked And Check4.Value = vbChecked Then

        AA = 2

    ElseIf Check1.Value = vbChecked Then

        AA = 3

    ElseIf Check2.Value = vbChecked Then

        AA = 3

    ElseIf Check3.Value = vbChecked Then

        AA = 3

    ElseIf Check4.Value = True Then

        AA = 3

    Else

        AA = 4

    End If



    bb = Text2.Text



    If AA = 1 Then

        QMFLAG = 1 '复杂

    ElseIf AA = 2 And (bb > 10 Or bb = 10) Then

        QMFLAG = 1 '复杂

    ElseIf AA = 2 And bb < 10 Then

        QMFLAG = 2 '中等

    ElseIf AA = 3 And (bb > 7 Or bb = 7) Then

        QMFLAG = 2 '中等

    ElseIf AA = 3 And bb < 7 Then

        QMFLAG = 3 '简单

    Else

        QMFLAG = 4 '未定义类型

    End If



    If TabStrip1.SelectedItem = "河流与河口（1）" Then



        '地表水评价等线的划分



        '污水排放量大于或等于20000



        cc = "依据你所输入的参数，评价工作等级划分建议如下：" & vbLf



        If qsflag = 1 And QMFLAG = 1 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 1 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 2 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 2 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水排放量大于或等于10000小于20000



        ElseIf qsflag = 2 And QMFLAG = 1 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 2 And QMFLAG = 1 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 2 And QMFLAG = 2 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 2 And QMFLAG = 2 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And Option1.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And (Option2.Value = True Or Option3.Value = True) Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



            '污水排放量大于或等于5000小于10000

        ElseIf qsflag = 3 And QMFLAG = 1 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 1 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 2 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 3 And QMFLAG = 2 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 3 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 3 And QMFLAG = 3 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水排放量大于或等于1000小于5000

        ElseIf qsflag = 4 And QMFLAG = 1 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 1 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 4 And QMFLAG = 2 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 2 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 3 And (Option1.Value = True Or Option2.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD



        ElseIf qsflag = 4 And QMFLAG = 3 And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水量大于或等于200小于1000



        ElseIf qsflag = 5 And (QMFLAG = 1 Or QMFLAG = 2 Or GMFLAG = 3) And (Option1.Value = True Or Option2.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD



        ElseIf qsflag = 5 And (QMFLAG = 1 Or QMFLAG = 2 Or GMFLAG = 3) And Option3.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        Else

            RichTextBox1.Text = "无分级表上对应的参数"

        End If



        '转湖库分级



    ElseIf TabStrip1.SelectedItem = "湖泊与水库（2）" Then

        '地表水评价等线的划分



        '污水排放量大于或等于20000



        cc = "依据你所输入的参数，评价工作等级划分建议如下：" & vbLf



        If qsflag = 1 And QMFLAG = 1 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 1 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 2 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 2 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水排放量大于或等于10000小于20000



        ElseIf qsflag = 2 And QMFLAG = 1 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 2 And QMFLAG = 1 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 2 And QMFLAG = 2 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 2 And QMFLAG = 2 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And Option11.Value = True Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 1 And QMFLAG = 3 And (Option10.Value = True Or Option9.Value = True) Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



            '污水排放量大于或等于5000小于10000

        ElseIf qsflag = 3 And QMFLAG = 1 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 1 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 2 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 3 And QMFLAG = 2 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 3 And QMFLAG = 3 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 3 And QMFLAG = 3 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水排放量大于或等于1000小于5000

        ElseIf qsflag = 4 And QMFLAG = 1 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 1 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为一级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅳ类水体,评价等级划分为二级" & vbLf

            Ff = "    如果该类污水排放地表水Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE & Ff



        ElseIf qsflag = 4 And QMFLAG = 2 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-II类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅲ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 2 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅲ类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水Ⅳ-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        ElseIf qsflag = 4 And QMFLAG = 3 And (Option11.Value = True Or Option10.Value = True) Then



            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD



        ElseIf qsflag = 4 And QMFLAG = 3 And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I类水体,评价等级划分为二级" & vbLf

            EE = "    如果该类污水排放地表水II-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



            '污水量大于或等于200小于1000



        ElseIf qsflag = 5 And (QMFLAG = 1 Or QMFLAG = 2 Or GMFLAG = 3) And (Option11.Value = True Or Option10.Value = True) Then

            DD = "    如果该类污水排放地表水I-Ⅳ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD



        ElseIf qsflag = 5 And (QMFLAG = 1 Or QMFLAG = 2 Or GMFLAG = 3) And Option9.Value = True Then

            DD = "    如果该类污水排放地表水I-Ⅴ类水体,评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD & EE



        Else

            RichTextBox1.Text = "无分级表上对应的参数"

        End If



        '转海湾分级



    ElseIf TabStrip1.SelectedItem = "海湾（3）" Then

        Dim qD As Single

        qD = Text1.Text

        If qD > 20000 Or qD = 20000 Then

            qsflag = 1

        ElseIf qD < 20000 And qD > 5000 Or qD = 5000 Then

            qsflag = 2

        ElseIf qD < 5000 And qD > 1000 Or qD = 1000 Then

            qsflag = 3

        ElseIf qD < 1000 And qD > 500 Or qD = 500 Then

            qsflag = 4

        Else

            qsflag = 5

        End If



        cc = "依据你所输入的参数，评价工作等级划分建议如下：" & vbLf



        If qsflag = 1 And QMFLAG = 1 And Option1.Value = True Then

            DD = "    建议评价等级划分为一级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 1 And QMFLAG = 2 And Option1.Value = True Then

            DD = "    建议评价等级划分为一级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 1 And QMFLAG = 3 And Option2.Value = True Then

            DD = "    建议评价等级划分为一级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 1 And QMFLAG = 3 And Option3.Value = True Then

            DD = "    建议评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 2 And QMFLAG = 1 And Option2.Value = True Then

            DD = "    建议评价等级划分为一级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 2 And QMFLAG = 1 And Option3.Value = True Then

            DD = "    建议评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 2 And (QMFLAG = 2 Or QMFLAG = 3) And Option2.Value = True Then

            DD = "    建议评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 2 And (QMFLAG = 2 Or QMFLAG = 3) And Option3.Value = True Then

            DD = "    建议评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 3 And QMFLAG = 1 And Option2.Value = True Then

            DD = "    建议评价等级划分为二级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 3 And QMFLAG = 1 And Option3.Value = True Then

            DD = "    建议评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 3 And (QMFLAG = 2 Or QMFLAG = 3) And Option1.Value = True Then

            DD = "    建议评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD

        ElseIf qsflag = 4 And Option1.Value = True Then

            DD = "    建议评价等级划分为三级" & vbLf

            RichTextBox1.Text = cc & DD

        Else

            RichTextBox1.Text = "无分级表上对应的参数"

        End If

    End If

End Sub



Private Sub Form_Load()

    Frame3.Visible = True

    Frame6.Visible = False

End Sub



Private Sub Option13_Click()

    Option11.Caption = "大湖(库)≥25km^2"

    Option10.Caption = "中湖(库)在2.5-25km^2"

    Option9.Caption = "小湖(库)在<2.5km^2"

End Sub



Private Sub Option12_Click()

    Option11.Caption = "大湖(库)≥50km^2"

    Option10.Caption = "中湖(库)在5-50km^2"

    Option9.Caption = "小湖(库)在<5km^2"



End Sub



Private Sub TabStrip1_Click()



    If TabStrip1.SelectedItem = "河流与河口（1）" Then

        Frame6.Visible = False

        Frame3.Visible = True

        Frame3.Caption = "地面水域的大小规模和水质要求"

    ElseIf TabStrip1.SelectedItem = "湖泊与水库（2）" Then

        Option13.Value = True

        Frame6.Visible = True

        Frame3.Visible = False

    ElseIf TabStrip1.SelectedItem = "海湾（3）" Then

        Frame6.Visible = False

        Frame3.Visible = True

        Label8.Caption = "海湾的类型分为以下三类,请选择相应的海湾类型"

        Option1.Caption = "各类海湾"

        Option2.Caption = "小型封闭海湾"

        Option3.Caption = "其它海湾"

        Frame3.Caption = "海湾类型"

    Else

    End If



End Sub