Нахождение суммы цифр числа

@epmak88 · Регистрация: 03.05.2011

Студворк — интернет-сервис помощи студентам

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

На форме расположено 6 TextBox. В трёх из них будут вводится числа. А в трёх других будет выводиться сумма цифр каждого числа. И разумеется CommandButton. Нужно написать код для командной кнопки.
Помогите пожалуйста. Буду очень признателен.

04.05.2011, 20:40

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim i%, m%, sum%, r%
For i = 1 To n
  m = Int(Rnd * 10 ^ k)
  r = m
  sum = 0
    Do While r > 0
      sum = sum + r Mod 10
      r = r \ 10
    Loop
  List1.AddItem Str(m) & "  " & Str(sum)
Next i
End If

@epmak88 · 05.05.2011, 00:49 **[ТС]**

Не совсем понимаю этот код.
Как его связать с TextBox что у меня дана??

@YuraAAA · 05.05.2011, 01:05

Сделай textbox'ы массивом

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim i As Byte, j As Byte, sum
For i = 0 To 2
    sum = 0
    For j = 1 To Len(Text1(i).Text)
        sum = sum + Mid(Text1(i).Text, j, 1)
    Next j
    Text1(i + 3).Text = sum
Next i
End Sub

@epmak88 · 05.05.2011, 01:17 **[ТС]**

А как их массивом сделать? Оо
Не совсем понимаю.
А можно код написать под TextBox'ы, что у меня имеются. То есть под 6 штук. То есть сначала в 3 текст бокса заносятся числа, а затем с помощью алгоритма, который как раз таки должен быть вроде как через массивы, заносятся результаты в другие 3 TextBox'а.

@YuraAAA · 05.05.2011, 16:42

Кинь на форму 1 текстбокс. Выдели его, Ctrl+C потом Ctrl+V. VB предложит создать массив элементов управления. Нажмёшь да, появится ещё 1 бокс, но уже они будут в массиве с именами Text1(0) и Text1(1)

@epmak88 · 05.05.2011, 18:58 **[ТС]**

А дальше что сделать?) Вставить код что ты дал в кнопку?
Можно теперь поподробнее, на что рассчитан код что вы мне дали? Что бы он работал, сколько текст боксов должно находится на форме?
Я создал 2 текстбокса, копировав один, и вставил в кнопку код. Но у меня выдало ошибку...

@SuPeR XaKer · 05.05.2011, 20:03

ммм...дай подумать конечно 6 текстбоксов (3 для ввода,3 для вывода) как написал YuraAAA сделать их массивом.И конечно же он для кнопки Command1_Click().

Не по теме:

Извиняюсь если не в своё дело влез.

@epmak88 · 05.05.2011, 20:44 **[ТС]**

А текст боксы нужно все сделать массивами?
То есть создать один, а от него ещё 5 копий?
Я так пробовал, не работает. Ошибку выдаёт.
Так же пробовал создавать 3 текстбокса, и от каждого копию. При просмотре ошибки выделяет жёлтым следующую строчку:
sum = sum + Mid(Text1(i).Text, j, 1)

@SuPeR XaKer · 05.05.2011, 20:57

да от одного 5 копий.А ты когда первый скопировал и вставляешь отвечаешь Yes на сообщение VB ?

@epmak88 · 05.05.2011, 21:02 **[ТС]**

