vb求和，求sin（x）=x/1-x^3/3！+x^5/5！-……（-1）^（n-1）* x^（2*n-1）/（2n-1）！感嘆號是階乘的意思 Private Sub Form_Click（） Dim x%，，i%，q% x = Val（InputBox（“請輸入X的值”）） Do While t >= 10 ^（-5） s = s + t n = n + 1 For k = 1 To 2 * n - 1 q = q * k Next k t =（（-1）^（n - 1））*（x ^（2 * n - 1））\ q Loop Print“s=”；s End Sub 當第n項的值小於10^-5時結束

vb求和，求sin（x）=x/1-x^3/3！+x^5/5！-……（-1）^（n-1）* x^（2*n-1）/（2n-1）！感嘆號是階乘的意思 Private Sub Form_Click（） Dim x%，，i%，q% x = Val（InputBox（“請輸入X的值”）） Do While t >= 10 ^（-5） s = s + t n = n + 1 For k = 1 To 2 * n - 1 q = q * k Next k t =（（-1）^（n - 1））*（x ^（2 * n - 1））\ q Loop Print“s=”；s End Sub 當第n項的值小於10^-5時結束

Private Sub Form_Click（）
Dim x%，s！，i%，q%
x = Val（InputBox（“請輸入X的值”））
Do While t >= 10 ^（-5）'問題出在這裡，因為t的初值是0，所以t

Elden Ring Premiere

RELATED INFORMATIONS