在Visual Basic（VB）中，要计算所有偶数的乘积，你可以使用一个循环来遍历所有数字，并检查每个数字是否为偶数。如果是偶数，则将其乘以累积的乘积。以下是一个简单的VB程序示例，用于计算从1到n的所有偶数的乘积：
```vb
Sub CalculateEvenProduct（）
Dim product As Double ' 用于存储偶数的乘积
Dim i As Integer ' 循环变量
' 假设我们要计算到n为止的所有偶数的乘积
Dim n As Integer
n = 10 ' 你可以更改这个值来计算不同范围内的偶数乘积
' 初始化乘积为1
product = 1
' 遍历从1到n的所有数字
For i = 1 To n
' 检查当前数字是否为偶数
If i Mod 2 = 0 Then
' 如果是偶数，则将其乘以累积的乘积
product = product * i
End If
Next i
' 输出结果
MsgBox "从1到" & n & "的所有偶数的乘积是： " & product
End Sub
```
在这个示例中，我们使用了一个名为`product`的变量来存储偶数的乘积，并初始化为1。然后，我们使用一个`For`循环遍历从1到n的所有数字。在循环内部，我们使用`If i Mod 2 = 0`来检查当前数字是否为偶数。如果是偶数，我们将其乘以`product`变量的当前值，并将结果存回`product`。最后，我们使用`MsgBox`函数来显示结果。
你可以根据需要修改`n`的值来计算不同范围内的偶数乘积。如果你想要计算其他数学操作，比如偶数的平方和，你可以相应地修改代码。