决策支持系统与专家系统_试验4

《决策支持系统与专家系统_试验4》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、华北电力大学科技学院实验报告

2、

3、实验名称专家系统课程名称决策支持系统与专家系统

4、

5、专业班级：信管09K1学生姓名：范欣然学号：091906040103成绩：指导教师：张学斌实验日期：2012-10-24华北电力大学实验报告一、实验目的和要求1.复习vb6.0的语法和程序编写2.复习VB6.0数据库应用程序使用3.复习线性回归的概念4.使用VB6.0编写最小二乘法模型程序二、实验环境VB6.0ACCESS2003三、实验内容和步骤本实验是验证性实验，按照提示步骤验证程序。路径为参考路径，可自行修改。（

6、1）编写最小二乘法模型程序1.在c:jxzcyzjxtjczcxtsj目录下新建ACCESS数据库文件cbyc.mdb。表格信息如下表名：tjsj字段名称数据类型说明id自动编号在表中添加一条记录时，该字段可自动输入连续数据x数字每批投入产品件数（百件），字段大小为整形y数字产品成本（百元），字段大小为单精度表tjsj的数据id1234567x53918749149878y53.4284.5380.8752.4525.687.1272.93id891011121314第12页共12页华北电力大

7、学实验报告X82583345521668y76.555.144149.5153.1626.2266.04表名：cs字段名称数据类型是否主键说明a数字否一元线性回归模型常数项，字段大小为单精度型b数字否一元线性回归模型常数项，字段大小为单精度型2.在c:jxzcyzjxtjczcxt目录下新建名为mx（模型）的子目录。在mx子目录下新建名为zxecf（自小二乘法）的子目录。在zxecf子目录下新建名为ywj（源文件）的子目录；在zxecf子目录下新建名为mbwj（目标文件）的子目录。3.启动vb

8、6.0中文版4.在启动界面中选择“标准exe”选项后，单击“打开”按钮。第12页共12页华北电力大学实验报告5.在“工程”界面中，单击“保存”按钮。6.在弹出的“文件另存为”对话框中，选择文件保存路径为c:jxzcyzjxtjczcxtmxzxcefywj，同时指定窗体文件名为“zxcef.frm”（也可以自己指定其他名称）,单击“保存”按钮。7.在弹出的“工程另存为”对话框中，指定工程文件名为“”（也可以自己指定其他名称）。单击“保存”按钮。第12页共12页华北电力大学实验报告8.在弹出

9、的“信息提示”对话框中，单击“No”按钮。9.单击菜单栏上的“工程”-“添加模块”选项，该模块用于存放模块级变量及用户自定义的通用过程。10.在弹出的“添加模块”对话框中，单击“打开”按钮。11.出现“Model”窗口。同时窗口右侧的任务窗格中也增加了一个“模块”文件夹。12.在右侧属性窗口修改模块的名称为“zxecf”。然后单击工具栏上的“保存”按钮。13.在弹出的“文件另存为”对话框中指定模块文件名为“zxecf.bas”，选择文件保存路径为“c:jxzcyzjxtjczcxtmxzxc

10、efywj”。然后单击“保存”按钮。第12页共12页华北电力大学实验报告14.单击菜单栏上的“工程”-“引用”选项，弹出“引用”对话框。在对话框中勾选“MicrosoftActiveXDataObjects2.8Library”选项和“MicrosoftActiveXDataObjectsRecordset2.8Library”选项。然后，单击“确定”按钮。15.双击任务窗格中的“zxecf”模块，在弹出的zxecf(Code)“代码编写”界面中编写程序代码。（代码片段1）16．单击菜单栏上的“工

11、程”-“工程1属性”选项，弹出“工程属性”对话框。将“通用”标签下的“启动对象”属性修改为“SubMain”，然后单击“确定”按钮。第12页共12页华北电力大学实验报告17.单击菜单栏上的“文件”-“生成zxecf.exe”选项，弹出“生成工程”对话框，修改路径为“c:jxzcyzjxtjczcxtmxzxcefmbwj”,然后单击“确定”按钮。18.单击菜单栏上的“保存”按钮。19.退出VB6.0（2）编写调用程序1.在c:jxzcyzjxtjczcxt目录下新建名为dy（调用）的子

12、目录2.启动vb6.0,进入“工程”界面。将“工程”界面右侧任务窗格属性窗口中的（名称）属性的值修改为“dy”。第12页共12页华北电力大学实验报告3.单击“工程”界面左侧工具箱上的Frame控件，在窗体Form1中绘制一个Frame。然后修改右侧任务窗格属性窗口中的Caption属性的值为“参数a,b的值”。4.单击工具箱上的Lable控件，在Frame上绘制一个Label。然后，修改其Caption属性值为“常数项”。用同样方法绘制第二个Label，修改其Capt