vb程序设计，求三个数的最大值和最小值，代码怎么打，尽量简单点不要太复杂

//申明一个整型列表和一个整型参数
dim list()as integer
dim i as integer
//使用循环输入的方式输入三个数，并赋值到列表中
for i=0 to 2
Redim list(i)=inputbox()
//申明求最大值函数
Function max(list):
dim len as integer //申明临时变量用来记录数组长度
dim i as integer,m as integer //申明临时变量
len=ubound(list) //求数组长度的上限
//对比每个值的大小
for i=1 to len-1 //排除掉数组第一个下标，防止出界
if list(i)>list(i-1) then
m=list(i-1)
else
m=list(i)
next
max=m //返回比较的最大值
End funtion
最大值函数如上，最小值函数题主照着写一个便可以，还有函数的调用过程
msgbox max(list)
即可打印最大值