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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 4 из 5
Похожие ответы