我写的关于求三个数中的最大值，用一个循环完成，大家看怎么样？

Private Sub Form_click()
……
While a < b Or a < c
a = b
b = c
Wend
Print a
End Sub

想法不错，我也写一个：
MaxNum = IIf(a > b,a,b)
MaxNum = IIf(MaxNum > c, MaxNum,c)
MsgBox "最大数为：" & MaxNum

谢谢版主观临！！！

[此贴子已经被作者于2007-6-30 17:46:02编辑过]

能变通下 写出N个数据比大小 求最大 排序等效果的另类算法么？

楼主的程序 是不是 print a orb or c 都是一样的结果

对，应该都是一样的！

怎么个另类法？

想看看除了一般的，前一个数和后一个数比较，交换位置外，还有什么新算法

用if....then 应该怎么写

if a>b then
max=a
else
max=b
end if
if max< c then
max=c
end if