在VB编程中，有多种方法可以输出数据中的最大数。以下是一些常见的方法：
使用内置函数 `Math.Max`
`Math.Max` 方法接受两个参数，并返回其中较大的值。如果需要比较多个数，可以多次调用 `Math.Max` 方法。
```vb
Dim max As Integer = Math.Max（10, 20, 30）
Console.WriteLine（"最大值是： " & max）
```
使用 `If` 语句
可以使用嵌套的 `If` 语句来比较多个数，找出最大值。
```vb
Dim a As Integer = 10
Dim b As Integer = 20
Dim c As Integer = 30
Dim max As Integer
If a > b Then
If a > c Then
max = a
Else
max = c
End If
Else
If b > c Then
max = b
Else
max = c
End If
End If
Console.WriteLine（"最大值是： " & max）
```
使用循环遍历数组
如果有一组数，可以通过循环遍历数组，比较每个元素的大小，记录下最大的值。
```vb
Dim numbers（） As Integer = {10, 5, 20, 15, 8}
Dim max As Integer = numbers（0）
For i As Integer = 1 To numbers.Length - 1
If numbers（i） > max Then
max = numbers（i）
End If
Next
Console.WriteLine（"数组中的最大值是： " & max）
```
使用自定义函数
可以编写一个自定义函数来比较多个数，并返回最大值。
```vb
Function FindMax（ByVal a As Integer, ByVal b As Integer, ByVal c As Integer） As Integer
Dim max As Integer
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
End If
Return max
End Function
Dim max As Integer = FindMax（10, 20, 30）
Console.WriteLine（"最大值是： " & max）
```
使用 `InputBox` 获取用户输入
可以使用 `InputBox` 函数获取用户输入的数，然后使用上述方法比较这些数，找出最大值。
```vb
Dim a As Integer = Val（InputBox（"请输入第一个数"））
Dim b As Integer = Val（InputBox（"请输入第二个数"））
Dim c As Integer = Val（InputBox（"请输入第三个数"））
Dim max As Integer
If a > b Then
If a > c Then
max = a
Else
max = c
End If
Else
If b > c Then
max = b
Else
max = c
End If
End If
Console.WriteLine（"输入的数中最大值是： " & max）
```
根据你的具体需求和编程环境，可以选择最适合的方法来实现。