环评工具箱-帮助源码(2011版)

Dim A As String

Dim B As String

Private Sub Form_Load()

    Dim nodx As Node

    Set nodx = TreeView1.Nodes.Add(, , "R1", "关于环评工具箱")

    Set nodx = TreeView1.Nodes.Add("R1", tvwChild, "R11", "软件介绍")

    Set nodx = TreeView1.Nodes.Add("R1", tvwChild, "R12", "制作人员")

    nodx.EnsureVisible

    Set nodx = TreeView1.Nodes.Add("R1", tvwChild, "R13", "联系方式")

    Set nodx = TreeView1.Nodes.Add("R1", tvwChild, "R14", "关于环境技术网")

    nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R2", "关于《八五环境统计手册》")

    Set nodx = TreeView1.Nodes.Add("R2", tvwChild, "R21", "关于计算公式说明")

    Set nodx = TreeView1.Nodes.Add("R2", tvwChild, "R22", "感 谢")

    'nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R3", "关于《工业污染物产生和排放系数手册》")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R31", "产污系数的定义")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R32", "原始产污和排污系数")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R33", "过程排污系数和终端排污系数")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R34", "产污控制系数和排污控制系数")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R35", "个体产污系数和综合产污系数")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R36", "三次系数说明")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R37", "二次系数说明")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R38", "个体系数说明")

    Set nodx = TreeView1.Nodes.Add("R3", tvwChild, "R39", "原始系数说明")

    'nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R4", "关于《上岗培训教材》")

    Set nodx = TreeView1.Nodes.Add("R4", tvwChild, "R41", "引用说明")

    Set nodx = TreeView1.Nodes.Add("R4", tvwChild, "R42", "关于卫生防护距离")

    'nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R5", "关于《环境保护计算手册》")

    nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R6", "关于《环境保护实用数据手册》")

    nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R7", "升级历史")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R71", "注册版和非注册版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R72", "060718特别版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R73", "060808升级版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R74", "060808升级版(修正)")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R75", "061018升级版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R76", "07贺岁版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R77", "070218版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R78", "070218版(修正)")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R79", "070818版（测试版）")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R710", "070818版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R711", "环境技术网五周年纪念版")

    Set nodx = TreeView1.Nodes.Add("R7", tvwChild, "R712", "20111104版")

    nodx.EnsureVisible



    Set nodx = TreeView1.Nodes.Add(, , "R8", "意见和建议")

    nodx.EnsureVisible



    TreeView1.Style = tvwTreelinesPlusMinusText

    TreeView1.BorderStyle = vbFixedSingle

    TreeView1.LineStyle = tvwRootLines

    A = "关于环评工具箱"

    B = A & vbLf & "    您目前正在使用的为环境技术网2011版，软件在不断更新,请留意环境技术网(http://www.65et.com)或环境技术论坛(http://bbs.65et.com)下载最新升级版！"

    RichTextBox1.Text = B

End Sub



