Получить шесть чисел, образованных при перестановке цифр заданного числа - VB

Формулировка задачи:

Доброго времени суток!

Помогите, пожалуйста, решить задачи:

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

Дано трехзначное число. Найти: а) сумму цифр б) произведение цифр

Дано четырехзначное число. Найти число, образуемое при перестановке второй и третьей цифр заданного числа (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

Оцени полезность:

8 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы