任意输入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

温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-04-07
什么语言追问

VB

第2个回答  2016-04-08
在手机知道中已有“知道君”正确的回答,电脑中为何看不见呢 ?
相似回答