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

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

amin = 65536

for i = 0 to 99
if amin > a(i) then
amin = a(i)
imin = i
end if
next

debug.print amin, imin