Сценарий 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. </p>