在VB（Visual Basic）程序中计算表达式的值通常涉及以下步骤：
声明变量：
首先，你需要声明变量来存储计算结果和输入的值。
输入表达式：
用户通过文本框或其他输入控件输入要计算的表达式。
计算表达式：
使用VB提供的运算符和内置函数来计算表达式的值。
输出结果：
将计算结果显示在文本框或其他输出控件上。
```vb
Dim Str As String ' 用来存储表达式
Dim Rst As String ' 用来存储结果
Dim SCtl As Object
Set SCtl = CreateObject（"MSScriptControl.ScriptControl"） ' 创建并存储ScriptControl对象
Str = txbExpression ' 将表达式的值传递给Str
SCtl.Language = "VBScript" ' 设置脚本语言为 VBScript
Rst = SCtl.Eval（Str） ' 计算表达式的值
txbValue.Text = Rst ' 输出最终结果
```
在这个示例中，`txbExpression` 是用户输入的表达式，`txbValue` 是用来显示计算结果的文本框，`SCtl` 是一个 `ScriptControl` 对象，用于执行VBScript代码并计算表达式的值。
对于更复杂的计算，如求和、求积、求幂等，你可以使用循环和算术运算符来实现。例如，求一个数的阶乘可以通过以下代码实现：
```vb
Dim n As Integer
Dim result As Long
n = InputBox（"请输入一个正整数："）
result = 1
For i = 1 To n
result = result * i
Next i
MsgBox "阶乘结果为：" & result
```
在这个示例中，用户输入一个正整数 `n`，程序通过循环计算 `n` 的阶乘，并将结果显示在消息框中。
对于更复杂的数学运算，如三角函数、对数等，你可以使用VB提供的数学函数，如 `Math.Sin`、`Math.Cos`、`Math.Log` 等。例如，计算一个角的正弦值可以通过以下代码实现：
```vb
Dim angle As Double
angle = InputBox（"请输入一个角度（度数）："）
Dim sinValue As Double
sinValue = Math.Sin（angle * Math.PI / 180） ' 将角度转换为弧度后计算正弦值
MsgBox "正弦值为：" & sinValue
```
在这个示例中，用户输入一个角度（度数），程序将其转换为弧度后计算正弦值，并将结果显示在消息框中。
总之，在VB程序中计算表达式的值需要结合变量声明、表达式输入、运算符和内置函数使用，以及结果输出等多个步骤。通过这些步骤，你可以实现各种复杂的数学和逻辑计算。