Simonevb中用if else语句如何比较三个数中的中间数
的有关信息介绍如下：
Private Sub Command1_Click()
Const a = 1
Const b = 2
Const c = 3
Dim d As Integer
If a > b Then
If b > c Then
d = b
Else
If a > c Then
d = c
Else
d = a
End If
End If
Else
If a > c Then
d = a
Else
If b > c Then
d = c
Else
d = b
End If
End If
End If
Print d
End Sub
