求助!在线等，急编写function过程，计算多数中的最大值、最小值和平均值。并且用单击命令按钮事件过程调用function过程，计算20个随机数的最大值、最小值和平均值，并输出计算结果。

function doHomeWork(l as integer,r as integer,count as integer)'l，r是随机数的范围,count 是随机数个数
dim tmp(2) as string'tmp(0)最小值,tmp(1)最大值，tmp（2）平均值
dim i as integer
dim min as integer,max as integer,aver as single
dim sum as integer,t as integer
if l>r or r-l < count then
msgbox "error!"
exit function
end if
min=r
for i=0 to count-1
t=int(rnd*(r-l+1)+l)
if t>max then max=t
if t<min then min=t
sum=sum+t
next
aver=sum/count
tmp(0)=cstr(min)
tmp(1)=cstr(max)
tmp(2)=cstr(aver)
doHomeWork=tmp
end function
'调用
dim res() as string
res=doHomeWork(1,100,10)'产生20个，1-100的随机数
print res(0)'最小值
print res(1)'最大值
print res(2)'平均值