在Visual Basic（VB）中计算平均分的方法如下：
通过输入多个数值并求和
```vb
Private Sub Command1_Click（）
Dim n As Integer
n = CInt（InputBox（"请输入学生个数："））
Dim sum As Double
sum = 0
For i = 1 To n
Dim score As Double
score = Val（InputBox（"请输入第" & i & "个学生的成绩："））
sum = sum + score
Next i
Dim aver As Double
aver = sum / n
MsgBox "学生的平均数是： " & aver
End Sub
```
通过数组求和与元素个数计算
```vb
Private Sub Command1_Click（）
Dim a（） As Integer
ReDim a（9）
Dim i As Integer
Dim sum As Integer
sum = 0
For i = LBound（a） To UBound（a）
a（i） = Int（Rnd（） * 10） ' 随机生成0到9之间的整数
sum = sum + a（i）
Next i
Dim aver As Double
aver = sum / （UBound（a） - LBound（a） + 1）
MsgBox "这些数的平均值为： " & aver
End Sub
```
通过输入三个数值并求平均
```vb
Private Sub Command1_Click（）
Dim a As Double
Dim b As Double
Dim c As Double
a = Val（InputBox（"请输入第一个数："））
b = Val（InputBox（"请输入第二个数："））
c = Val（InputBox（"请输入第三个数："））
Dim aver As Double
aver = （a + b + c） / 3
MsgBox "三个数的平均值为： " & aver
End Sub
```
这些代码示例展示了如何在VB中通过不同的方法计算一组数值的平均值。你可以根据具体需求选择合适的方法。