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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 14:41:17
用VB编写程序,程序的功能是,利用下列公式求函数cos(x)的近似值,规定通项的绝对值≤10-6时结束计算.输入x

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

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