Dim Z As Integer Dim V As Integer Dim X As Integer Z = 10 V = 15 X = 20 If Z Mod 2 = 0 Then MsgBox "Z is even" Else MsgBox "Z is odd" End If If V Mod 2 = 0 Then MsgBox "V is even" Else MsgBox "V is odd" End If If X Mod 2 = 0 Then MsgBox "X is even" Else MsgBox "X is odd" End If
Dim V As Integer
Dim X As Integer
Z = 10
V = 15
X = 20
If Z Mod 2 = 0 Then
MsgBox "Z is even"
Else
MsgBox "Z is odd"
End If
If V Mod 2 = 0 Then
MsgBox "V is even"
Else
MsgBox "V is odd"
End If
If X Mod 2 = 0 Then
MsgBox "X is even"
Else
MsgBox "X is odd"
End If