四个赋值的参数若是各不相等，有没有比较简洁的方法表示的？
比如a b c d
除了这样表示if a<>b and b<>c ...

哈哈 写个函数
dim sum[3] as integer
sum[0]=a sum[1]=b sum[2]=c sum[3]=d
for i= 0 to 2
for k=i+1 to 3
compare(sum[i],sum[k])
next
next

private sub compare(x as integer,y as integer)
if x<>y then
msbbox("不相等")
else
msbbox(“相等”)
end if
end sub