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

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

04.05.2011, 20:05. Показов 10950. Ответов 21
Метки нет (Все метки)

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

На форме расположено 6 TextBox. В трёх из них будут вводится числа. А в трёх других будет выводиться сумма цифр каждого числа. И разумеется CommandButton. Нужно написать код для командной кнопки.
Помогите пожалуйста. Буду очень признателен.
0
04.05.2011, 20:05
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.05.2011, 20:05
Ответы с готовыми решениями:

Нахождение суммы цифр числа от старших разрядов
Я понимаю, что это должно быть очень просто, но я только начал учить VB (учусь в школе). Мне задали домой задание: На какой цифре в числе...

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

Найти двузначное число такое, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа

21
julia92
04.05.2011, 20:40 2
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
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 00:49  [ТС] 3
Не совсем понимаю этот код.
Как его связать с TextBox что у меня дана??
0
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
05.05.2011, 01:05 4
Сделай 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
1
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 01:17  [ТС] 5
А как их массивом сделать? Оо
Не совсем понимаю.
А можно код написать под TextBox'ы, что у меня имеются. То есть под 6 штук. То есть сначала в 3 текст бокса заносятся числа, а затем с помощью алгоритма, который как раз таки должен быть вроде как через массивы, заносятся результаты в другие 3 TextBox'а.
0
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
05.05.2011, 16:42 6
Кинь на форму 1 текстбокс. Выдели его, Ctrl+C потом Ctrl+V. VB предложит создать массив элементов управления. Нажмёшь да, появится ещё 1 бокс, но уже они будут в массиве с именами Text1(0) и Text1(1)
1
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 18:58  [ТС] 7
А дальше что сделать?) Вставить код что ты дал в кнопку?
Можно теперь поподробнее, на что рассчитан код что вы мне дали? Что бы он работал, сколько текст боксов должно находится на форме?
Я создал 2 текстбокса, копировав один, и вставил в кнопку код. Но у меня выдало ошибку...
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 20:03 8
ммм...дай подумать конечно 6 текстбоксов (3 для ввода,3 для вывода) как написал YuraAAA сделать их массивом.И конечно же он для кнопки Command1_Click().

Не по теме:

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

