导读 Private Sub Command2_Click()Dim x As String, s As String, min As StringDim item, a()Dim i As Integer, j As Inte...
Private Sub Command2_Click()Dim x As String, s As String, min As StringDim item, a()Dim i As Integer, j As Integerx = "ab12cd6E7gh"ReDim a(Len(x) - 1)For i = 1 To Len(x)a(i - 1) = Mid(x, i, 1)NextFor i = LBound(a) To UBound(a)For j = i To UBound(a)If a(i) <= UCase(a(j)) Thentemp = a(i): a(i) = a(j): a(j) = tempEnd IfNextNextPrint xFor Each item In aPrint item;NextEnd Sub。
版权声明:转载此文是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益,请作者持权属证明与本网联系,我们将及时更正、删除,谢谢您的支持与理解。