软件工程课程论文.docxVIP

软件工程课程论文 水体综合评价法的VB实现 学 院： 计算机信息与工程学院 专 业： 计算机科学与技术（二学位） 学 号：姓 毛： 崔永波 二OO丿、年四月 TOC \o 1-5 \h \z 1弓I言 1 \o Current Document 1.1环境影响评价简述 1 \o Current Document 1.2水体综合评价的目的 1 \o Current Document 1.3课题研究的意义 1 \o Current Document 2水体综合评价法的实现思路 2 \o Current Document 3灰色关联度评价法的实现 3 \o Current Document 3.1灰色关联度评价法的数学计算过程 3 \o Current Document 3.2灰色关联度评价法的实现 5 \o Current Document 4模糊评价法的实现 9 \o Current Document 4.1模糊评价法的数学计算过程 9 \o Current Document 4.2模糊评价法的实现 9 \o Current Document 5结果分析 13 1引言 随着社会经济的发展，我国化工、石油、采掘、电子、医药等企业不断增多，从 而导致大量污染物的产生，这些企业的建立，严重影响了周边地区的环境，给周围人 生活和工作带来危害。为了实现经济效益、社会效益和环境效益的协调发展，我国 2003年正式确立了环境影响评价制度，规定新建、技改、改扩建项目必须进行环境 影响评价。环境影响评价工作进行的过程中涉及到许多计算，特别是水体的综合评价, 该评价中涉及到许多数据，一方面是污染物的种类多，另一方面是水体的级别比较多， 运算起来比较麻烦，各种污染物的计算方法是相同的，只是污染物的监测值和标准值 不相同。这样的计算不但枯燥，而且很容易出错，只要一个数据算错，就会影响最后 结果。由于我自己本专业是环境工程，对这个比较了解，为了使自己所学的两个专业 结合起来，最终决定用VB技术来实现水体综合评价。 1?1环境影响评价简述 1979年我国颁布的《中华人民共和国环境保护法（试行）》规定在扩建、改建、 新建工程时，必须提交环境影响评价报告书（表）。2003年9月1日起施行《中华 人民共和国环境影响评价法》，该法明确我国的环境影响评价是对规划和建设项目实 施后可能造成的环境影响进行分析、预测和评估，提出预防或者减轻不良环境影响对 策和措施，进行跟踪监测的方法和制度，最终达到该项目的经济利益和当地环境保护 相统一。 1.2水体综合评价的目的 水体综合评价主要包括两种算法，一种是灰色关联度评价法，另外一种是模糊评 价法，两种算法是独立的，各自有一套评价方法，水体综合评价的主要目的是为排入 河流的企业定污废水排放标准，以避免企业的污废水排入河流后对河流及其下游的水 环境造成污染。 1.3课题研究的意义 水体综合评价法VB的实现，可以帮助从事环境影响评价的人员，以及环境工程 专业的老师和学生提高计算的正确性，节省大量的时间。 2水体综合评价法的实现思路 综合评价法主要用于水体的专项评价，本论文主要是用VB实现两种专项评价的 定性计算，分别为灰色关联度评价法和模糊评价法，这两种方法的原始数据是相同的, 所以在输入数据时，采用同一种方法，利用InputBox()函数输入数据，同时调用通用 窗体中的判断函数，判断用户输入的内容是否符合要求，如果不符合要求，则会弹出 提示对话框，提醒输入符合要求的数据。 水体综合评价法在用VB实现时考虑用3个窗体，一个是通用窗体，用来存放判 断函数，判断用户输入的内容是否符合要求，另外两个分别为灰色关联度评价法和模 糊评价法的计算窗体。 通用窗体的名称为FormO,用于存放两个判断函数，作用域是整个工程，用于判 断输入的内容是否符合要求，如不符合，就会弹出提示框，提示你输入符合要求的内 容。代码如下： 判断输入的是否是数据 Public Function isNum(str As String) If str=nn Then isNum = False MsgBox H请输入数据！” Elself Not IsNumeric(str) Then isNum = False MsgBox”输入的不是数字，请输入数据！” Else isNum = True End If End Function 判断输入的是否是字符 Public Function isZf(zf As String) IfZf 二”” Then isZf = False MsgBox”请输入污染物名称！” Elself IsNumeric(zf) Then isZf = False MsgBox”