代码及注释如下：
公司主营业务：网站制作、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出金寨免费做网站回馈大家。
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
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
你是不是应该对最大值和最小值赋初值（比如把 r(1) 赋给最大值和最小值）呢？不然最小值默认初始值是‘0’，后面的判断就不起作用了。你可以加个断点试试，他们的初始值是多少。。。
