vb用function函数将一个任意长度的字符串按每个字符的ASC码由小到大排列后输出

vb用function函数将一个任意长度的字符串按每个字符的ASC码由小到大排列后输出

Function SortASCIi(ByVal s As String) As String
Dim i As Integer, j As Integer, t As String
For i = 1 To Len(s) - 1
    For j = i + 1 To Len(s)
        If Mid(s, i, 1) > Mid(s, j, 1) Then
            t = Mid(s, i, 1)
            Mid(s, i, 1) = Mid(s, j, 1)
            Mid(s, j, 1) = t
        End If
    Next j
Next i
SortASCII = s
End Function

Private Sub Command1_Click()
MsgBox SortASCIi("hy1uyti0yj4325fghfnm7455768nbmgjh009789dsfs1ffd2hhk3uk")
End Sub

汉字如何处理？ 要说它的“ASCII码”，在VB中，它都是负数呢。 再看看别人怎么说的。