标签：
函数返回值是数字，一个数字可能代表一个Case，也可以代表多个Case组合。返回值规则如下：
| 条件 | 十进制数 | 二进制数 |
| Case1 | 1 | 1 |
| Case2 | 2 | 10 |
| Case3 | 4 | 100 |
| Case4 | 8 | 1000 |
| Case5 | 16 | 10000 |
返回值之所以参照二进制数规则递增，因为无论满足其中多少个条件，其相加总和都能保证唯一性。
‘检查正数有效性 Dim i i = fnCheck(iNum) If Not i = 0 Then If (i And 1) = 1 Then ‘Null End If If (i And 2) = 2 Then ‘非数字(字符) End If If (i And 4) = 4 Then ‘负数 End If If (i And 8) = 8 Then ‘零 End If End If ‘判断数字是否为正数 ‘返回值:0-正常,1-Null,2-非数字(字符),4-负数,8-零 Function fnCheck(iNum) fnCheck = 0 If IsNull(iNum) Then fnCheck = fnCheck + 1 End If If Not IsNumeric(iNum) Then fnCheck = fnCheck + 2 End If If iNum < 0 Then fnCheck = fnCheck + 4 End If If iNum = 0 Then fnCheck = fnCheck + 8 End If End Function
标签：
原文地址：http://www.cnblogs.com/zenple/p/4596541.html
