软件工程课程论文.docVIP

软件工程课程论文

水体综合评价法的VB实现

学院：计算机信息与工程学院

专业：计算机科学与技术（二学位）

学号：姓名：崔永波

二ОО八年四月

目录

TOC\o1-3\u

TOC\o1-3\h\z\u1引言 1

1.1环境影响评价简述 1

1.2水体综合评价的目的 1

1.3课题研究的意义 1

2水体综合评价法的实现思路 2

3灰色关联度评价法的实现 3

3.1灰色关联度评价法的数学计算过程 3

3.2灰色关联度评价法的实现 5

4模糊评价法的实现 9

4.1模糊评价法的数学计算过程 9

4.2模糊评价法的实现 9

5结果分析 13

水体综合评价法的VB实现

内蒙古农业大学计算机信息与工程学院第PAGE14页

1引言

随着社会经济的发展，我国化工、石油、采掘、电子、医药等企业不断增多，从而导致大量污染物的产生，这些企业的建立，严重影响了周边地区的环境，给周围人生活和工作带来危害。为了实现经济效益、社会效益和环境效益的协调发展，我国2003年正式确立了环境影响评价制度，规定新建、技改、改扩建项目必须进行环境影响评价。环境影响评价工作进行的过程中涉及到许多计算，特别是水体的综合评价，该评价中涉及到许多数据，一方面是污染物的种类多，另一方面是水体的级别比较多，运算起来比较麻烦，各种污染物的计算方法是相同的，只是污染物的监测值和标准值不相同。这样的计算不但枯燥，而且很容易出错，只要一个数据算错，就会影响最后结果。由于我自己本专业是环境工程，对这个比较了解，为了使自己所学的两个专业结合起来，最终决定用VB技术来实现水体综合评价。

1.1环境影响评价简述

1979年我国颁布的《中华人民共和国环境保护法（试行）》规定在扩建、改建、新建工程时，必须提交环境影响评价报告书（表）。2003年9月1日起施行《中华人民共和国环境影响评价法》，该法明确我国的环境影响评价是对规划和建设项目实施后可能造成的环境影响进行分析、预测和评估，提出预防或者减轻不良环境影响对策和措施，进行跟踪监测的方法和制度，最终达到该项目的经济利益和当地环境保护相统一。

1.2水体综合评价的目的

水体综合评价主要包括两种算法，一种是灰色关联度评价法，另外一种是模糊评价法，两种算法是独立的，各自有一套评价方法，水体综合评价的主要目的是为排入河流的企业定污废水排放标准，以避免企业的污废水排入河流后对河流及其下游的水环境造成污染。

1.3课题研究的意义

水体综合评价法VB的实现，可以帮助从事环境影响评价的人员，以及环境工程专业的老师和学生提高计算的正确性，节省大量的时间。

2水体综合评价法的实现思路

综合评价法主要用于水体的专项评价，本论文主要是用VB实现两种专项评价的定性计算，分别为灰色关联度评价法和模糊评价法，这两种方法的原始数据是相同的，所以在输入数据时，采用同一种方法，利用InputBox()函数输入数据，同时调用通用窗体中的判断函数，判断用户输入的内容是否符合要求，如果不符合要求，则会弹出提示对话框，提醒输入符合要求的数据。

水体综合评价法在用VB实现时考虑用3个窗体，一个是通用窗体，用来存放判断函数，判断用户输入的内容是否符合要求，另外两个分别为灰色关联度评价法和模糊评价法的计算窗体。

通用窗体的名称为Form0，用于存放两个判断函数，作用域是整个工程，用于判断输入的内容是否符合要求，如不符合，就会弹出提示框，提示你输入符合要求的内容。代码如下：

(1)判断输入的是否是数据

PublicFunctionisNum(strAsString)

Ifstr=Then

isNum=False

MsgBox请输入数据！

ElseIfNotIsNumeric(str)Then

isNum=False

MsgBox输入的不是数字，请输入数据！

Else

isNum=True

EndIf

EndFunction

(2)判断输入的是否是字符

PublicFunctionisZf(zfAsString)

IfZf=Then

isZf=False

MsgBox请输入污染物名称！

ElseIfIsNumeric(zf)Then

isZf=False

MsgBox输入的不是名称，请输入名称！

Else

isZf=True

EndIf

EndFunction

以上代码可以在程序需要的地方调用，编写这两个函数的目的是为了减少代码的输