Необходимо составить число из дополнения каждой цифры до максимума в числе - VB

Узнай цену своей работы

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

Пользователь вводит целое число. Необходимо составить число из дополнения каждой цифры до максимума в числе. Пример дано число 583 из него должно получится 305

Решение задачи: «Необходимо составить число из дополнения каждой цифры до максимума в числе»

textual
Листинг программы
Private Sub Command1_Click()
Dim s As String, c As String * 1, i As Long
s = InputBox("", , 583)
For i = 1 To Len(s)
  If Mid$(s, i, 1) > c Then c = Mid$(s, i, 1)
Next i
MsgBox s & vbTab & String(Len(s), c) - s
End Sub

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


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

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

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