高考问答鬼步舞 面具男教学:求VB编程问题
来源：百度文库 编辑：高考问答 时间：2024/04/30 19:00:35
编个程序求 sinX＝X-X^3/3!+X^5/5!-X^7/7!+......+(-1)^(n-2)*X^(2n-3)/(2n-3)!-(-1)^(n-1)*X^(2n-1)/(2n-1)!
就是用一个程序表示sinX等于什么，答案相当于已经告诉了，就是要用程序写出来。省略的是表示这是一个递推数列啊
就是用一个程序表示sinX等于什么，答案相当于已经告诉了，就是要用程序写出来。省略的是表示这是一个递推数列啊
Private Sub Form_Click()
Dim i, x, s, r, p, n, o, q
x = Val(InputBox("输入 X 的值")) * 3.14159 / 180
q = 1
o = 1
s = 0
n = 1
Do
n = n + 1
r = x ^ q / o
If r < 0.00001 Then Exit Do
p = (-1) ^ n * r
s = s + p
q = q + 2
For i = 1 To q
o = o * i
Next i
DoEvents
Loop
Print s
End Sub
Private Sub Form_Load()
AutoRedraw = True
FontSize = 12
Print "输入X，求Sin(X).单击窗体开始计算"
End Sub
Private Function f(ByVal X As Double, ByVal n As Integer) As Double
f = (-1) ^ (n - 1) * X ^ (2 * n - 1) / b(2 * n - 1)
End Function
Private Sub Command1_Click()
X = 1
Dim s As Double
For i = 1 To 10 '这个数太大，则(2n-1)!double会放不下的
s = s + f(X, i)
Next
Print s
End Sub
Private Function b(ByVal n As Integer) As Double
k = 1
For t = 1 To n
k = k * n
Next
b = k
End Function
不太清除你的问题
目的是求x的值吗？
那省略的内容是什么？