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