Question

用VB求几个数的最小值

Answer 1

放到数组里面方便比如你的数全在数p()里面
dim pmin as double'你是什么类就命成什么类的
pmin=p(1)
for i=2 to n
if p(i)<pmin then pmin=p(i)
next i
我这里面的数组的index是从1开始的。
这样运行pmin就是你要的最小数了！！

Answer 2

min=maxint
for a=1 to n
if data(a)<min then min=data(a);
next a
最后的min

Answer 3

private sub GetMinNumber(arrNum() as double) as double
dim i as integer
dim MinNumber as double
minnumber=arrnum(lbound(arrnum))
for i=lbound(arrnum)+1 to ubound(arrnum)
if arrnum(i)<minnumber then
minnumber=arrnum(i)
end if
GetMinNumber=MinNumber
end sub