Question

用VB编写程序,程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10-6时结束计算.输入x

Answer 1

Private Sub Command1_Click()

x = Text1.Text

s = 1

a = 1

Do

k = k + 1

a = a * -1 * x ^ 2 / ((2 * k - 1) * (2 * k))

s = s + a

Loop Until Abs(a) < 10 ^ -6

Text2.Text = s

End Su