Private Sub Form_Click()Dim a As IntegerDim b As Integera = InputBox("请输入一个数字")If Int(b / 2) = b / 2 Then Print "这个数是偶数"If Int(b / 2) < b / 2 Or Int(b / 2) > b / 2 Then Print "这个数是奇数"End Sub 怎么输入什么数字都是偶数啊~