0
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 20:44  [ТС] 9
А текст боксы нужно все сделать массивами?
То есть создать один, а от него ещё 5 копий?
Я так пробовал, не работает. Ошибку выдаёт.
Так же пробовал создавать 3 текстбокса, и от каждого копию. При просмотре ошибки выделяет жёлтым следующую строчку:
sum = sum + Mid(Text1(i).Text, j, 1)
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 20:57 10
да от одного 5 копий.А ты когда первый скопировал и вставляешь отвечаешь Yes на сообщение VB ?
0
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 21:02  [ТС] 11
Да, нажимаю Yes. Но почему-то не получается((
Не пойму в чём проблема((
А у вас работает всё с этим кодом??
Если вам не сложно, можете пожалуйста мне на почту форму скинуть??
Если что, то вот моя почта: epmak88@mail.ru
Буду очень благодарен.
Просто курсовую работу делаю по информатике, осталась одна задачка эта...
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 21:07 12
Вот всё прекрасно работает.По коду YuraAAA
Вложения
Тип файла: rar Desktop.rar (1.2 Кб, 37 просмотров)
1
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 21:24  [ТС] 13
YuraAAA и SuPeR XaKer, спасибо вам большое!!!
Я понял свою ошибку. Я просто из текстбокстов не стёр надписи Text1, вот и выдавало ошибку.
А можно сделать так, что бы при нажатии на кнопку, сначала появлялись окошки, в которые числа нужно вписать. А потом, после того как впишу числа, уже вычисления производились?
То есть если я напишу код,что бы окошко появлялось, и заносило числа в первые три текстбокса, мне не нужно будет меня последующий код, вычисляющий сумму??
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 21:40 14
Чёто типа такого?
Вложения
Тип файла: rar Desktop.rar (1.2 Кб, 19 просмотров)
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 21:49 15
Не тот архив залил.Вот.На счёт полей вывода фигню сморозил.Чё его (св-во) тебе ставить когда я уже его поставил.
Вложения
Тип файла: rar Desktop.rar (1.6 Кб, 32 просмотров)
0
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 21:57  [ТС] 16
Не, это конечно круто, но я имел слегка другое.
Я имел ввиду через InputBox ввести значения. А только затем что бы программа подсчитала их сумму.
Попробовал тупо дописать перед кодом алгоритм ввода значений через InputBox и внесения их в ТекстБоксы, но ничего не вышло) После того как ввёл числа, выдало ошибку.
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 22:02 17
А как насчёт вчитаться в задание?
На форме расположено 6 TextBox.
0
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 22:08  [ТС] 18
Не совсем понял что ты имеешь ввиду. На форме как располагалось 6 текстбоксов, так они и остануться там. Я просто хочу, что бы нужно было не сначала вбивать числа, а потом нажимать кнопку для подсчёта, а сразу нажать кнопку, затем появятся поочерёдно три окошка, в которых я вобью числа, которые автоматически занесутся в текстбоксы, и затем, после вбивания всех чисел, в остальных трёх текстбоксах выдается результат.
И вообще, Задание ограничивается вот этим: "Вводится последовательность целых чисел. Найти сумму цифр каждого числа."
То есть текстбоксов можно создать хоть для 20 чисел. Но это не зачем, мне и 3 числа хватит.
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
05.05.2011, 22:18 19
задай тем же 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
1
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
05.05.2011, 23:06  [ТС] 20
А получится сделать как я говорил?
Что бы вводимые данные вводились в 3 текстбокса, и выводимые тоже в текстбоксы, но соответственно уже в три других.
То есть всего чтоб три числа вводилось и 3 выводилось. А окна "Введите количество чисел" что бы не было??
0
05.05.2011, 23:06
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.05.2011, 23:06
Помогаю со студенческими работами здесь

Вычисление суммы цифр целого числа (нахождение суммы цифр целого числа)
Составить и отладить программу, используя указанные в скобках процедуры или функции: Вычисляющую сумму цифр целого числа (нахождение...

Рекурсия: нахождение суммы цифр числа
Создать программу с помощью рекурсивного алгоритма. Нужно чтобы программа считала сумму вводимого числа. Например: N=2556 S=18 ...

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

Нахождение суммы цифр любого натурального числа
Написать Процедуру нахождения суммы цифр любого натурального числа. uses crt; var q,w:integer; procedure qwert (z,c:integer); var...

Нахождение суммы цифр вводимого с клавиатуры числа
вот программа для вычисления суммы цифр вводимого с клавиатуры числа #include<stdio.h> int main(void) { int x,n,summa=0;...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
Отличия интерфейсов и типов в TypeScript
hw_wired 13.02.2025
TypeScript - мощное средство для создания качественного и поддерживаемого кода, который расширяет возможности JavaScript, добавляя систему статической типизации. В отличие от динамической типизации. . .
Async/await в циклах JavaScript
hw_wired 13.02.2025
Современная веб-разработка немыслима без асинхронного программирования. Когда приложение выполняет длительные операции - загрузку данных с сервера, чтение файлов или обработку медиа-контента, важно. . .
Git не работает на MacOS после апдейта
hw_wired 13.02.2025
После очередного обновления MacOS многие разработчики сталкиваются с неприятным сюрпризом - Git перестает работать и выдает ошибку "xcrun: error: invalid active developer path". Эта проблема особенно. . .
Git отказывается объединять несвязанные истории
hw_wired 13.02.2025
Git работает безупречно, пока мы не сталкиваемся с особыми ситуациями вроде объединения веток с разными корнями истории. В таких случаях система контроля версий может преподнести неприятный сюрприз в. . .
Проверка email с помощью JavaScript
hw_wired 13.02.2025
Email-адреса имеют довольно запутанную спецификацию, которая допускает множество неочевидных вариантов написания. Например, знали ли вы, что адрес вида "name+tag@domain. com" или даже. . .
Замена всех вхождений строки с помощью JavaScript
hw_wired 13.02.2025
JavaScript предлагает несколько способов для выполнения операций замены в строках, каждый из которых имеет свои особенности и область применения. От простейшей замены первого найденного вхождения до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru