Public Class Form1
'不限制输入的字符个数
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oldStr = TextBox1.Text
Dim str(oldStr.Length - 1) As String
For i = 0 To oldStr.Length - 1
str(i) = Mid(oldStr, i + 1, 1)
Next
'这一步很关键
Array.Sort(str)
Dim newStr As String = ""
For i = 0 To oldStr.Length - 1
newStr += str(i)
Next
TextBox2.Text = newStr
End Sub
End Class
温馨提示:答案为网友推荐,仅供参考