VB求函数在一段范围内的最大值

你一般是设置一个1-100的整数区间，然后每个区间递增0.08的百分之1，然后你算出值d;
算法是：

dim i as integer
dim k as integer
dim d as double
dim dmax as double
dmax=0
for i=1 to 100
t= i*0.08/100
d= Val(Text1.Text) * Sin((Val(Text11.Text) - Val(Text2.Text)) * pi / 180) - Val(Text12.Text) * Sin((Val(Text11.Text) - Val(Text13.Text)) * pi / 180)) * Exp(-t / Val(Text14.Text)) + Val(Text12.Text) * Sin(100 * pi * t + (Val(Text11.Text) - Val(Text13.Text)) * pi / 180)
if d>dmax then
dmax=d
k=i
end if

magbox “max = ” & dmax & " when t=" & round(k*0.08/100,4)
next