二、 编写一个vb函数过程,用以判断一个数是奇数还是偶数.

问题描述:

二、 编写一个vb函数过程,用以判断一个数是奇数还是偶数.

Private Function jo(ByVal n As Integer)n = InputBox("请输入一个数字")If n Mod 2 0 ThenMsgBox n & "是奇数"ElseMsgBox n & "是偶数"End IfEnd FunctionPrivate Sub Form_click()Call jo(n)End Sub