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