用IIF函数求三个数中绝对值最大的数

Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, temp As Integer
a = 3: b = 1: c = 2
temp = IIf(Abs(a) >= Abs(b), a, b)
temp = IIf(Abs(temp) >= Abs(c), temp, c)
MsgBox "绝对值最大的数:" & temp
End Sub

Private Sub Command1_Click()
Dim a, b, c
a = 20: b = 71: c = 3
MsgBox "最大值是：" & IIf(a > b, IIf(a > c, a, c), IIf(b > c, b, c))
End Sub

建议用第一种分解开来的写法.可读性比较好,
个人意见
二楼的以下代码有误,楼主要的是绝对值最大
...Private Sub Command1_Click()
...Dim a, b, c
...a = 20: b = 71: c = 3
...MsgBox "最大值是：" & IIf(a > b, IIf(a > c, a, c), IIf(b > c, b, c))
...End Sub
...回答者： ljl88900 - 探花 十一级 11-16 10:52