Question

用VB.NET编程，任意输入一个整数，判定该整数的奇偶性

Answer 1

Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub

Answer 2

if a mod 2=0 then a是偶数否则为奇数！