Получить шесть чисел, образованных при перестановке цифр заданного числа - VB
Формулировка задачи:
Доброго времени суток!
Помогите, пожалуйста, решить задачи:1.
Дано трехзначное число, в котором все цифры различны. Получить шесть чисел, образованных при перестановке цифр заданного числа.2.
Дано трехзначное число. Найти: а) сумму цифр б) произведение цифр3.
Дано четырехзначное число. Найти число, образуемое при перестановке второй и третьей цифр заданного числа (5084 - 5804) p.s. если можно, то напишите комментарии к каждой строке кода, очень нужноРешение задачи: «Получить шесть чисел, образованных при перестановке цифр заданного числа»
textual
Листинг программы
Private Sub Command3_Click()
Dim n
n = InputBox("n-?", , 1234)
If IsNumeric(n) And Len(CStr(n)) = 4 Then
cls
Print "n="; n
Print "n1="; (n \ 1000) * 1000 + (n \ 10 Mod 10) * 100 + (n \ 100 Mod 10) * 10 + (n Mod 10)
Else
MsgBox "Error"
End If
End Sub