cos()的級數公式是什麽？
函數zcos(ByVal rad為Double，ByVal dp為Double)為Double
這裏用zcos來區分自定義cos函數和vb內部函數。
'cos(x)=1-x^2/2！+x^4/4！......+(-1)^(n+1)*x^2(n-1)/(2(n-1)！+......(n=1，2，3.....)
還要註意，x的值代表弧度值，而不是角度值。
用於表示解決方案的準確性。
Dim n壹樣長，b壹樣長
Dim p為Double，dc為Double，mv為Double
p = 1:DC = 1:n = 1:b = 1
執行While p & gt數據處理
p = Abs(直流)
b = b * -1
n = n + 1
mv =拉德·^(2 *(n-1))
對於i = 2 * (n - 1)到2步- 1
mv = mv / i
接下來我
dc = dc + b * mv
p = Abs(p - Abs(dc))
環
zcos = dc
結束功能
副總管()
MsgBox Round(zcos(3.1415926 *(135/180)，0.000001)，6)
末端接頭
妳可以在主程序裏做壹個表格，輸入精度值。我的代碼是0.000001，妳可以試試。