系统：Windows 7
软件：Excel 2016
- 本系列参考LeetCode一些题目，将其进行超级简化，用VBA来解
Part 1： 题目
- 已知一组整数，计算其中偶数的个数
- 测试示例：
arr1 = Array(1, 3, 5, 7, 9, 11, 12, 16, 18)，结果为3
结果
1.png
Part 2： 解题逻辑
- 假设原数组为arr1
- 设置count初始值为0
- 对数组arr1进行遍历，对其每个元素进行奇数偶数判断
- 若为偶数，则count+1
- 输出count
Part 3：代码
Sub main()
arr1 = Array(1, 3, 5, 7, 9, 11, 12, 16, 18)
Count = 0
For Each ele In arr1
res = f01_奇偶判断(ele)
If res = "偶数" Then
Count = Count + 1
End If
Next
Debug.Print ("偶数的个数为：")
Debug.Print (Count)
End Sub
Function f01_奇偶判断(num)
Rem>>判断数字的奇偶性
Rem>>
Dim remainderNum
remainderNum = num Mod 2
If remainderNum = 0 Then
f01_奇偶判断 = "偶数"
Else
f01_奇偶判断 = "奇数"
End If
End Function
代码截图
2.png
Part 4： 部分代码说明
-
remainderNum = num Mod 2求余数，若余数为0，则为偶数 -
For Each ele In arr1...Next，对数组每个元素进行遍历，注意Each不能少
- 更多学习交流，可加小编微信号
learningBin
更多精彩，请关注微信公众号
扫描二维码，关注本公众号
公众号底部二维码.jpg
