当前位置:新励学网 > 秒知问答 > 用VB做sin函数

用VB做sin函数

发表时间:2024-07-30 10:37:08 来源:网友投稿

FunctionMySin(ByValxAsDouble)AsDoubleDimkAsIntegerDimnowSinxAsDoubleDimtempAsDoubleDimtolAsDoublek=1tol=0.00001nowSinx=xtemp=xDotemp=-temp*(x*x)/(2*k+1)/(2*k)nowSinx=nowSinx+tempk=k+1LoopWhileAbs(temp)>

tolMySin=nowSinxEndFunction'本程序改编自计算方法C++作业。

已在VB环境编译通过。'可以用上一次计算的结果,没必要定义阶乘函数。'MySin(2)结果是:0.909297.。。和Sin(2)差不多。

免责声明:本站发布的教育资讯(图片、视频和文字)以本站原创、转载和分享为主,文章观点不代表本网站立场。

如果本文侵犯了您的权益,请联系底部站长邮箱进行举报反馈,一经查实,我们将在第一时间处理,感谢您对本站的关注!