在VB（Visual Basic）中计算平均值的方法有多种，以下是几种常见的方法：
方法一：使用公式
你可以直接使用Excel的公式来计算平均值。例如，在A2到A100的单元格区域中输入以下公式：
```excel
=AVERAGE（A2:A100）
```
这将会计算出A2到A100单元格区域内所有数值的平均值，并将结果显示在B1单元格中。
方法二：使用VBA代码
如果你需要编写VBA宏来计算平均值，可以使用以下代码：
```vba
Sub CalculateQualityMetrics（）
Dim DataRange As Range
Dim AverageValue As Double
Dim StdDevValue As Double
' 设置数据区域
Set DataRange = ThisWorkbook.Sheets（"Sheet1"）.Range（"A2:A100"）
' 计算平均值
AverageValue = Application.WorksheetFunction.Average（DataRange）
Range（"B1"）.Value = "平均值"
Range（"B2"）.Value = AverageValue
' 计算标准偏差
StdDevValue = Application.WorksheetFunction.StDev_S（DataRange）
Range（"C1"）.Value = "标准偏差"
Range（"C2"）.Value = StdDevValue
End Sub
```
这段代码首先定义了一个数据区域，然后使用`Application.WorksheetFunction.Average`函数计算平均值，并将结果赋值给`AverageValue`变量。最后，将平均值和标准偏差分别显示在B1和C1单元格中。
方法三：使用循环
你也可以使用循环来手动计算平均值。以下是一个示例代码：
```vba
Private Sub Command_Click（）
Dim i As Integer
Dim sum As Double
Dim average As Double
sum = 0
For i = 1 To 10
sum = sum + Val（InputBox（"请输入第" & i & "个数："））
Next i
average = sum / 10
MsgBox "这些数的平均值为： " & average
End Sub
```
这段代码通过循环获取用户输入的10个数，计算它们的总和，然后除以10得到平均值，并通过消息框显示结果。
方法四：使用自定义函数
你还可以编写自定义函数来计算平均值。以下是一个示例：
```vba
Private Function pj（x（） As Integer） As Single
Dim m As Integer, n As Integer, i As Integer, s As Integer
m = LBound（x）
n = UBound（x）
For i = m To n
s = s + x（i）
Next i
pj = s / （n - m + 1）
End Function
Private Sub Command1_Click（）
Dim a（） As Integer
Dim i As Integer
Dim aver As Single
ReDim a（1 To 10）
For i = 1 To 10
a（i） = Int（Rnd（） * 10） ' 随机生成0到9之间的整数
Next i
aver = pj（a）
Print "这些数的平均值为： " & aver
End Sub
```
这段代码定义了一个名为`pj`的函数，用于计算整数数组的平均值。在`Command1_Click`事件中，生成一个包含10个随机整数的数组，并调用`pj`函数计算其平均值，最后将结果显示在消息框中。
总结
以上是在VB中计算平均值的几种方法。你可以根据自己的需求和编程习惯选择合适的方法。对于简单的计算，使用Excel公式或VBA中的`AVERAGE`函数是最快捷的方法。如果需要编写更复杂的程序，可以使用循环或自定义函数来实现。