Необходимо составить число из дополнения каждой цифры до максимума в числе - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д