一道VB题目,实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x
问题描述：
一道VB题目,实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x
实验5.6 对x=1,2,...,10,求函数f(x)=x-10*cos(x)-5*sin(x)的最大值.要求在窗体上建立两个名称分别为Command1和Command2,标题分别为"计算"和"退出"的命令按钮.程序运行后,单击"计算"按钮,实现上述功能,将结果输出到窗体,单击"退出"按钮,结束程序.窗体文件命名为Ex5-6.frm,工程文件命名为 Ex5-6.vbp.
提示：
求最大值问题,一般先假设一个较小的数为最大值的初值.因本题无法估计较小的值,则取第一个数为最大值的初值.
答
Private Sub Command1_Click()
Dim a(1 To 10) As Double, max As Double
For x = 1 To 10
a(x) = x - 10 * Cos(x) - 5 * Sin(x)
Print "x=" & x & "时,f(x)=" & a(x)
Next x
max = a(1)
For i = 2 To 10
If a(i) > max Then max = a(i)
Next i
Print "函数的最大值为：" & max
End Sub
Private Sub Command2_Click()
End
End Sub