vb 구 합, sin (x) = x / 1 - x ^ 3 / 3! + x ^ 5 / 5! -...(- 1) ^ (n - 1) * x ^ (2 * n - 1) / (2n - 1)! 느낌표 가 계승 이라는 뜻 입 니 다. Private Sub FormClick () Dim x%, i%, q% x = Val (InputBox) Do While t > = 10 ^ (- 5) s = s + t n + 1 For k = 1 To 2 * n - 1 q = q * k Next k t = (- 1) ^ (n - 1) * (x ^ (2 * n - 1) \ q Lop. 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 FormClick () Dim x%, i%, q% x = Val (InputBox) Do While t > = 10 ^ (- 5) s = s + t n + 1 For k = 1 To 2 * n - 1 q = q * k Next k t = (- 1) ^ (n - 1) * (x ^ (2 * n - 1) \ q Lop. Print "s =" s; End Sub n 항의 값 이 10 보다 작 을 때 ^ - 5 시 에 끝 납 니 다.

Private Sub FormClick ()
Dim x%, s!, i%, q%
x = Val (InputBox)
Do While t > = 10 ^ (- 5) '문 제 는 여기 있 습 니 다. t 의 초기 값 이 0 이기 때문에 t.