Прлверить , является ли трехзначное число нечетным в программе бейсик

Question

Прлверить , является ли трехзначное число нечетным в программе бейсик

Answer 1

Dim n As Integer
n = InputBox("Введите число")
If n And 1 Then
MsgBox ("Число нечетное")
Else
MsgBox ("Число четное")
End If

Comments

это для Visual Basic и VBA