vb从入门到精通_VB使用台劳多项式求解Sinx值

微信搜一搜 跟我学VB

今天，我们学习如何用台劳多项式来近似求解Sinx值。

台劳多项式求解公式如下：

sinx≈x/1-x^3/3!+x^5/5!-x^7/7!+...+(-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 j  sign = -sign           '改变符号  y = y + sign * Xpower / Factor '外循环每执行一次累加一项Next iPrint "Sinx="; yEnd Sub

●如何用VB绘制Sin正弦函数曲线●一个VB程序运行需要经过哪些过程？！●VB从入门到精通全套学习教程开始发放了！●用VB编程来开发纸牌接龙游戏

长按上图，关注跟我学VB微信

提供VB编程的解答与二级VB的指导