Public Function 偶数(ByVal N&) As Boolean
偶数 = (N Mod 2 = 0)
End Function
调用函数过程:
MsgBox 偶数(val(text1.text))