在VB（Visual Basic）中比较三个数的大小可以通过多种方法实现。以下是几种常见的方法：
方法一：使用条件语句
```vb
Private Sub Command1_Click（）
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = 45
b = 78
c = 123
If a > b Then
max = a
Else
max = b
End If
If c > max Then
max = c
End If
Print "最大的数是： " & max
End Sub
```
方法二：使用InputBox输入三个数，然后进行比较
```vb
Private Sub Command1_Click（）
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim t As Integer
a = Cint（InputBox（"请输入第1个数： "））
b = Cint（InputBox（"请输入第2个数： "））
c = Cint（InputBox（"请输入第3个数： "））
If a > b Then
t = a
a = b
b = t
ElseIf b > c Then
t = b
b = c
c = t
ElseIf a > c Then
t = a
a = c
c = t
End If
MsgBox "最大的数是： " & a
End Sub
```
方法三：使用文本框和Label显示结果
1. 在VB中添加三个文本框（TextBox）和一个命令按钮（CommandButton）。
2. 为文本框和命令按钮命名，例如：Text1, Text2, Text3, Command1。
3. 双击命令按钮，编辑其代码，如下所示：
```vb
Private Sub Command1_Click（）
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
c = Val（Text3.Text）
If a > b Then
max = a
ElseIf b > c Then
max = b
Else
max = c
End If
Label1.Caption = "最大的数是： " & max
End Sub
```
方法四：使用数组和循环
```vb
Private Sub Command1_Click（）
Dim numbers（） As Integer = {100, 521, 346}
Dim i As Integer
Dim max As Integer
For i = 0 To UBound（numbers）
If numbers（i） > max Then
max = numbers（i）
End If
Next i
MsgBox "最大的数是： " & max
End Sub
```
总结
以上方法都可以实现三个数的大小比较。选择哪种方法取决于具体的应用场景和需求。例如，如果需要用户输入三个数，则方法二和方法三比较合适；如果只需要比较固定数值，则方法一和方法四更为简洁。