Помогите, а то вышибут из института

[shapych]

Надо решить такую задачку:

Представьте несколько различных вариантов алгоритма. Дано натуральное n. Переставить его цыфры так чтобы образовалось максимальное число, записанное темежи цифрами. Выдать соответствующие текстовое сообщение


Не дайте погибнуть. Спасибо.

[GSerg]

Нужно просто отсортировать цифры по убыванию. Справишься?

[shapych]

Нет, я не справлюсь Это нужно не совсем мне, а моему знакомому. Вылетает из ВУза. Ему надо до 10 утра 16 июня. Вот его e-mail: Yaser20@inbox.ru

[A.A.Z.]

Интересно, еще нужно?

Код: Выделить всё

Sub Form_Load()
Dim N, Arr(), I&, J&, N1&, S$
Do
N = InputBox("Введите число")
Loop Until IsNumeric(N)
ReDim Arr(Len(CStr(N)) - 1)
For I = 0 To UBound(Arr)
Arr(I) = 0
Next
For J = 0 To UBound(Arr)
For I = 1 To Len(CStr(N))
If Val(Mid(CStr(N), I, 1)) > Arr(J) Then Arr(J) = Val(Mid(CStr(N), I, 1))
Next
Mid(N, InStr(N, Arr(J)), 1) = "0"
Next
For I = 0 To UBound(Arr)
S = S & CStr(Arr(I))
Next
MsgBox CLng(S)
End Sub