vb点虐 数组最小值 vba数组最小值

vb中如何找出数组中的最小值,并找出最小值的位置(第几个数字)

代码及注释如下：

公司主营业务：网站制作、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出金寨免费做网站回馈大家。

sub main()

dim a(0 to 99) as integer, amin as integer, i as integer, imin as integer

x = 65536'定义变量x为一个比数组中最大值还要大的数

for i = 0 to 99'假设数组元素个数为100个

if x a(i) then

x= a(i)‘如果x大于数组中的元素，则让x等于数组中的这个元素，这样x最终就成了数组中最小的数

y = i'y获得x为最小值时，i的值，也就是x为数组中的第几个数字

end if

next

msgbox "最小值为"x " 是第" y "个数字"

end sub

VB从数组中找出最大最小值及其位置代码

1、遍历数组进行比较查找即可。

2、vb6示例代码：

option

explicit

private

sub

command1_click()

randomize

timer

dim

a(9)

as

integer,

i

as

integer

dim

x,

fp

as

integer,

zp

as

integer

for

i

=

to

9

'模拟生成一个随机数组

a(i)

=

50

-

rnd

*

100

debug.print

a(i);

"

";

next

debug.print

fp

=

-32768:

zp

=

32767

for

each

x

in

a

'遍历数组进行比较

if

x

then

if

zp

x

then

zp

=

x

else

if

fp

x

then

fp

=

x

end

if

next

debug.print

"负数中的最大数是:";

fp;

"

正数中的最小数是:";

zp

end

sub

vb.NET一个找出数组最大最小值的程序有个小问题 谁看一下

你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。