有个文本框text2比如里面有汉字“我爱你”，我想通过语句实现将“我爱你”排个序变成“你爱我”，同时显示在另一个文本框text3中。
Dim m As Integer
Dim jAs Integer
Dim kAs Integer
Dim SS As String
m = Len(Text2.Text)
For j = 1 To m
SS = Mid$(Text2.Text, j, 1)
For k = j To m
If Asc(SS) > Asc(Mid$(Text2.Text, k, 1)) Then
SS = Mid$(Text2.Text, k, 1)
Mid$(Text2.Text, k, 1) = Mid$(Text2.Text, j, 1)//无法赋值
Mid$(Text2.Text, j, 1) = SS
End If
Next k
Text3.Text = Text3.Text & SS
Next j
其实我是想对汉字排个序 有没有一个函数是可以交换文本框中两个指定的汉字的顺序呢？
我现在的问题就是：text2里有段汉字比如“贷记卡发的卡萨发的撒分飞感人”，我想通过比较这些汉字的asc码，将他们从小到大排一下序，再显示在text3或者text2中，只要能显示出来就行
|
