Private Sub Command1_Click()
Dim i%, s$(), n%, t() As Byte
s = Split(Trim(Replace(Text1, vbCrLf, " ")), " ")
For i = 0 To UBound(s)
t = StrConv(s(i), vbFromUnicode)
If t(0) > t(1) Then n = t(0): t(0) = t(1): t(1) = n
If t(0) > t(2) Then n = t(0): t(0) = t(2): t(2) = n
If t(1) > t(2) Then n = t(1): t(1) = t(2): t(2) = n
s(i) = StrConv(t, vbUnicode)
Next i
Text1 = Join(s, vbCrLf)
End Sub
=============================================================
"以控行的形式分開" 能說明壹下 "控行"的形式 是什麽樣子的嗎！！！