自己添加一个Command1控件,代码如下: Private Sub Command1_Click() Dim a%, b%, c%, t% a = InputBox("输入第一个值:") b = InputBox("输入第二个值:") c = InputBox("输入第三个值:") If a > b Then t = a: a = b: b = t End If If b > c Then t = b: b = c: c = t End If If a > c Then t = a: a = c: c = t End If Print a; "<"; b; "<"; c End Sub