VB编程 在文本框中输入文本,怎么使在窗体上显示从小到大输入的文本??如输入"ADCB"则输出"ABCD''

来源：百度知道 编辑：UC知道 时间：2024/05/21 08:33:05
在文本框中输入文本,怎么使在窗体上显示从小到大输入的文本??如输入"ADCB"则输出"ABCD'' 又如输入"现在是十点钟" 输出则为"十在是点现钟"
就变成Ascii码由小到大的排

Private Sub Command1_Click()
Dim b() As String
a = Len(Text1)
For i = 1 To a
ReDim Preserve b(i)
b(i) = Mid(Text1, i, 1)
Next

Text1 = ""
'排序
For i = 1 To a
For j = i + 1 To a
If b(j) < b(i) Then
c = b(i)
b(i) = b(j)
b(j) = c
End If
Next
Text1 = Text1 & b(i)
Next

End Sub

从小到大输入的文本??
什么意思
"ADCB"则输出"ABCD''
输入"现在是十点钟" 输出则为"十在是点现钟"
没看出规律