VBA/Excel-实例系列-08-奇偶判断

系统：Windows 10
软件：Excel 2010

• 这个系列说一些使用Excel/VBA具体的一些实例

• 今天讲讲如何判断整数是偶数还是奇数

• 数学定义上，能被2整除的就是偶数，反之为奇数

• 使用场景：对工作表进行行或者列循环时，奇数行和偶数行需要采用不同的处理方式

今日歌曲：

Part 1：逻辑过程

1. 采用一个函数，传入需要检查的整除

2. 函数内部采用求余数运算，余数为0则为偶数，反之奇数

3. 其中求余VBA函数为Mod

4. 官方帮助文件：Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768到32,767 之间

5. 所有超过Integer范围的会报错

Part 2：代码

Function f01_奇偶判断(num As Integer)    Rem>>判断数字的奇偶性    Rem>>    Dim remainderNum    remainderNum = num Mod 2    If remainderNum = 0 Then        f01_奇偶判断 = '偶数'    Else        f01_奇偶判断 = '奇数'    End IfEnd Function

Part 3：调用该函数

   num = 11    Status = f01_奇偶判断(num)    If Status = '偶数' Then        MsgBox num & '是偶数'    Else        MsgBox num & '是奇数'    End If

执行结果

---

以上为本次的学习内容，下回见

本文为原创作品，如若转载请标明出处，如发现有错误，欢迎留言指出

---