Sub macro1() MsgBox Application.Run("atpvbacs.xla!erf", 1) End Sub
对于X<=1,可使用如下自定义函数:
Function erf(ByVal x As Single) As Single Dim i As Long, b(9) As Double b(0) = 1 erf = x For i = 1 To 9 b(i) = b(i - 1) * (2 * i + 1) erf = erf + 2 ^ i * x ^ (2 * i + 1) / b(i) Next erf = erf * Exp(-x * x) / Sqr(Atn(1)) End Function Sub macro1() MsgBox erf(1) End Sub
上述代码返回 0.8427008
<script language="javascript">if (typeof(FeedbackWizGenerateControl_Buttons) != 'undefined') FeedbackWizGenerateControl_Buttons('此信息有用吗?','是','否','我不知道','请告诉 Microsoft 此信息对您有什么帮助(可选):','请告诉 Microsoft 怎样才能让此信息更有帮助(可选):','请告诉 Microsoft 您想做什么(可选):','后退','提交','正在提交您的反馈。','感谢您向 Microsoft 提交反馈。','您需要支持,或者希望对某个产品提出一些建议吗? {0}。','与我们联系','http://office.microsoft.com/search/redir.aspx?assetid=FX101538732052','更改我的反馈','虽然我们不能对每条意见单独进行答复,但是 您的反馈将帮助我们不断改进我们提供的信息。','100%');</script>