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)
即可打印最大值

比如标记A列中最大值用填充

点击A列，开始>条件格式>新建规则>使用公式确定要设置格式的单元格>为符合此公式的值设置格式，填入公式 =A1=max(a:a)

格式>填充>选择黄，确定。

行中最大值也照此套用，道理一样的

1、打开你的工作表格以后，这里面有很多组数据，这个时候你要看好你数字最上面对应的英文是哪个一，这里我的是C，竖行总共有多少个，我这里是2-16。
2、把你的鼠标选中最大值的结果表格上，在最上面的函数fx中输入=，然后再输入max(c2:c16),这里需要提示大家的是，你的数据表格占用的是哪些单元格，输入以后就会发现，系统将你自动选中的这些单元格突出出来。
3、选好以后就单击回车键，这个时候你数据中的最大值就出现在你最开始选中的最大值结果框中了。
4、其实查找最小值跟最大值的 *** 作方法是一样的，但唯一的不同点就在于使用的计算函数是不一样的，这里计算最小值的函数是min,在函数框中输入min(c2:c16)。
5、这个时候你再回到你的结果表格单元查看一下，最小值就会出现在结果框中了。

函数最大值的求法如下：

（1）对于任意的x∈I，都有f(x)≤M；
这句话是说，在该函数的定义域中其函数值都小于或者等于一个数（M）。
（2）存在x0∈I，使得f(x0)=M

这句话是说，在该函数的定义域中要存在这样一个可以让函数值等于M的X0。
求极值一般用求导的方法，其一阶导数等于0。

最大值，即为已知的数据中的最大的一个值，在数学中，常常会求函数的最大值，一般求解方法有换元法、判别式求法、函数单调性求法、数形结合法和求导方法。

---