(决策支持系统与专家系统试验4.docVIP

华北电力大学科技学院 实 验 报 告 | | 实验名称 专家系统 课程名称 决策支持系统与专家系统 | | 专业班级：信管09K1 学生姓名：范欣然 学 号： 091906040103 成 绩： 指导教师：张学斌 实验日期： 2012-10-24 一、实验目的和要求 1.复习vb6.0的语法和程序编写 2.复习VB6.0数据库应用程序使用 3.复习线性回归的概念 4.使用VB6.0编写最小二乘法模型程序 二、实验环境 VB6.0 ACCESS2003 三、实验内容和步骤 本实验是验证性实验，按照提示步骤验证程序。路径为参考路径，可自行修改。 （1）编写最小二乘法模型程序 1.在c:\jxzcyzjxt\jczcxt\sj目录下新建ACCESS数据库文件cbyc.mdb。表格信息如下 表名：tjsj 字段名称 数据类型 说明 id 自动编号 在表中添加一条记录时，该字段可自动输入连续数据 x 数字 每批投入产品件数（百件），字段大小为整形 y 数字 产品成本（百元），字段大小为单精度 表tjsj的数据 id 1 2 3 4 5 6 7 x 53 91 87 49 14 98 78 y 53.42 84.53 80.87 52.45 25.6 87.12 72.93 id 8 9 10 11 12 13 14 X 82 58 33 45 52 16 68 y 76.5 55.14 41 49.51 53.16 26.22 66.04 表名：cs 字段名称 数据类型 是否主键 说明 a 数字 否 一元线性回归模型常数项，字段大小为单精度型 b 数字 否 一元线性回归模型常数项，字段大小为单精度型 2.在c:\jxzcyzjxt\jczcxt\目录下新建名为mx（模型）的子目录。 在mx子目录下新建名为zxecf（自小二乘法）的子目录。 在zxecf子目录下新建名为ywj（源文件）的子目录； 在zxecf子目录下新建名为mbwj（目标文件）的子目录。 3.启动vb6.0中文版 4.在启动界面中选择“标准exe”选项后，单击“打开”按钮。 5.在“工程”界面中，单击“保存”按钮。 6.在弹出的“文件另存为”对话框中，选择文件保存路径为c:\jxzcyzjxt\jczcxt\mx\zxcef\ywj，同时指定窗体文件名为“zxcef.frm”（也可以自己指定其他名称）,单击“保存”按钮。 7.在弹出的“工程另存为”对话框中，指定工程文件名为“” （也可以自己指定其他名称）。单击“保存”按钮。 8.在弹出的“信息提示”对话框中，单击“No”按钮。 9.单击菜单栏上的“工程”-“添加模块”选项，该模块用于存放模块级变量及用户自定义的通用过程。 10.在弹出的“添加模块”对话框中，单击“打开”按钮。 11.出现“Model”窗口。同时窗口右侧的任务窗格中也增加了一个“模块”文件夹。 12.在右侧属性窗口修改模块的名称为“zxecf”。然后单击工具栏上的“保存”按钮。 13.在弹出的“文件另存为”对话框中指定模块文件名为“zxecf.bas”，选择文件保存路径为“c:\jxzcyzjxt\jczcxt\mx\zxcef\ywj”。然后单击“保存”按钮。 14.单击菜单栏上的“工程”-“引用”选项，弹出“引用”对话框。在对话框中勾选“Microsoft ActiveX Data Objects 2.8 Library”选项和“Microsoft ActiveX Data Objects Recordset 2.8 Library”选项。然后，单击“确定”按钮。 15.双击任务窗格中的“zxecf”模块，在弹出的zxecf(Code)“代码编写”界面中编写程序代码。（代码片段1） 16．单击菜单栏上的“工程”-“工程1属性”选项，弹出“工程属性”对话框。将“通用”标签下的“启动对象”属性修改为“Sub Main”，然后单击“确定”按钮。 17.单击菜单栏上的“文件”-“生成zxecf.exe”选项，弹出“生成工程”对话框，修改路径为“c:\jxzcyzjxt\jcz