任意输入4个字符组成一个字符串，对该字符串中的字符按ASCII码值升序排列后输出，编程实现此功能

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

什么语言

在手机知道中已有“知道君”正确的回答，电脑中为何看不见呢 ？