VB随即生成10个2位数,然后要知道最大是第几个.最小是第几个

可以用RANDOM函数来实现，先定义一个数组，再用一循环生成随机数，随机数可以乘十再取整！再做判断就行了！不过你得另外再定义一数组用来交换数据！具体怎么做你就看著办了！

dim a(1 to 10) as integer,i as integer,Max as integer,min as integer
dim m as integer,n as integer
for i=1 to 10
randomize
a(i)=int(rnd*90+10)
next i
max=a(1):min=a(1)
for i=1 to 10
if a(i)>max then
max=a(i):m=i
end if
if a(i)<min then
min=a(i)
n=i
end if
next i
print "最大数是第";m;"个，最小数是第";n;"个。"

dim i as integer ,max as integer ,min as integer,pm as integer,pn as integer，arr(9) as integer
for i=0 to 9
arr(i)=int(rnd()*100)//这里生成的是100以内的整数
max=iif(arr(i)>max,arr(i),max)
pm=iff(max=arr(i),i,pm)
min=iif(arr(i)<min,arr(i),min)
pn=iif(min=arr(i),i,pn)
next
msgbox "最大的数是：" & max & "，是第" & pm & "个数；" & vbcrlf & "最小的数是：" & min & "，是第" & pn & "个数。"

用什么事件产生啊