通过Abs()函数对整数取绝对值，然后通过Mod 2取余计算判断，即除以2，余数是1，那么就是奇数，余数是0就是偶数。如下：
创新互联响应式网站特点就是不管在电脑、平板还是手机上，HTML5建站都会根据屏幕尺寸自动调节大小、图片分辨率，并且融入一定的动画特效，让网站看起来非常的美观大方。从网站需求对接到网站制作设计、从代码编写到项目上线运维，技术人员全程跟踪，快速响应
If Abs(m) Mod 2 = 1 Then
Print m "是奇数"
Else
Print m "是偶数"
End If
1、定义两个数，分别用来存放奇数和偶数
2、判断能被2整除的是偶数，然后文本框显示红色文字这是偶数
3、判断不能被2整除的是奇数，然后文本框显示蓝色文字这是奇数。
语句可以用If...else....end if
你的方法是对的，判断除以2的余数，结果为0就是偶数，否则是奇数。
注意一，取余数的运算是MOD，例如 5 MOD 3的结果就是2
注意二，文本框输入的内容是字符串，需要转换为数字类型才可以运算
这个同时判定可以采用多线程做。但是一般都是使用数组循环来统计。
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
Private Sub Form_Click() '点击窗体运行
Dim js As Integer, os As Integer
Dim i As Integer, x As Integer
For i = 1 To 10 '产生十个随机整数
x = Int(Rnd * 100)
Print x;
If x Mod 2 = 1 Then '如果是奇数
js = js + 1
Else '如果是偶数
os = os + 1
End If
Next
Print "奇数有"; js; "个"
Print "偶数有"; os; "个"
End Sub
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label2.Caption = "该数为偶数！"
Else
Label2.Caption = "该数为奇数！"
End If
End Sub