Private Sub TreeView1_Click()

    A = TreeView1.SelectedItem.Text

    If A = "关于环评工具箱" Then

        B = A & vbLf & "    您目前正在使用的为环境技术网2011版，软件在不断更新,请留意环境技术网(http://www.65et.com)或环境技术论坛(http://bbs.65et.com)下载最新升级版，软件版权归作者所有！"

        RichTextBox1.Text = B

    ElseIf A = "软件介绍" Then

        B = A & vbLf & "   环评工具箱，是环境技术网环评区各位版主们为本站环评会员根据相关书籍上的一些公式而编写的环评实用软件,目前共收录气工具箱、水工具箱、声工具箱、固体废物工具箱、燃料产污工具箱、风险评价工具箱、经验系数、其它工具箱和程序调用等九大类共约一百一十多个实用计算工具（不断更新中），供广大做环评的人员在实际工作中选用！由于水平和能力有限，欢迎批评指正"

        RichTextBox1.Text = B

    ElseIf A = "制作人员" Then

        B = A & vbLf & "    程序编制：windtree cnjlc coffee" & vbLf & "    资料收集整理：windtree coffee" & vbLf & "    界面建议：coffee nbfarmer" & vbLf & "    前期测试人员：cnjlc coffee nbfarmer 2008n2008......" & vbLf & vbLf & "    在此，对参与软件编制、测试的其它人员表示感谢"

        RichTextBox1.Text = B

    ElseIf A = "意见和建议" Then

        B = A & vbLf & "    在使用过程中，若有任何意义和建议：" & vbLf & "    请与我们联系！" & vbLf & "    你可以环境技术网环境评价区发表你关于此软件的看法和意见！" & vbLf & "    也可以直接与我联系,联系邮箱:" & vbLf & "    windtreeliu@gmail.com、薄荷糖<452790929@qq.com>。"

        RichTextBox1.Text = B

    ElseIf A = "联系方式" Then

        B = A & vbLf & "    你可以通过以下的几种方式与我们联系：" & vbLf & "    1、登录环境技术网：http://www.65et.com" & vbLf & "    2、登录环境技术论坛：http://bbs.65et.com" & vbLf & "    3、发送电子邮件至以下邮箱：windtreeliu@gmail.com、薄荷糖<452790929@qq.com>。"

        RichTextBox1.Text = B

    ElseIf A = "关于《八五环境统计手册》" Then

        B = A & vbLf & "    《八五环境统计手册》的确为一本好书！" & vbLf & "     该书系由国家环保局组织长期从事环境统计工作的工程技术人员编写，全面系统地介绍了环境统计指标的含义、统计口径和计算方法。主要有环境统计计算方法总论、大气污染统计、水污染统计、废渣污染统计、噪音污染统计、放射性污染统计、其他环境因素统计等十一章o重点介绍近百余个计算公式及其'应用案例，并附有我国各行业单位产品排污系数和大量计算图表，具有科学性与实用性相结合的特点。本书是各级环境统计工作人员的工具书，可供环境管理干部、环境监测人员、环境科研人员和环境主，设计人员参考。"

        RichTextBox1.Text = B

    ElseIf A = "关于计算公式说明" Then

        B = A & vbLf & "     本软件中有部分计算公式和数据引用《八五环境统计手册》这本书，有的地方已经出明出去，有的地方没有注明出去，但是，我们在编写过程中，严格按照《八五环境统计手册》上推荐的参数进行计算，对于没有实用价值，或是已经消失的行业，则没有录入！在编制计算程序过程中，或多或少的会存在错误，希望大家在使用过程中，如果发现有任何问题，请与我们联系，以便于我们进行修正，编制出更好的计算程序！"

        RichTextBox1.Text = B

    ElseIf A = "感 谢" Then

        B = A & vbLf & "    引用该书作者的介绍：《环境统计手册》编写组方品贤、江欣、奚元福编写，由方品贤同志总纂。参加本书重要内容的修改讨论或提供部分资料的同志有:吕友升、安子林、汤兴宝、郭延明、张巍、刘素贤、朱敬之、周广祥、黄友璋、孙树海等。在本书出版过程中，重庆市环保局、中国环境报重庆记者站做了许多工作！在此我们一并表示感谢！。"

        RichTextBox1.Text = B

    ElseIf A = "关于《工业污染物产生和排放系数手册》" Then

        B = A & vbLf & "    该书由国家环保总局科技标准司标准制！《工业污染物产生和排放系数手册》（手册》的数据，主要来源于科技标准司近年来若干项科研课题成果，如《工业污染源控制研究》、《燃煤设备产污系数的研究》和（乡镇工业污染物排放系数研究）。（工业污染源控制研究）是由科技标准司组织有色金属工业、轻工、电力、纺织、化工、钢铁和建材等七个工业部门和中国环境科学研究院的几百名科研和管理人员、历经四年艰苦工作完成的。这一课题，共调查1029家企业，在实测、物料衡算和调查分析了数目庞大的原始数据基础上，确定了48种产品的4398个系数。（燃煤设备产污系数的研究》共测试锅炉200多台，调查分析了上海、东北、华北和西南地区几百台锅炉和测试报告。"

        B = B & vbLf & "本手册共分三篇11章。第一篇给出我国主要工业的产污和排污系数，包括七个工业部门根据统一的技术要求确定的不同产品、不同生产工艺、不同生产规模和不同技术水平下的产污和排污系数，包括原始系数、个体系数、一次系数、二次系数、三次系数、2000年控制系数建议值，以及国外同行业的对比数据等。有的还提供了过程（工序）产污系数。其中一次系数、二次系数和三次系数是《工业污染源控制研究》课题提出的崭新概念，较好地解决了不同技术水平、生产规模和生产工艺中的污染物排放量之间的定量关系。第二篇给出我国主要燃煤设备（包括工业锅炉、茶浴炉和食堂大灶等）燃煤的产污系数（包括排放烟尘月飞和NO,等系数）。第三篇给出我国乡镇工业的污染物排放系数，该篇所有系数在付印前邀请专家进行了评审。本手册采用的原始数据年代较新、真实可靠，提供的系数不仅可用于环境规划、环境统计、环境监测、监督、排污收费和排污申报登记以及生产的过程控制，而且是科研和教学人员一本较好的参考书。"

        RichTextBox1.Text = B

    ElseIf A = "产污系数的定义" Then

        B = A & vbLf & "    产生污染活动的单位强度(如重量、体积和距离等)所产生的原始污染物量;污染物排放系数(简称排污系数)是指上述条件下经污染控制措施削减后或未经削减直接排放到环境中污染物童。显然，产污和排污系数与产品生产工艺、原材料、规模、设备技术水平以及污染控制措施有关。"

        RichTextBox1.Text = B

    ElseIf A = "原始产污和排污系数" Then

        B = A & vbLf & "    原始产污和排污系数是指对单个企业在正常生产条件下，通过实测或物料衡算或调查所得到的单位产品所产生或排放的原始污染物量。原始产污和排污系数的随机性很大，在相同工艺、规模和技术水平下因企业不同而不同。原始系数是求取个体和综合系数的基础依据。"

        RichTextBox1.Text = B

    ElseIf A = "过程产污系数和终端产污系数" Then

        B = A & vbLf & "    过程产污系数是指在生产线上独立生产工序(或工段)生产单位中间产品或最终产品产生的污染物量，不包括其前工序产生的污染物量。终端产污系数是指包括整个工艺生产线上生产单位最终产品产生的污染物量，终端产污系数是整个生产工艺线相应过程产污系数经折算后相加所得之和。"

        RichTextBox1.Text = B

    ElseIf A = "过程排污系数和终端排污系数" Then

        B = A & vbLf & "    过程排污系数是指在生产线上独立生产工序(或工段)有污染治理设施时生产单位产品所排放的污染物量，该系数与相应过程产污系数之差值即为该治理设施的单位产品污染物削减量。终端排污系数是指整个生产工艺线相应过程排污系数之和。整个生产工艺的单位产品污染物削减量即为终端产污系数与终端排污系数之差。"

        RichTextBox1.Text = B

    ElseIf A = "产污控制系数和排污控制系数" Then

        B = A & vbLf & "    产污和排污控制系数是指根据产污系数、生产工艺技术水平和最佳污染控制实用技术等条件规定的生产单位产品所产生或向环境排放的污染物量。实际上，产污和排污控制系数是，一种以产污和排污系数形式表达的产品生产工艺污染物产生和排放标准。"

        RichTextBox1.Text = B

    ElseIf A = "个体产污系数和综合产污系数" Then

        B = A & vbLf & "    个体产污系数是指特定产品在特定工艺(包括原料路线)、特定规模、特定设备技术水平以及正常管理水平条件下求得的产品生产污染物产生系数，综合产污系数是指按规定的计算方法对个体产污系数进行汇总求取的一种产污系数平均值。显然.综合产污系数由于汇总的层次和计算方法不同而显著不同，在编制主要行业和产品产污和排污系数时，规定根据个体系数进行一次(从技术水平到特定规模)、二次(从规模到特定工艺)和三次(从生产工艺到产品)汇总计算所得的产污系数分别称为一次产污系数、二次产污系数和三次产污系数。当系数层次划分少于或多于三个时，可依此类推命名。不能按上述定义的，根据相应行业的特点给出相应的一次、二次和三次产污和排污系数定义。"

        RichTextBox1.Text = B

    ElseIf A = "三次系数说明" Then

        B = A & vbLf & "    本篇中所编制的系数可用于有关行业污染排放现状评价和预测、新建项目或技术改造项目环境影响评价的污染产生量确定、排污收费污染物排放量核算、排污申报登记和许可排放量核算、行业污染物排放标准制定、产品环境标准和生产过程污染控制标准确定、企业清洁生产审计、环境标志或绿色产品的污染评价标准确定等方面。具体各类系数应用说明如下:" & vbLf & "三次系数：产品某个污染物的三次系数是指同一个产品，不同工艺的二次系数的加权综合，它综合了不同工艺，不同规模，不同技术水平，不同数据来源以及企业不藏原材料等因素，是产品产污和排污系数的最高综合。因此，当需要寻找某个产品某个污染物的产污或排污系数时，就是指三次最高综合系数，它是供寻找最概括的系数。"

        RichTextBox1.Text = B

    ElseIf A = "二次系数说明" Then

        B = A & vbLf & "    二次系数：产品某个污染物的二次系数是指同一产品，不同工艺下的一次系数的加权综合，它综合了同一工艺下不同规模.不同技术水平。不同工艺下的二次系数是不同的，二次系数之间的差异性反映了生产工艺的先进性程度，因此当需要寻找某个产品某个污染物在某个工艺下的产污或排污系数时，就是指二次综合系数，它是供寻找不同工艺下的产污或排污系数。"

        RichTextBox1.Text = B

    ElseIf A = "个体系数说明" Then

        B = A & vbLf & "    个体系数：产品的某个污染物的个体系数是指同一工艺，同一生产规模，同一技术水平下.不同方法数据来源的企业原始系数的加权综合。相同工艺，相同生产规模，不同技术水平的个体系数是不同的，个体系数的差异性反映了不同方法数据来源的差异性.它是供寻找同一工艺，同一规模，不同技术水平下的产污或排污系数。"

        RichTextBox1.Text = B

    ElseIf A = "原始系数说明" Then

        B = A & vbLf & "    原始系数：实际上，原始系数就是求取上述各种系数的初始样本点，所以，其系数只代表徉本点本身的系数。使用者可以根据这些原始系数确定符合自己要求的产污和排污系数。提供原始系数的主要目的是为使用者提供最基础的、可供参考的数据。"

        RichTextBox1.Text = B

    ElseIf A = "关于《上岗培训教材》" Then

        B = A & vbLf & "    上岗培训教材是国家环保总局评估中心组织相关专家，为专门从事环境影响评价人员上岗培训而编制的，具有较强的实用性和针对性，本次引用的培训教材为2004年6月份127期环评上岗培训用教材"

        RichTextBox1.Text = B

    ElseIf A = "引用说明" Then

        B = A & vbLf & "    在软件编制过程中，参考了上岗培训教材中的相关内容，在引用过程中，可能未注明具体页码和来源，但是，在后期正式版中，我们将来给出各类计算公式及引用数据的来源"

        RichTextBox1.Text = B

    ElseIf A = "关于《上岗培训教材》" Then

        B = A & vbLf & "    上岗培训教材是国家环保总局评估中心组织相关专家，为专门从事环境影响评价人员上岗培训而编制的，具有较强的实用性和针对性。"

        RichTextBox1.Text = B

    ElseIf A = "引用说明" Then

        B = A & vbLf & "    在软件编制过程中，参考了上岗培训教材中的相关内容，在引用过程中，可能未注明具体页码和来源，但是，在后期正式版中，我们将来给出各类计算公式及引用数据的来源"

        RichTextBox1.Text = B

    ElseIf A = "关于卫生防护距离" Then

        B = A & vbLf & "    在编写卫生防护距离计算公式过程中，目前已经有许多关于卫生防护距离计算的小软件，首推环评助手中附带的小工具，在本程序中卫生防护距离计算工具编制完成后，与环评助手的算卫生防护距离的软件进行核算过，卫生防护距离在1000米内，与环评助手计算相关0.05米以内，在1000米以外，相差在5米以内；相差的来源，是由于在计算机进行叠代算法时出现的误差，并非参数选择的误差"

        RichTextBox1.Text = B

    ElseIf A = "关于环境技术网" Then

        B = "     环境技术网（http://www.65et.com）隶属65et环境科技发展中心，是65et环境科技旗下四大环保站点（环境技术网、环保商务网、环保家园博客、65et环境科技）之一，为您精心打造权威、及时、全面的环保新闻资讯大餐，网站涵盖了环保行业全部的分类，包括：污水处理、固废处理利用、大气治理、烟气治理、环保设备、环境评价、环保法规、注册考试等类别的信息。分析市场行情、关注企业动态、了解政策法规，及时、准确的反馈行业信息。"

        RichTextBox1.Text = B

    ElseIf A = "关于《环境保护计算手册》" Then

        B = A & vbLf & "    本书介绍了环境监测、环境统计、环境质量评价、环境预测、环境规划、环境工程等环境保护六大学科中有关问题的计算方法。"

        RichTextBox1.Text = B

    ElseIf A = "关于《环境保护实用数据手册》" Then

        B = A & vbLf & "    胡名操主编 　本书提供了污染物排放、废气废水废渣治理等方面的大量实用数据。"

        RichTextBox1.Text = B

    ElseIf A = "注册版和非注册版" Then

        B = A & vbLf & "    2006年6月22日正式推出注册版和非注册版，为了感谢广大会员们对软件的支持，经论坛版主们讨论决定，非注册版同步予以升级！"

        RichTextBox1.Text = B

    ElseIf A = "升级历史" Then

        B = A & vbLf & "    介绍软件的编制过程及升级情况！"

        RichTextBox1.Text = B

    ElseIf A = "060718特别版" Then

        B = A & vbLf & "    2006年7月18日特别版，增加“程序引用”菜单，用户可以直接调用WINDOWS下记事本、画图和计算器等应用软件，增加自动检测程序是否运行！" & vbLf & "    增加最小化程序到托盘区功能！" & vbLf & "    增加几种常见类型的废水COD和BOD5之间的折算关系！" & vbLf & "    增加设备及管道不严密处有害气体散发量的计算！" & vbLf & "    增加油漆挥发量的计算！" & vbLf & "    增加产业结构调整目录（2005）年本查询功能，因为觉得2005年本目录太厚了，查询起来，太费事，所以有做了个查询用！" & vbLf & "    增加交通部公路模型交通噪声预测！(JTT 005-96)" & vbLf & "    增加锅炉烟尘、二氧化硫排放量的计算，删除原有的排污系数计算方法，改用物料衡算法计算！" & vbLf & "    增加万用单位换算程序，解决一些生僻的单位转换功能！"

        B = B & vbLf & "    进一步优化程序代码，修正原有程序运行中出现的类型不匹配错误！"

        B = B & vbLf & "    在经验计算里增加化铝渣、化锌渣、化铅渣的计算！"

        B = B & vbLf & "    增加锅炉炉渣产生量（排放量）的计算！"

        B = B & vbLf & "    未能公开发布！"

        RichTextBox1.Text = B

    ElseIf A = "060808升级版" Then

        B = A & vbLf & "    其它工具箱：增加建设项目环境影响评价咨询收费标准计算，便于大家使用，在编制过程中，由于计价格[2002]125号文以亿元为单位，建设项目大都在一亿元以下，或是一亿左右，且在建设项目概况时，投资估算投资额都是万元为单位，故改成万元为单位，后在计算过程中，由计算过程自动转换！"

        B = B & vbLf & "    气工具箱：增加固定顶罐的呼吸排放量和工作排放量的计算；计算来源于一篇论坛上会员提供的论文，由于作者未知，且文章来源也未知，希望作者能够提供文章的来源的，核实后，让大家入心使用！"

        B = B & vbLf & "    声工具箱：按《公路建设项目环境影响评价规范》 JTG B03-2006 重新编写公路建设项目交通噪声环境预测！"

        B = B & vbLf & "    其它工具箱：增加国民经济与行业代码检索！分为按行业大类别和关键字检索！"

        B = B & vbLf & "    固废工具箱：增加锅炉灰渣计算！"

        B = B & vbLf & "    一级菜单：增加生活工具箱；"

        B = B & vbLf & "    生活工具箱：增加日历工具"

        B = B & vbLf & "    对各个工具箱进行重新排序，使其更帖近环评实际工作需要，在每个工具箱里，新增经验系数菜单，删除一些数据比较旧的计算！"

        RichTextBox1.Text = B

    ElseIf A = "060808升级版(修正)" Then

        B = A & vbLf & "    060808版推出来，由于日历工具中引用的日历控件已经过时，导致在有些安装不完全的系统上出现控件不能注册或丢失文件错误，现在修正，删除日历工具，日常生活工具活一并删除，等日后再完善！"

        B = B & vbLf & "    由于国家环保总局已正式发文，通知新的公路建设导则正在编过程中，现在的公路交通噪声预测仍按JTT 005 - 96 进行，故恢复JTT 005-96 版公路交通噪声预测计算"

        B = B & vbLf & "    自本版起，同步推出完整软件安装包供大家下载安装使用！欢迎大家下载完整安装包安装本软件！"

        B = B & vbLf & "    公路交通噪声预测 《公路建设项目环境影响评价规范》JTG B03-2006，修正车道宽度不能修改的问题，因为在编制过程中，将车道宽度文本框属设为只读，所以无法修，现以修正！"

        B = B & vbLf & "    对由于日历控件造成的会员的使用不方便，表示歉意，希望大家一如继往的我们！"

        RichTextBox1.Text = B

    ElseIf A = "061018升级版" Then

        B = A & vbLf & "    修正水工具箱下之《行业系数》之《纺织行业麻纺产品产排污量计算》中PH值录入值错误的问题"

        B = B & vbLf & "    气工具箱下新增空气污染指数（API）计算"

        B = B & vbLf & "    气工具箱下新增《起尘量计算》子菜单"

        B = B & vbLf & "    起尘量计算子菜单下,新增秦皇岛码头煤堆起尘量、装卸起尘量；汽车道路扬尘量、某港口道路扬尘量的计算"

        B = B & vbLf & "    新增中国环境技术网下标准规范、电子书书籍、环境社区、环境博客和环保商贸的链接！"

        B = B & vbLf & "    为了方便大家使用，新增理化性质菜单，理化性质菜单下主要引用目前我国化学品管理和化学品物化性质收录最全的几家网站，如：突发性污染事故中危险品档案库、化学品安全窗口、化工引擎、化学品安全卡、MSDS、化学品安全技术说明书、和化工助手等，在此对以上网站表示感谢！"

        RichTextBox1.Text = B

    ElseIf A = "07贺岁版" Then

        B = A & vbLf & "    为了更好的结合导则，自本升级版起，开始在水、气、声工具下增加《导则计算》子菜单，"

        B = B & vbLf & "    气工具之《导则计算》子菜单下增加大气评价工作等级划分、最大落地浓度、混合层高度、烟气抬升高度、烟囱出口风速等计算！"

        B = B & vbLf & "    气工具新增依据《石油库设计节能导则》之附各类油罐大小呼吸量计算工具！感谢环境技术社区会员：lynder、ZHOU0412等参加测试 "

        B = B & vbLf & "    水工具之《导则计算》子菜单下增加地面水评价工作等级划分、地面水现状评价方法（包括内梅罗平均值、单项评价指数、综合评价指数、自净利用指数和污染排序指数）！"

        B = B & vbLf & "    修正燃料燃烧工具中燃气污染物排放计算中第二个：Gso2--so2排放量为Gco--CO排放量的录入错误，在此感谢会员hmstock，是其发现，并于论坛上提出！"

        B = B & vbLf & "    本版关闭退出时是否最小化到任务栏的提示，改为点最小化按钮时到任务栏，不再给出提示，直接最小化到任务栏。"

        RichTextBox1.Text = B

    ElseIf A = "070218版" Then

        B = A & vbLf & "    本版与07贺岁版无较大变化，主要修正两处细微录入的误，气工具之导则计算之最最大落地浓度计算原本为空，没有编制，因为最大落地浓度计算工具很多，故未编制，此次除掉07贺岁版中的空链接！070218日为新年，07年环评工具箱可能会升级较慢，主要是因为程序结构以及以后程序该如何编的问题，欢迎多提宝贵意见！"

        B = B & vbLf & "    本版环境技术网和环境技术社区均给出完整安装包下载，供会员们使用,详细地址请去环境技术网或是环境技术论坛查阅！由于JLC环境技术交流中心已更名环境技术网，本软件也相应更名环评工具箱！"

        RichTextBox1.Text = B

     ElseIf A = "070218版(修正)" Then

        B = A & vbLf & "    本版感谢环境技术网会员celia提出气工具箱之各类贮缺罐大小呼吸量计算工具中的浮顶罐和内浮顶油罐中大呼吸损耗量为应为Kg/a的录入失误,特此修正,再次感谢会员celia!"

        RichTextBox1.Text = B

    ElseIf A = "070818版（测试版）" Then

        B = A & vbLf & "    本版修正的有些会员有计算卫生防护距离时Q值输入过大，计算时会无响应的错误，经核算卫生防护距离最大算至25000米时，花费时间3分钟!在此感谢会员tjin是其指出卫生防护距离的计算无响应问题！"

        B = B & vbLf & "    风险评价下新增导则计算之多烟团模式的计算，包括输入固定点位L（X，Y）、下风临界点距离值的计算和网格计算的结果！欢迎大家试用！本模块计算于07年07月10日上午完成！"

        B = B & vbLf & "    水工具下导则计算新增二维稳态混合模式（河2模式）和二维稳态混合衰减模式（河6模式）下的单点计算和网格计算；两种模中的单点浓度C（X，Y）计算供计算特殊点位用；本模块计算于07年07月15日上午完成！"

        B = B & vbLf & "    水工具下导则计算新增约-新模式（海湾）下的网格计算，海湾5：约-新模式适用于海湾持久性污染物三级评价。可用于计算离点源排放口径向距离为r (m)处的污水浓度；本计算模块于2007年07月18日上午完成！"

        B = B & vbLf & "    水工具下导则计算新增稳态混合累积流量模式(河4)和稳态混合衰减累积流量模式(河8)下的的单点计算和网格计算；两种模中的单点浓度C（X，Y）计算供计算特殊点位用；本模块计算于07年07月20日上午完成！"

        B = B & vbLf & "    水工具下导则计算新增弗罗模式河3、7计算，本计算模块于2007年07月21日上午完成！"

        B = B & vbLf & "    水工具下导则计算新增托马斯模式河9计算，本计算模块于2007年07月25日下午完成！"

        B = B & vbLf & "    水工具下导则计算新增完全混合模式河1和SP模式河5计算，本计算模块于2007年07月26日下午完成！！"

        B = B & vbLf & "    所有新增导则模式均与EIAW10比对测试过，网格各点计算及单点计算结果没有发现计算错误，请大家放心使用！"

        RichTextBox1.Text = B

    ElseIf A = "070818版" Then

        B = A & vbLf & "    环评工具箱（070818测试版）于2007年7月28日发布公开测试，公开测试完成于2007年08月18日，修正一些细录入和格式错误后发布070818正式版，本版同时发布简版和完整安装包，欢迎大家选用！为了更方便使用，自本版起，取消使用时的弹出窗口显示！"

        B = B & vbLf & "    修正大气评价等级划分计算过程中的公式的计算等标排放量大一数量级错误，感谢会员COOLUP提出的，在此表示感谢！"

        B = B & vbLf & "    本版新增风险评价之单烟团模式计算、河1-河9模式和海湾模式5等十一种模式计算，河1-河9模式、海湾模式5计算结果均与EIAW1.0经过比对测试无误，请会员放心使用！"

        RichTextBox1.Text = B

    ElseIf A = "环境技术网五周年纪念版" Then

        B = A & vbLf & "    2008年01月01日为环境技术网五周年的日子，特发此版纪念！"

        B = B & vbLf & "    工具计算基本上编制完成，为了使工具箱在使用过程中，更加方便、实用，本版对环评工具箱中所有的计算代码进一步优化，便于提高性能！"

        B = B & vbLf & "    修正其它工具中乡镇企业金属表面及热处理业排污量输出格式排版不整洁，使输出结果整洁，便于查看！"

        B = B & vbLf & "    常看见论坛上许多会员在为了锅炉的问题而烦恼，求助，特从《环境保护实用数据手册》中选取部分计算系数，供会员会参照使用！"

        B = B & vbLf & "    增加的内容置于燃料废气工具之燃料燃烧过程中大气污染物及产生系数菜单下，共包括：表2-37 各种燃料燃烧时所需的最低理论空气量、表2-40 固液体燃料的燃烧计算数据、表2-45  不同燃烧方式烟气含尘浓度、表2-43 各种燃烧方式锅炉烟尘平均浓度值、最高值综合表、表2-46 各种锅炉产生1t/h蒸汽所需要的空气和排烟量、表2-46锅炉用燃料含氮量、表2-52 常用锅炉耗煤（油）量、表2-78 全国主要能源折算标准表及其它工具下新增：表2-146 机动车辆大气污染物排放表。"

        B = B & vbLf & "    本次给出的表格均标出在原书中的出去，会员可以直接引用，也可以直接查书进行审核，如有任何问题，请及时在环境技术论坛反馈！"

        RichTextBox1.Text = B

    ElseIf A = "20111104版" Then

        B = A & vbLf & "    本版修正如下："

        B = B & vbLf & "    更新环境技术网的域名、修正部分失效引用链接。"

        B = B & vbLf & "    2011版产业结构调整目录已发布，6月1日实行，已修正！"

        B = B & vbLf & "    去除部分已过时的内容"

        B = B & vbLf & "    程序调用菜单更名为计算机小帮手！"

        B = B & vbLf & "    如有任何问题或是建议，请及时在环境技术论坛反馈！"

        RichTextBox1.Text = B

    Else

        RichTextBox1.Text = ""

    End If



End Sub