VBA程序源代碼
'###########################################
'#??? 北師大實(shí)驗(yàn)中學(xué)----研究性學(xué)習(xí)????????? #
'#??????? 研究成績(jī)波動(dòng)規(guī)律的擬合程序?????? #
'#??????? Module1主模塊部分?????????????? #
'# 李博昱編譯????????????????????????????? #
'# 2007年5月－6月??????????????????????? #
'###########################################

'加 ' 的文字均為本程序的注釋

（1）常量的設(shè)定
'1、常量e，表示自然對(duì)數(shù)底
'2、num，表示參與擬合的考試次數(shù)，這里取前7次考試成績(jī)
'3、cen，三角擬合時(shí)，角度所乘系數(shù)中心值，詳見(jiàn)原理介紹
'4、le，三角擬合精度，詳見(jiàn)原理介紹
'5、un，三角擬合角度系數(shù)的偏離值，詳見(jiàn)原理介紹
'6、StuNumber，學(xué)生容量，這里取2008屆高二年級(jí)組學(xué)生總?cè)藬?shù)
Public Const e = 2.71
Public Const num = 7
Public Const le = 100
Public Const cen = 1
Public Const un = 0.99
Public Const StuNumber = 534
（2）輔助函數(shù)的介紹
'本部分共計(jì)運(yùn)用輔助函數(shù)5個(gè)，
'每個(gè)輔助函數(shù)的功能均在其上方注釋?zhuān)?BR>'函數(shù)內(nèi)部的運(yùn)算原理見(jiàn)代碼區(qū)內(nèi)部
'1、StuMark，獲取學(xué)生成績(jī)
'參變量：
'StuNum，整型變量，表示學(xué)生代號(hào)
'ExamNum：整型變量，表示考試代號(hào)，取值為1－7
'SubNum：整型變量，表示科目代號(hào)，取值為1－5
Public Function StuMark(StuNum As Integer, ExamNum As Integer, SubNum As Integer) As Double
'Select結(jié)構(gòu)對(duì)ExamNum進(jìn)行討論
Select Case ExamNum
Case 1
? StuMark = Sheet1.Cells(StuNum + 1, SubNum + 8)
Case 2
? StuMark = Sheet2.Cells(StuNum + 1, SubNum + 8)
Case 3
? StuMark = Sheet3.Cells(StuNum + 1, SubNum + 8)
Case 4
? StuMark = Sheet4.Cells(StuNum + 1, SubNum + 8)
Case 5
? StuMark = Sheet5.Cells(StuNum + 1, SubNum + 8)
Case 6
? StuMark = Sheet6.Cells(StuNum + 1, SubNum + 8)
Case 7
? StuMark = Sheet7.Cells(StuNum + 1, SubNum + 8)
Case 8
? StuMark = Sheet8.Cells(StuNum + 1, SubNum + 8)
End Select
End Function

'2、FitFunc，代表擬合函數(shù)的形式，由此和真實(shí)值進(jìn)行線(xiàn)性擬合，詳見(jiàn)原理部分
'參變量：
'k：角度系數(shù)值，詳見(jiàn)原理部分
'j：學(xué)生代號(hào)
Function FitFunc(k, j) As Double
Dim X
X = Sheet10.Cells(3, j) / k
FitFunc = Tan(X)
End Function