Excel-VBA-算法挑战-03-偶数个数

微信公众号原文

系统：Windows 7
软件：Excel 2016

• 本系列参考LeetCode一些题目，将其进行超级简化，用VBA来解

Part 1： 题目

1. 已知一组整数，计算其中偶数的个数
2. 测试示例：arr1 = Array(1, 3, 5, 7, 9, 11, 12, 16, 18)，结果为3

结果

1.png

Part 2： 解题逻辑

1. 假设原数组为arr1
2. 设置count初始值为0
3. 对数组arr1进行遍历，对其每个元素进行奇数偶数判断
4. 若为偶数，则count+1
5. 输出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： 部分代码说明

1. remainderNum = num Mod 2求余数，若余数为0，则为偶数
2. For Each ele In arr1...Next，对数组每个元素进行遍历，注意Each不能少

---

• 更多学习交流，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg