考试填空.doc

ID STNR 24 用sin(x)≈x－x^3/3!+x^5/5!-……+(-1)^(n-1)*(x^(2n-1))/(2n-1)!的公式求近似值，直到最后一项绝对值小于0.00001为止。设x＝7。Private Sub Form_click()Dim x As Integer, i As IntegerDim xpower As SingleDim y As Singlex = Val(InputBox(请输入x：))i = 0z = 1y = 0Do While Abs(z) 0.00001factor = 1i = i + 1For j = 1 To 2 * i - 1factor = factor * jNext jxpower = x ^ (2 * i - 1)________________________________y = y + zLoopPrint format(y, 0.#######)End Sub 0.6569827 23 用sin(x)≈x－x^3/3!+x^5/5!-……+(-1)^(n-1)*(x^(2n-1))/(2n-1)!的公式求近似值。设x=7,n＝15。Private Sub Form_click()Dim n As Integer, x As IntegerDim i As I