Dim n As Integer, max As Integer Dim a As Integer, b As Integer, c As Integer, t As Integer x

'在 text1 中已经输入 213，text2 即出现 321Dim n As Integer, max As IntegerDim a As Integer, b As Integer, c As Integer, t As Integerx = Val(Text1.Text) ' ①a = x \ 100b = x \ 10 Mod 10c = x Mod 10If a < b Then t = a: a = b: b = tIf a < c Then t