在Visual Basic（VB）中，判断一个数是否为奇数或偶数可以通过模运算符（Mod）来实现。以下是一个简单的VB程序示例，用于判断用户输入的数字是奇数还是偶数：
```vb
Private Sub Command1_Click（）
Dim number As Integer
Dim result As String
' 获取用户输入
number = Val（InputBox（"请输入一个整数："））
' 判断奇偶
If number Mod 2 = 0 Then
result = "偶数"
Else
result = "奇数"
End If
' 显示结果
Label1.Caption = "输入的数字是：" & number & "，它是一个" & result
End Sub
```
在这个程序中，我们首先声明了两个变量：`number`用于存储用户输入的整数，`result`用于存储判断结果。然后，通过`InputBox`函数获取用户输入，并将其转换为整数。接下来，使用`If...Else`语句判断`number`除以2的余数是否为0，如果为0，则`result`为"偶数"，否则为"奇数"。最后，将结果赋值给`Label1`的标题，以便用户查看。
如果你想要一个更复杂的程序，比如判断一系列数字中的奇数和偶数，可以使用以下代码：
```vb
Private Sub Command1_Click（）
Dim numbers（） As Integer
Dim sumOdd As Integer
Dim sumEven As Integer
Dim i As Integer
' 获取用户输入的数字数量
numCount = Val（InputBox（"请输入数字的数量："））
' 初始化数组和奇偶数和
ReDim numbers（numCount - 1）
sumOdd = 0
sumEven = 0
' 获取用户输入的数字并存储在数组中
For i = 0 To numCount - 1
numbers（i） = Val（InputBox（"请输入第" & （i + 1） & "个数字："））
Next i
' 遍历数组，判断奇偶并计算和
For i = 0 To numCount - 1
If numbers（i） Mod 2 = 0 Then
sumEven = sumEven + numbers（i）
Else
sumOdd = sumOdd + numbers（i）
End If
Next i
' 显示结果
Label1.Caption = "奇数和为：" & sumOdd & vbCrLf & "偶数和为：" & sumEven
End Sub
```
在这个程序中，我们首先获取用户输入的数字数量，并初始化一个数组来存储这些数字。然后，通过循环获取每个数字，并使用模运算符判断其奇偶性，分别累加到奇数和偶数和中。最后，将结果赋值给`Label1`的标题，以便用户查看。