字母字符串排序

1.         Dim SortString1 As String
2.         Dim Chars1() As Char
3.         Dim iCount As Integer
4.         SortString1 = InputBox("输入比较字符串", "字符", "Test")
5.         ReDim Chars1(SortString1.Length - 1)
6.         For iCount = 0 To SortString1.Length - 1
7.             Chars1.SetValue(SortString1.Chars(iCount), iCount)
8.         Next
9.         Array.Sort(Chars1)
10.         Label1.Text = Chars1

 

输入一个字符串

用数组获取到字符串中的每个字符

排序

输出