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

@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 выводилось. А окна "Введите количество чисел" что бы не было??

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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

	Нахождение суммы цифр числа 04.05.2011, 20:05. Показов 11339. Ответов 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,875
	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,875
	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