您好,歡迎來電子發(fā)燒友網(wǎng)! ,新用戶?[免費注冊]

您的位置:電子發(fā)燒友網(wǎng)>源碼下載>VxWorks/Nucleus/eCos/PalmOS>

VBA程序源代碼

大小:76 人氣: 2010-02-09 需要積分:0
{$username}的空間

用戶級別:注冊會員

貢獻文章:

貢獻資料:

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

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

(1)常量的設(shè)定
'1、常量e,表示自然對數(shù)底
'2、num,表示參與擬合的考試次數(shù),這里取前7次考試成績
'3、cen,三角擬合時,角度所乘系數(shù)中心值,詳見原理介紹
'4、le,三角擬合精度,詳見原理介紹
'5、un,三角擬合角度系數(shù)的偏離值,詳見原理介紹
'6、StuNumber,學(xué)生容量,這里取2008屆高二年級組學(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ù)的介紹
'本部分共計運用輔助函數(shù)5個,
'每個輔助函數(shù)的功能均在其上方注釋,
'函數(shù)內(nèi)部的運算原理見代碼區(qū)內(nèi)部
'1、StuMark,獲取學(xué)生成績
'參變量:
'StuNum,整型變量,表示學(xué)生代號
'ExamNum:整型變量,表示考試代號,取值為1-7
'SubNum:整型變量,表示科目代號,取值為1-5
Public Function StuMark(StuNum As Integer, ExamNum As Integer, SubNum As Integer) As Double
'Select結(jié)構(gòu)對ExamNum進行討論
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ù)的形式,由此和真實值進行線性擬合,詳見原理部分
'參變量:
'k:角度系數(shù)值,詳見原理部分
'j:學(xué)生代號
Function FitFunc(k, j) As Double
Dim X
X = Sheet10.Cells(3, j) / k
FitFunc = Tan(X)
End Function

非常好我支持^.^

(2) 100%

不好我反對

(0) 0%

      發(fā)表評論

      用戶評論
      評價:好評中評差評

      發(fā)表評論,獲取積分! 請遵守相關(guān)規(guī)定!

      ?