Да, нажимаю Yes. Но почему-то не получается((
Не пойму в чём проблема((
А у вас работает всё с этим кодом??
Если вам не сложно, можете пожалуйста мне на почту форму скинуть??
Если что, то вот моя почта: epmak88@mail.ru
Буду очень благодарен.
Просто курсовую работу делаю по информатике, осталась одна задачка эта...

@SuPeR XaKer · 05.05.2011, 21:07

Вот всё прекрасно работает.По коду YuraAAA

@epmak88 · 05.05.2011, 21:24 **[ТС]**

YuraAAA и SuPeR XaKer, спасибо вам большое!!!
Я понял свою ошибку. Я просто из текстбокстов не стёр надписи Text1, вот и выдавало ошибку.
А можно сделать так, что бы при нажатии на кнопку, сначала появлялись окошки, в которые числа нужно вписать. А потом, после того как впишу числа, уже вычисления производились?
То есть если я напишу код,что бы окошко появлялось, и заносило числа в первые три текстбокса, мне не нужно будет меня последующий код, вычисляющий сумму??

@SuPeR XaKer · 05.05.2011, 21:40

Чёто типа такого?

@SuPeR XaKer · 05.05.2011, 21:49

Не тот архив залил.Вот.На счёт полей вывода фигню сморозил.Чё его (св-во) тебе ставить когда я уже его поставил.

@epmak88 · 05.05.2011, 21:57 **[ТС]**

Не, это конечно круто, но я имел слегка другое.
Я имел ввиду через InputBox ввести значения. А только затем что бы программа подсчитала их сумму.
Попробовал тупо дописать перед кодом алгоритм ввода значений через InputBox и внесения их в ТекстБоксы, но ничего не вышло) После того как ввёл числа, выдало ошибку.

@SuPeR XaKer · 05.05.2011, 22:02

А как насчёт вчитаться в задание?

На форме расположено 6 TextBox.

@epmak88 · 05.05.2011, 22:08 **[ТС]**

Не совсем понял что ты имеешь ввиду. На форме как располагалось 6 текстбоксов, так они и остануться там. Я просто хочу, что бы нужно было не сначала вбивать числа, а потом нажимать кнопку для подсчёта, а сразу нажать кнопку, затем появятся поочерёдно три окошка, в которых я вобью числа, которые автоматически занесутся в текстбоксы, и затем, после вбивания всех чисел, в остальных трёх текстбоксах выдается результат.
И вообще, Задание ограничивается вот этим: "Вводится последовательность целых чисел. Найти сумму цифр каждого числа."
То есть текстбоксов можно создать хоть для 20 чисел. Но это не зачем, мне и 3 числа хватит.

@SuPeR XaKer · 05.05.2011, 22:18

задай тем же inputbox кол-во чисел и далее в цикле от 1 до n вводи числа,подсчитывай сумму и выводи результат куда тебе нужно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Dim i As Integer, n As Integer, sum As Integer, a As Integer, l As Integer
n = Val(InputBox("Ââåäèòå  êîë-âî ÷èñåë: "))
For i = 1 To n
 a = Val(InputBox("Ââåäèòå ÷èñëî äëÿ ïîäñ÷åòû ñóììû öèôð: "))
 l = a
 sum = 0
 Do Until a = 0
  sum = sum + a Mod 10
  a = a \ 10
 Loop
 Print "Ñóììà öèôð ÷èñëà " & l & ":=" & sum
Next i
End Sub

@epmak88 · 05.05.2011, 23:06 **[ТС]**

А получится сделать как я говорил?
Что бы вводимые данные вводились в 3 текстбокса, и выводимые тоже в текстбоксы, но соответственно уже в три других.
То есть всего чтоб три числа вводилось и 3 выводилось. А окна "Введите количество чисел" что бы не было??

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32

	Нахождение суммы цифр числа 04.05.2011, 20:05. Показов 11242. Ответов 21 Метки нет (Все метки) Дано задание: Вводится последовательность целых чисел. Найти сумму цифр каждого числа. На форме расположено 6 TextBox. В трёх из них будут вводится числа. А в трёх других будет выводиться сумма цифр каждого числа. И разумеется CommandButton. Нужно написать код для командной кнопки. Помогите пожалуйста. Буду очень признателен. 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 00:49 [ТС]
	Не совсем понимаю этот код. Как его связать с TextBox что у меня дана?? 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 01:17 [ТС]
	А как их массивом сделать? Оо Не совсем понимаю. А можно код написать под TextBox'ы, что у меня имеются. То есть под 6 штук. То есть сначала в 3 текст бокса заносятся числа, а затем с помощью алгоритма, который как раз таки должен быть вроде как через массивы, заносятся результаты в другие 3 TextBox'а. 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	05.05.2011, 16:42
	Кинь на форму 1 текстбокс. Выдели его, Ctrl+C потом Ctrl+V. VB предложит создать массив элементов управления. Нажмёшь да, появится ещё 1 бокс, но уже они будут в массиве с именами Text1(0) и Text1(1) 1

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 18:58 [ТС]
	А дальше что сделать?) Вставить код что ты дал в кнопку? Можно теперь поподробнее, на что рассчитан код что вы мне дали? Что бы он работал, сколько текст боксов должно находится на форме? Я создал 2 текстбокса, копировав один, и вставил в кнопку код. Но у меня выдало ошибку... 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	05.05.2011, 20:03
	ммм...дай подумать конечно 6 текстбоксов (3 для ввода,3 для вывода) как написал YuraAAA сделать их массивом.И конечно же он для кнопки Command1_Click(). Не по теме: Извиняюсь если не в своё дело влез. 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 20:44 [ТС]
	А текст боксы нужно все сделать массивами? То есть создать один, а от него ещё 5 копий? Я так пробовал, не работает. Ошибку выдаёт. Так же пробовал создавать 3 текстбокса, и от каждого копию. При просмотре ошибки выделяет жёлтым следующую строчку: sum = sum + Mid(Text1(i).Text, j, 1) 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	05.05.2011, 20:57
	да от одного 5 копий.А ты когда первый скопировал и вставляешь отвечаешь Yes на сообщение VB ? 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 21:02 [ТС]
	Да, нажимаю Yes. Но почему-то не получается(( Не пойму в чём проблема(( А у вас работает всё с этим кодом?? Если вам не сложно, можете пожалуйста мне на почту форму скинуть?? Если что, то вот моя почта: epmak88@mail.ru Буду очень благодарен. Просто курсовую работу делаю по информатике, осталась одна задачка эта... 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 21:24 [ТС]
	YuraAAA и SuPeR XaKer, спасибо вам большое!!! Я понял свою ошибку. Я просто из текстбокстов не стёр надписи Text1, вот и выдавало ошибку. А можно сделать так, что бы при нажатии на кнопку, сначала появлялись окошки, в которые числа нужно вписать. А потом, после того как впишу числа, уже вычисления производились? То есть если я напишу код,что бы окошко появлялось, и заносило числа в первые три текстбокса, мне не нужно будет меня последующий код, вычисляющий сумму?? 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 21:57 [ТС]
	Не, это конечно круто, но я имел слегка другое. Я имел ввиду через InputBox ввести значения. А только затем что бы программа подсчитала их сумму. Попробовал тупо дописать перед кодом алгоритм ввода значений через InputBox и внесения их в ТекстБоксы, но ничего не вышло) После того как ввёл числа, выдало ошибку. 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 22:08 [ТС]
	Не совсем понял что ты имеешь ввиду. На форме как располагалось 6 текстбоксов, так они и остануться там. Я просто хочу, что бы нужно было не сначала вбивать числа, а потом нажимать кнопку для подсчёта, а сразу нажать кнопку, затем появятся поочерёдно три окошка, в которых я вобью числа, которые автоматически занесутся в текстбоксы, и затем, после вбивания всех чисел, в остальных трёх текстбоксах выдается результат. И вообще, Задание ограничивается вот этим: "Вводится последовательность целых чисел. Найти сумму цифр каждого числа." То есть текстбоксов можно создать хоть для 20 чисел. Но это не зачем, мне и 3 числа хватит. 0

@epmak88 0 / 0 / 0 Регистрация: 03.05.2011 Сообщений: 32
	05.05.2011, 23:06 [ТС]
	А получится сделать как я говорил? Что бы вводимые данные вводились в 3 текстбокса, и выводимые тоже в текстбоксы, но соответственно уже в три других. То есть всего чтоб три числа вводилось и 3 выводилось. А окна "Введите количество чисел" что бы не было?? 0