在Visual Basic（VB）中，有多种方法可以实现将三个数相加的功能。以下是几种常见的方法：
方法一：使用输入框和循环
你可以通过输入框获取三个数，然后使用循环将它们相加，并输出结果。以下是一个示例代码：
```vb
Private Sub Form_Click（）
Dim a, b, c As Double
a = Val（InputBox（"请输入第一个数"））
b = Val（InputBox（"请输入第二个数"））
c = Val（InputBox（"请输入第三个数"））
Dim sum As Double
sum = a + b + c
Print "三个数的和是： " & sum
Print "三个数的平均数是： " & （a + b + c） / 3
End Sub
```
方法二：使用随机数生成器
你也可以使用随机数生成器来生成三个数，然后将它们相加。以下是一个示例代码：
```vb
Dim a, b, c As Integer
a = Int（Rnd（） * 1000）
b = Int（Rnd（） * 1000）
c = Int（Rnd（） * 1000）
Print "三个数的和是： " & （a + b + c）
```
方法三：使用函数
你可以编写一个函数来计算三个数的和，然后在主程序中调用该函数。以下是一个示例代码：
```vb
Public Function SumOfThreeNumbers（ByVal a As Double, ByVal b As Double, ByVal c As Double） As Double
SumOfThreeNumbers = a + b + c
End Function
Private Sub Command1_Click（）
Dim a, b, c As Double
a = Val（Text1.Text）
b = Val（Text2.Text）
c = Val（Text3.Text）
Dim result As Double
result = SumOfThreeNumbers（a, b, c）
Print "三个数的和是： " & result
Print "三个数的平均数是： " & result / 3
End Sub
```
方法四：使用数组和循环
你还可以使用数组来存储三个数，然后使用循环将它们相加。以下是一个示例代码：
```vb
Private Sub Form_Click（）
Dim numbers（2） As Double
numbers（0） = Val（InputBox（"请输入第一个数"））
numbers（1） = Val（InputBox（"请输入第二个数"））
numbers（2） = Val（InputBox（"请输入第三个数"））
Dim sum As Double
sum = numbers（0） + numbers（1） + numbers（2）
Print "三个数的和是： " & sum
Print "三个数的平均数是： " & sum / 3
End Sub
```
总结
以上是几种在VB中实现将三个数相加的方法。你可以根据自己的需求和编程习惯选择合适的方法。