通过Abs()函数对整数取绝对值，然后通过Mod 2取余计算判断，即除以2，余数是1，那么就是奇数，余数是0就是偶数。如下：
南湖网站建设公司创新互联建站,南湖网站设计制作，有大型网站制作公司丰富经验。已为南湖上千提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的南湖做网站的公司定做！
If Abs(m) Mod 2 = 1 Then
Print m "是奇数"
Else
Print m "是偶数"
End If
在窗体上,放一个按钮,一个文本框,三个标签
代码如下
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "该数为偶数！"
Label2.Caption = Label2.Caption +1
Else
Label1.Caption = "该数为奇数！"
Label3.Caption = Label3.Caption +1
End If
End Sub
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A(100) As Integer
Dim n1 As Integer = 0
Dim n2 As Integer = 0
For i = 1 To 100
Randomize()
A(i) = Int(Rnd() * 1000 + 1)
If A(i) Mod 2 = 0 Then
n1 += 1
Else
n2 += 1
End If
Next
MsgBox("所产生的100个数字中偶数有" n1 "个，奇数有" n2 "个")
End Sub
