一个VB题目，急～～

来源：百度知道 编辑：UC知道 时间：2024/07/04 03:33:43
从键盘上输入一个字符串，将该字符串中的个字符串按照ASCII码从小到大排序后组成新的字符串，在从窗体输出。
谢谢啦

tmp = Text1.Text
Dim AR() As String

'分解
L = Len(tmp)
ReDim AR(1 To L)
For i = 1 To L
AR(i) = Mid(tmp, i, 1)
Next i
'排序
For i = 1 To L
For j = 1 To L
If AR(i) < AR(j) Then
c = AR(i)
AR(i) = AR(j)
AR(j) = c
End If
Next j
Next i
'组合
t = ""
For i = 1 To L
t = t & AR(i)
Next i
'输出
Print t

将字符串赋给list控件，控件有个排序属性，选择true，然后把控件中字符串取出即可。

这个可以用插入排序法来做吧。