大家好，今天我们应用VB编程计算
x/1-x^3⁄3!+x^5⁄5!-x^7⁄7!+…+(-1)^n-1/(2n-1)!的结果。
分析数值特点
在本程序中，我们通过观察上面的式子可以发现一些规律。这个规律在式子最后已经写出来了，就是(-1)^n-1/(2n-1)!。
我们需要用到双重循环来解决。外循环将多项式中的各项逐项相加，内循环用来求各项的分子及分母。
在程序实现中，我们使用InputBox函数来将x，n值输入到程序中。
Private Sub Form_Click()Dim n As Integer, x As Single, y As Single, sign As IntegerDim Factor As Integer, Xpower As Singlex = InputBox("请输入x：")n = InputBox("请输入n：")y = x ‘多项式的第1项作为初值sign = 1 ’设符号变量初值为+1For i = 2 To n ‘外循环从第2项开始累加，一直累加到第n项Factor = 1 ’积的初值设为1（用于求分母）Xpower = 1 ‘积的初值设为1（用于求分子）For j = 1 To 2 * i - 1 ’内循环计算出多项式第i项的分子和分母Factor = Factor * j ‘计算第i项的分母Xpower = Xpower * x ’计算第i项的分子Next jsign = -sign ‘改变符号y = y + sign * Xpower / Factor ’外循环每执行一次累加一项Next iPrint "Sinx="; yEnd Sub
讯享网
实际运行验证一下，效果更佳！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/190295.html