系统:Windows 10
今日歌曲: Part 1:逻辑过程
Part 2:代码Function f01_奇偶判断(num As Integer)
Rem>>判断数字的奇偶性
Rem>>
Dim remainderNum
remainderNum = num Mod 2
If remainderNum = 0 Then
f01_奇偶判断 = '偶数'
Else
f01_奇偶判断 = '奇数'
End If
End Function Part 3:调用该函数 num = 11
Status = f01_奇偶判断(num)
If Status = '偶数' Then
MsgBox num & '是偶数'
Else
MsgBox num & '是奇数'
End If 执行结果 以上为本次的学习内容,下回见
|
|
来自: 今天George > 《Excel VBA》