vb编写判断奇,偶数的函数过程。从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb编写判断奇,偶数的函数过程。从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
日期:2012-05-15 16:04:23 人气:2
Public Function 偶数(ByVal N&) As Boolean
偶数 = (N Mod 2 = 0)
End Function
调用函数过程:
MsgBox 偶数(val(text1.text))