请定义一个宏,比较两个数a、b的大小,不能使用大于、小于、if语句

Public Sub sss()
'不用 > 、< 、if 语句,判断两数字的大小
Dim a,b
a = 0.05
b = 0.054
MsgBox Choose(2 + CInt(CBool(Int(a / b))),"a大于b","a小于b")
End Sub
再问： 用c++/c来定义啦
再答： C语言不会啦~不过道理是相通的，就是求 a/b 的整数，是0就a小，非0就a大； 然后将0或非0转换成单纯的 布尔值，这样就不用 >、< 了， 然后再将true 或 false 值 转换成 两个数字，用 选择语句 选择结果就成了