Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая - VB
Формулировка задачи:
даны 4 натуральных числа. вывести на экран те, сумма цифр которых наибольшая
Решение задачи: «Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая»
textual
Листинг программы
Private Sub Command1_Click()
i = 1
Max = 0
Do
num = InputBox("Введите " & i & " число")
If IsNumeric(num) Then
Sum = 0
For j = 1 To Len(num)
Sum = Sum + CInt(Mid(num, j, 1))
Next
If Sum > Max Then Max = Sum: max_num = num
i = i + 1
Else
MsgBox "введите число"
End If
Loop While i <= 4
MsgBox max_num
End Sub