VB脚本：评估给定的数字是否为偶数

Question

' Even Number Checking

e = inputbox("enter a nunber ")

if not(numeric(a) and a<=0) then
msgbox "sorry eneter a valid number"

elseif even = (e mod 2 = 0) then 

msgbox "even number"

else
msgbox "not an even number"

end if 

Answer 1

您的第一个问题是您是将用户输入值存储在e中，但是接下来的行是检查a是否为数字或<= 0。