百度作业网VB程序用循环求最大值
来源：学生作业帮 编辑：百度作业网作业帮 分类：数学作业 时间：2024/05/24 18:56:44
VB程序用循环求最大值
x对应一个函数值y,曲线类似抛物线的某一段吧,x范围在1到2,x精度在0.01,怎么通过循环求出Y的最大值?
x对应一个函数值y,曲线类似抛物线的某一段吧,x范围在1到2,x精度在0.01,怎么通过循环求出Y的最大值?
大概这个意思：Dim MaxY as Single
Dim X,Y
MaxY = -999999
For X = 1 to 2 Step 0.01
Y = F(X)
If Y > MaxY Then MaxY = Y
Next X
Print MaxY
再问： 新手见谅，你写的有一些看不懂，但是x=1的时候有一个y的值啊，我的意思是想用y=f(x+0.01)值 跟y=f(1)比，y=f(x+0.02)与y=f(x+0.01)比，因为函数类似于一个抛物线，这个怎么实现？
再答： 不难懂吧~ 你要求的是最大值，管他什么函数呢！Dim MaxY as Single '变量定义,最大值.
Dim X, Y '循环变量
MaxY = F(1) '赋初值
For X = 1 to 2 Step 0.01
Y = F(X) '计算当前值
If Y > MaxY Then MaxY = Y '若当前值大于记录的最大值则替换
Next X
Print MaxY '输出
Dim X,Y
MaxY = -999999
For X = 1 to 2 Step 0.01
Y = F(X)
If Y > MaxY Then MaxY = Y
Next X
Print MaxY
再问： 新手见谅，你写的有一些看不懂，但是x=1的时候有一个y的值啊，我的意思是想用y=f(x+0.01)值 跟y=f(1)比，y=f(x+0.02)与y=f(x+0.01)比，因为函数类似于一个抛物线，这个怎么实现？
再答： 不难懂吧~ 你要求的是最大值，管他什么函数呢！Dim MaxY as Single '变量定义,最大值.
Dim X, Y '循环变量
MaxY = F(1) '赋初值
For X = 1 to 2 Step 0.01
Y = F(X) '计算当前值
If Y > MaxY Then MaxY = Y '若当前值大于记录的最大值则替换
Next X
Print MaxY '输出