Private Sub CommandButton1_Click()
Forma1.Show
Dim n As Long
Dim m As Long
Dim s As Integer
Dim k As Integer
n = Val(TB1)
m = Val(TB2)
s1 = 0
While n > 0
k = n Mod 10
s = s + k
n = n \ 10
Wend
s2 = 0
While m > 0
k = m Mod 10
s = s + k
n = n \ 10
Wend
s1 = Val(TB3)
s2 = Val(TB3)
 
 
 
End Sub

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.12.2013, 20:26

Ответы с готовыми решениями:

Макрос выводит то из введенных чисел, у которого сумма цифр наибольшая
Создать макрос, который запускает форму на выполнение. Форма позволяет ввести 2 натуральных числа и...

Вывести на экран то из чисел, сумма цифр которого — наибольшая с использованием процедур и функций
Даны четыре натуральных чисел. Вывести на экран то из них, сумма цифр которого - наибольшая

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая
На языке Паскаль решить 2 способами: 1) с использованием процедур; 2) с использованием функций....

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого – наибольшая
составить программу 2 способами: 1) с использование процедур 2) с использованием функций

	12.12.2013, 20:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.12.2013, 20:26

Помогаю со студенческими работами здесь

Функции: ввести 3 пятизначных числа, определить сумма цифр которого из них больше
Задача такая : "Ввести 3 пятизначных числа. Определить сумма цифр которого из них больше.(...

Найдите элемент массива, сумма цифр которого наибольшая
Дан массив А, состоящий из n натуральных чисел. Найдите элемент массива, сумма цифр которого...

Найти число, сумма четных цифр которого наибольшая
Ввести с клавиатуры n чисел. Найти среди них число, сумма четных цифр которого наибольшая....

Определить того абонента, у которого наибольшая сумма цифр телефона
Дан массив объектов класса "абонент". Определить того абонента, у которого наибольшая сумма цифр...

Удалить из массива число, у которого наибольшая сумма цифр и отсортировать оставшиеся элементы
Задан массив целых чисел х. Удалить из него число,у которого наибольшая сумма цифр. Поменять...

Составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая
составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх