用inputbox 比如输入 12345
如何才能实现
显示出来的是54321

有一个函数可以做到，但忘记啦。

当你输入这个数据的时候.再它分割开来.生成一个数组.
然后再使用某一排序算法去排序便可以.

StrReverse (string1)
例：Private Sub Form_Load()
Dim x As Integer
x = StrReverse(InputBox(输入数据))
Label1.Caption = x
End Sub

[此贴子已经被作者于2007-10-11 20:26:31编辑过]

StrReverse

这个显然不是楼主所要的.
楼主只是打个比如.
然后用户输入54216
那你的代码.不就完蛋?

就是StrReverse函数，不过StrReverse（）括号内应是string类型

mid()

谢谢了

Private Sub Command1_Click()
Dim lsTemp As String
Dim llCount As Long
Dim lsOut As String
Dim lsMax As String
lsTemp = InputBox("请输入要排序的数字")
If Not CBool(StrPtr(lsTemp)) Then
MsgBox "你按的是取消，怎么排序阿？"
Exit Sub
Else
Do While Len(lsTemp) > 0
lsMax = ""
For llCount = 1 To Len(lsTemp)
If lsMax <= Mid(lsTemp, llCount, 1) Then
lsMax = Mid(lsTemp, llCount, 1)
End If
Next
lsOut = lsOut & String(Len(lsTemp) - Len(Replace(lsTemp, lsMax, "")), "" & lsMax & "")
lsTemp = Replace(lsTemp, lsMax, "")
Loop
End If
MsgBox lsOut
End Sub