在VB（Visual Basic）中计算一组数的平均值，你可以遵循以下步骤：
初始化总和变量：
创建一个变量来存储这组数的总和。
计数：
创建另一个变量来记录这组数中有多少个元素。
循环遍历：
使用循环结构遍历这组数，将每个数加到总和变量中，并增加计数变量的值。
计算平均值：
在循环结束后，将总和除以计数变量的值，得到平均值。
显示结果：
将计算出的平均值显示给用户，可以使用`MsgBox`函数或者其他方式来展示。
下面是一个简单的VB示例代码，用于计算三个数的平均值：
```vb
Private Sub Command_Click（）
' 假设从三个ComboBox中获取数值
Dim num1 As Double, num2 As Double, num3 As Double
num1 = Val（Combo1.Text）
num2 = Val（Combo2.Text）
num3 = Val（Combo3.Text）
' 计算平均值
Dim average As Double
average = （num1 + num2 + num3） / 3
' 显示结果
MsgBox "这三个数的平均值为： " & average
End Sub
```
如果你想要计算用户输入的多个数的平均值，你可以使用类似的方法，通过循环和输入框来获取每个数，并计算它们的总和和数量，然后求出平均值。
对于更复杂的情况，比如从Excel表格中计算一系列单元格的平均值，你可以使用类似下面的函数：
```vb
Function CalculateAverage（rng As Range） As Double
Dim sum As Double
Dim count As Integer
Dim i As Integer
sum = 0
count = rng.Cells.Count
For i = 1 To count
sum = sum + rng.Cells（i）.Value
Next i
CalculateAverage = sum / count
End Function
```
在这个函数中，`rng`是一个Excel Range对象，代表你想要计算平均值的一系列单元格。函数会遍历这些单元格，计算它们的总和，然后除以单元格的总数，得到平均值。
这些是计算VB中一组数平均值的基本方法。根据你的具体需求，你可能需要调整代码以适应不同的输入方式或数据来源。