先说几句楼主“该怎么办呢难哦”，你的问题的确好象是太“简单”了，以至于VB都不“愿意”提供这样的功能。对于一个初学编程的小学生来说，这样的问题完全应该能独立解决。如果连这样的问题都需要寻求帮助，ACAD开发这条路可能会太长太长了，前方不仅仅是荆棘密布，还会有刀山火海、万丈深渊。当然，你的问题实际上绝不象看上去那么简单。试想，若VB提供类似Max()或者Min()函数，所要考虑的问题实在太多太多。首先，参数传递是用数组还是其它方式？实际上指定任何方式都将降低函数的灵活性，都是不可取的(我是说作为VB库函数这样不可取。)另外，函数参数的个数不应该仅仅局限为三个，参数的类型也不仅仅是Int,Short, Single,Double这样的“数”，还应该包括字符、字符串、Boolean值等等。这样，函数接口就会十分复杂，而这样一个具有复杂接口和简单实现的函数，恐怕没有哪个VB用户会想到使用它。既然如此，VB的设计者自然就将这样的功能交给用户，由用户编写合适的特定的Max()Min()函数，毕竟这样的函数是不难写的。实际上，还有很多类似的情况，VB都不提供直接的方法，另一个典型例子是反三角函数，VB仅仅提供Arcsin()函数。
然后说说zhuqi75这位“业余侠客”。我看你在乐筑天下近二百篇帖子，好象也只有二楼那篇可以和“侠”字沾点边。而就这样一段随随便便可以写出百八十段的所谓代码居然还让你认为是“运气不好”，是在做善事？我不知道楼主计划怎么“感谢”你，据我所知，一个鸡蛋市价要好几个大毛，你觉得你的那段所谓代码配这样的报酬吗？当然，你没有义务在这给任何人任何帮助，如果有人要感谢你，那也是他的自由。我无法知道你的真实能力，但我敢断定，你无法成为一个优秀的开发人员，因为你太缺乏团结协作、与人为善的精神，而这些正是程序开发者最应该具备的基本素质之一。
最后，从zhuqi75的那段所谓代码中随手抓几条虫虫与乐筑天下的各位朋友一起玩玩。(这是谁呀，吐我一身没关系，别把人家的裙子弄脏了，虫虫有什么好恶心的？蚕宝宝不也是虫虫吗？)
第一条虫虫：整段代码声明为Function却没有指定返回值类型，Function内部也没有用给comp赋值的方法返回任何内容，这样的Function不知该如何调用。整个Function只是用MsgBox显示结果，却不给别人使用它？在VB中，好的编程风格应该将这个功能写成两个函数，分别返回最大值和最小值。
第二条虫虫：我不知道为什么要用ByVal关键字来限定参数。难道是担心Function内部会修改了参数值？你又如何知晓用户不准备利用参数来同时得到最大值和最小值呢？那样ByRef岂不是更好的方法？
第三条虫虫：原代码如下：
If max < c Or max = c Then
我不知道为什么不写成这样：
If max <= c Then
这样比较效率要提高一倍，当然这样的小程序效率并不重要，但如果要求的不是三个数比较，而是三十万个，甚至三亿个数，这样比较可就慢了太多。另外，我也不知道，max = c时为什么要重新赋值？
那段所谓代码中虫虫还很多，留给其他朋友再抓抓玩。
置顶卡
