15 lines
344 B
Text
15 lines
344 B
Text
Public Sub Form_Open()
|
|
Dim sAnswer, sMessage As String
|
|
|
|
sAnswer = InputBox("Input an integer", "Odd or even")
|
|
|
|
If IsInteger(sAnswer) Then
|
|
If Odd(Val(sAnswer)) Then sMessage = "' is an odd number"
|
|
If Even(Val(sAnswer)) Then sMessage = "' is an even number"
|
|
Else
|
|
sMessage = "' does not compute!!"
|
|
Endif
|
|
|
|
Print "'" & sAnswer & sMessage
|
|
|
|
End
|