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