comando de código vb1

Private Sub Command1_Click()

x = Val(InputBox("Ingrese el valor de x (en radianes): "))

Cosx = 0

X2 = x * x

t = 1

i = 1

Hacer mientras Abs(t) gt = 1E - 16

Cosx = Cosx t

t = -t * X2 / (i * (i 1))

i = i 2

Bucle

Imprimir "cos("; x; ")="; Cosx, i

End Sub