写出三个数中,大小排第二的VB表达式

写出三个数中,大小排第二的VB表达式
写出三个数中,大小排第二的VB表达式

写出三个数中,大小排第二的VB表达式
Private Sub Command1_Click()
Dim a, b, c As Integer

a = 1
b = 2
c = 3

If a > b Then
If a < c Then
Print a
Else
If b > c Then
Print b
Else
Print c
End If
End If
Else
If b < c Then
Print b
Else
If a > c Then
Print a
Else
Print c
End If
End If
End If
End Sub