好吧问答库 > 在文本框中输入一串字符串，按ASCII码的顺序由大到小在窗体上打出（vb）

在文本框中输入一串字符串，按ASCII码的顺序由大到小在窗体上打出（vb）

2026年09月19日 00:06

有2个网友回答

网友（1）：

Option Base 1
Private Sub Command1_Click()
Dim Str, StrTemp, Rec() As String
Dim I, J As Integer
Str = Trim(Text1)
ReDim Rec(Len(Str))
For I = 1 To Len(Str)
Rec(I) = Mid(Str, I, 1)
Next
For I = 1 To UBound(Rec)
For J = 1 To UBound(Rec) - I
If Asc(Rec(J)) < Asc(Rec(J + 1)) Then StrTemp = Rec(J): Rec(J) = Rec(J + 1): Rec(J + 1) = StrTemp
Next
Next
MsgBox Join(Rec, ""), , "倒过来"
End Sub

网友（2）：

教你一个简单的方法：
声明一个字符数组
用Substring顺序每次截取一个字符放在字符数组中
然后对数组排序
（就像对数字比较大小一样对字符比较，这样其实就是按其ASCII大小顺序）