VBA程序源代码.doc

高二(12)班廖晨(组长)李博昱戚子健王柏文2007-6VBA程序源代码'###########################################'#北师大实验中学----研究性学习#'#研究成绩波动规律的拟合程序#'#Module1主模块部分#'#李博昱编译#'#2007年5月-6月#'###########################################'加'的文字均为本程序的注释(1)常量的设定'1、常量e,表示自然对数底'2、num,表示参与拟合的考试次数,这里取前7次考试成绩'3、cen,三角拟合时,角度所乘系数中心值,详见原理介绍'4、le,三角拟合精度,详见原理介绍'5、un,三角拟合角度系数的偏离值,详见原理介绍'6、StuNumber,学生容量,onste==onstle=onstcen=onstun==534(2)辅助函数的介绍'本部分共计运用辅助函数5个,'每个辅助函数的功能均在其上方注释,'函数内部的运算原理见代码区内部'1、StuMark,获取学生成绩'参变量:'StuNum,整型变量,表示学生代号'ExamNum:整型变量,表示考试代号,取值为1-7'SubNum:整型变量,表示科目代号,取值为1-5PublicFunctionStuMark(StuNumAsInteger,ExamNumAsInteger,SubNumAsInteger)AsDouble'Select结构对ExamNum进行讨论SelectCaseExamNum高二(12)班廖晨(组长)李博昱戚子健王柏文2007-6Case1StuMark=(StuNum+1,SubNum+8)Case2StuMark=(StuNum+1,SubNum+8)Case3StuMark=(StuNum+1,SubNum+8)Case4StuMark=(StuNum+1,SubNum+8)Case5StuMark=(StuNum+1,SubNum+8)Case6StuMark=(StuNum+1,SubNum+8)Case7StuMark=(StuNum+1,SubNum+8)Case8StuMark=(StuNum+1,SubNum+8)EndSelectEndFunction'2、FitFunc,代表拟合函数的形式,由此和真实值进行线性拟合,详见原理部分'参变量:'k:角度系数值,详见原理部分'j:学生代号FunctionFitFunc(k,j)AsDoubleDimXX=(3,j)/kFitFunc=Tan(X)EndFunction'3、FindFit,线性拟合函数'变量'xx:x的离均差平方和'xy:x,y的离均差的成绩之和'avx,x的均值'avy,y的均值'StuNum,整型变量,同前'SubNum,同前FunctionFindFit(xx,xy,avx,avy,StuNumAsInteger,SubNumAsInteger)Dimbb=xy/xx