درخواست برای یک برنامه

[Razor2012]

برنامه ای بنویسید که یک عدد صحیح را گرفته ، بزرگترین عددی را که میشود با رقم های آن عدد درست کرد را بنویسید ( به زبان VB ) مثال : 329 : 932

[Veteran]

امان از دست این معلما
روش های بهتری هم هست
اما من اینجوری به ذهنم رسید
کارتو راه میندازه اما کد یکم زیاده

Dim saver(1 To 100)
Form1.Cls
x = InputBox("")
For c = 1 To Len(x)
i = Left(CStr(x), c)
i = Right(CStr(i), 1)
saver(c) = i
Next c
For a = 1 To 100
For b = 1 To a
If saver(a) > saver(b) Then
k = saver(a)
saver(a) = saver(b)
saver(b) = k
End If
Next b
Next a
For S = 1 To Len(x)
Print saver(S);
Next S