Public Function 偶数判断(ByVal 需要判断的数字 As Long) As Boolean '判断是不是偶数,就可以知道是不是奇数了
Dim 返回结果 As Boolean = True
If 需要判断的数字 Mod 2 = 0 Then
返回结果 = True
Else
返回结果 = False
End If
Return 返回结果
End Function
中英文混合,呵呵