一道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,标题分别为"计算"和"退出"的命令按

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/08 18:35:35
一道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)的最大值.要求在窗

一道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,标题分别为"计算"和"退出"的命令按
一道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.
提示:
求最大值问题,一般先假设一个较小的数为最大值的初值.因本题无法估计较小的值,则取第一个数为最大值的初值.

一道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,标题分别为"计算"和"退出"的命令按
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