请求帮助：关于赋值语句的特殊用法

Question

&^)*&(^这个很无聊的。不会。

Answer 1

用IIF函数：
Dim MAX As Integer,MIN As Integer
MAX=IIF(a>b,a,b)
MIN=IIF(a<b,a,b)
a=MAX
b=MIN如果用普通运算： 
Dim C As Integer
if a<b then
  c=b
  b=a
  a=c
end if

Answer 2

a=(abs(a-b)+a+b)/2
b=(-abs(a-b)+a+b)/2

Answer 3

高手如云啊，我也来一个普通运算的：    Dim a As Long, b As Long
    Dim Max As Long, Min As Long
    a = 1
    b = 2
    Max = a * -(a > b) + b * -(a < b)
    Min = a * -(a < b) + b * -(a > b)

Answer 4

这个问题有点意思Dim a As Integer, b As Integer, c As Integer, d As Integer
a = 1: b = 2
c = a + b
d = (a < b) + 1
a = Abs(c * d - a)
b = Abs(c * d - b)