作业贴

查看怎么排序

呵呵，这道题刚好是我在学校时被抽到的题目，要在教师机里当场写出来演示给同学们看，那时对VB一窍不通做不出，被P了一通，所以印象很深！
这题太经典了！我就不按题目要求做了，写一个求两数较大者的，再推广……
Private Function Max(ByVal a, ByVal b) As Variant
If a > b Then
    Max = a
Else
    Max = b
End If
End Function
比如求三个数的较大者：
max(n1,max(n2,n3))
求五个数的较大者：
max(n1,max(n2,max(n3,max(n4,n5))))
……
按此思路，楼主再自己完成你的题目吧！~