Public Function 偶数(ByVal N&) As Boolean
偶数 = (N Mod 2 = 0)
End Function
调用函数过程:
MsgBox 偶数(val(text1.text))
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
其他人气：531 ℃时间：2020-02-03 10:42:06
优质解答
我来回答
类似推荐