机械优化设计一维搜索vb编程

单峰区间确定Function f(x As Single) As Doublef = Val(Text3.Text) * x * x + Val(Text4.Text) * x + Val(Text5