vb 排序问题

一个文本框，一个按钮，单击按钮文本框的内容按照Ascii码从大到小重新排列

最好注释下谢谢...

冒泡排序

Private Sub Command1_Click()
Dim s As String
s = Text1.Text
For i = 1 To Len(s) ' 循环遍历每一个字符
For j = Len(s) To i + 1 Step -1 ' 从后往前冒泡
If Asc(Mid(s, j, 1)) < Asc(Mid(s, j - 1, 1)) Then ' 如果后一个比前一个小，那么就交换冒泡
t = Mid(s, j, 1) ' 这三句是交换的过程
Mid(s, j, 1) = Mid(s, j - 1, 1)
Mid(s, j - 1, 1) = t
End If
Next j, i
Text1.Text = s
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息