在Visual Basic（VB）中，求10个数的平均数可以通过以下几种方法实现：
方法一：使用输入框和循环
1. 创建一个循环，从1到10次，每次通过输入框获取一个数。
2. 将每次获取的数累加到变量`sum`中。
3. 循环结束后，计算平均值并显示结果。
```vb
Dim sum As Double
For i As Integer = 1 To 10
Dim num As Double = Val(InputBox("请输入第" & i & "个数字: "))
sum += num
Next
Dim average As Double = sum / 10
MsgBox "输入的十个数的平均值为: " & average
```
方法二：使用数组和循环
1. 创建一个长度为10的数组，用于存储10个数。
2. 通过循环获取用户输入的10个数，并存储到数组中。
3. 计算数组元素的总和，然后除以10得到平均值。
```vb
Dim numbers(9) As Double
Dim i As Integer
Dim sum As Double = 0
For i = 0 To 9
numbers(i) = Val(InputBox("请输入第" & (i + 1) & "个数字: "))
sum += numbers(i)
Next
Dim average As Double = sum / 10
MsgBox "输入的十个数的平均值为: " & average
```
方法三：使用随机数生成和数组
1. 创建一个长度为10的数组，用于存储随机生成的数。
2. 使用循环生成10个随机数，并存储到数组中。
3. 计算数组元素的总和，然后除以10得到平均值。
```vb
Dim numbers(9) As Double
Dim i As Integer
Dim sum As Double = 0
For i = 0 To 9
numbers(i) = Int((100 - 1 + 1) * Rnd) + 1
sum += numbers(i)
Next
Dim average As Double = sum / 10
MsgBox "输入的十个随机数的平均值为: " & average
```
方法四：使用函数
1. 定义一个函数`CalculateAverage`，接收一个整数数组作为参数，返回数组元素的平均值。
2. 在主程序中调用该函数，传入用户输入的10个数或随机生成的10个数。
```vb
Function CalculateAverage(ByVal numbers() As Double) As Double
Dim sum As Double = 0
For Each num As Double In numbers
sum += num
Next
Return sum / numbers.Length
End Function
Dim numbers(9) As Double
Dim i As Integer
Dim sum As Double = 0
For i = 0 To 9
numbers(i) = Val(InputBox("请输入第" & (i + 1) & "个数字: "))
sum += numbers(i)
Next
Dim average As Double = CalculateAverage(numbers)
MsgBox "输入的十个数的平均值为: " & average
```
以上是几种在VB中求10个数平均数的方法，可以根据实际需求选择合适的方法。