VB sum, sin (x) = x / 1-x ^ 3 / 3! + x ^ 5 / 5! - (- 1) ^ (n-1) * x ^ (2 * n-1) / (2n-1)! Exclamation mark means factorial Private Sub Form_ Click() Dim x%,,i%,q% X = Val (InputBox ("please enter the value of 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 It ends when the value of the nth item is less than 10 ^ - 5

VB sum, sin (x) = x / 1-x ^ 3 / 3! + x ^ 5 / 5! - (- 1) ^ (n-1) * x ^ (2 * n-1) / (2n-1)! Exclamation mark means factorial Private Sub Form_ Click() Dim x%,,i%,q% X = Val (InputBox ("please enter the value of 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 It ends when the value of the nth item is less than 10 ^ - 5

Private Sub Form_ Click()
Dim x%,s!,i%,q%
X = Val (InputBox ("please enter the value of X"))
Do while t > = 10 ^ (- 5) 'the problem is here, because the initial value of T is 0, so t