VB 文本框顺序排列问题

Question

假如文本框里的字母为dacb 怎么变成abcd呢?有办法没,各位 大师

Answer 1

Private Sub Command1_Click()
If Len(Text1.Text) > 0 Then
Dim s As String
s = ""

For j = 1 To 255
For i = 1 To Len(Text1.Text)
If Asc(Mid(Text1.Text, i, 1)) = j Then
s = s & Mid(Text1.Text, i, 1)
End If
Next i
Next j

Text2.Text = s
End If
End Sub

Answer 2

如果你懒得写一个排序算法的话，你放入一个list,然后把你文本框的文本，顺序输入到list中，使用list控件的sort方法，排序后，挨个弄出来就得了

Answer 3

先用asc函数求出每个字符的值。再按升序排列成新字符串。