编写程序，使得任意输入的3个整数按从小到大的顺序输出

Dim a As Long Dim b As Long Dim c As Long Dim d As Long a = InputBox("请输入第一个整数") b = InputBox("请输入第二个整数") c = InputBox("请输入第三个整数") If a > b Then d = a a = b b = d End If If b > c Then d = c