分析vb课程设计报告(直线拟合)f.docx

一、功能

直线拟合

本题目重要是用于将实验中得到的具有线性特征的一组数据通过最小二乘法拟合成直线，求出其直线方程和绘制出该直线的图形。

二、详细设计

本题目的程序设计由三个窗体组成。

在Form1中，有1个框架控件、1个标签控件、2个命令按钮和1个由6个单选按钮组成的控件数组。单选按钮控件数组用来选择要输入的数据组数，当选择好后，单击“确定”按钮，就可以进入下一个窗体。单击“取消”按钮则退出程序

Form1的代码见附件。

在Form2中有2个命令按钮、20个文本框（每10个组成一个控件数组）、12个标签控件和许多直线组成。在文本框中输入实验数据后，点击“确定”按钮，若数据没有全部输入，则出现消息框，提醒没有完全输入。若已经完全输入，则显示Form3,隐藏Form2。与此同时，对实验数据计算，得出拟合直线的截距和斜率，并在Form3的标签控件1中体现；根据所得的斜率和截距得到拟合直线方程，并在Form3的标签2中体现；还可以在Form3中绘出拟合直线和每个实验点（用绿色），根据实验数据调整坐标系统，画出拟合直线。

Form2的代码见附件。

三、调试

一开始，我是在三楼上机，用的是VB6.0，遇到的第一个问题是全局变量的设置问题。我不知道是我一个暑假把学的都忘了，最后终于在课本的帮助下成功做出来了。

第二个问题是显示拟合直线。一开始，我在Form3中画了一个图片框，运行时总显示不了直线，后来索性将它删掉，再次运行时终于能出现直线，可是直线的位置与设想相差太大了。连续尝试了1个多星期后，终于明白了，原来我直接利用得到的直线方程的点的坐标在窗体上画直线是不对的，因为我所画的坐标轴的单位长度和窗体的单位长度不相等，之间需要一定的转换。于是再次修改代码，可还是没有出现预想的情况。重新检查后，没有发现程序错误。我又尝试输入一组特殊数据：（1，3）、（2，5）、（3，7）、（4，9）、（5，11），它们的拟合直线应该是Y=2X+1,斜率是2，截距是1，可运行后的结果让我大吃一惊，斜率是

-0.2，截距是-0.1。我再次检查了数据计算部分的代码，没有发现错误，请教了好几位同学也没有解决问题，如此又郁闷了一个星期。不知什么时候，心中有种感觉——书上有错误。找来大学物理实验课本，果不其然，在第三十七页找到类似的公式，经计算，终于发现课程

设计课本上第211页“令M

( mm X

X)2mii1 i

X)

2

m

i

2”中的“+”号应改为“-”。修改后，i

在调试过程中再也没出现什么大的问题。

四、输入输出数据

当选择5组数据时，

Ⅰ：（54，76）、（65，83）、（87，89）、（82，61）、（34，22）；Ⅱ：（34，56）、（24，89）、（29，59）、（78，61）、（94，57）；Ⅲ：（58，26）、（44，77）、（55，89）、（67，65）、（76，98）。

运行结果：

Ⅰ：截距A=7.9171725，斜率B=0.9041657，直线方程为Y=0.9041657X+7.9171725，

坐标比例：×1

Ⅱ：截距A=74.72493，斜率B=-0.199323，直线方程为Y=74.7293X－0.199323，坐标比例：×1

Ⅲ：截距A=41.1017，斜率B=-0.4983051，直线方程为Y=41.1017X+0.4983051，坐

标比例：×1

当选择6组数据时，

Ⅰ：（54，76）、（65，83）、（87，89）、（82，61）、（34，22）、（44，88）；Ⅱ：（34，56）、（24，89）、（29，59）、（78，61）、（94，57）、（44，88）；Ⅲ：（58，26）、（44，77）、（55，89）、（67，65）、（76，98）、（44，88）。

运行结果：

Ⅰ：截距A=33.64924，斜率B=0.5931818，直线方程为Y=0.5931818X+33.64924，坐

标比例：×1

Ⅱ：截距A=80.64387，斜率B=-0.2735675，直线方程为Y=-0.2735675X8+0.64387，坐

标比例：×1

Ⅲ：截距A=69.0728，斜率B=8.381743E-02，直线方程为Y=8.381743E-02X+69.0728，

坐标比例：×1

五、课程设计总结

经过此次程序设计，使我对许多事情的看法有了改变。记得上学期学VB的时候，感觉VB很简单，老师布置的作业也很快完成，多余的时间就在偷偷玩游戏。刚知道自己要做直线拟合这道题时，翻了一下书，感觉很简单，相比选择难题的同学，我心中不免有些得意，心想：快速做完后，再做一个，说不定能得