Как найти сумму чисел в TextBox Basic ?

@BuLa18 · Регистрация: 10.11.2016

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

Как найти сумму чисел в TextBox Basic ? Заранее Спасибо !

echs · 01.03.2017, 16:55

BuLa18
Как заданы числа в ТекстБоксе? Приведите пример.

@BuLa18 · 03.03.2017, 15:00 **[ТС]**

12345

echs · 03.03.2017, 19:12

BuLa18
Вам нужно найти сумму цифр числа?
...
примечание
я полагал увидеть в качестве ответа что-то наподобие
1) 123 456 789
2) 123, 456, 789
3) 123 + 456 + 789

@fever brain · 03.03.2017, 22:04

На форме 2 элемента:
Text1 , Command1

Visual Basic

Option Explicit
 
Private Sub Command1_Click()
    Text1 = Sum(Text1)
End Sub
 
Function Sum#(ByVal Num#): Dim d#
    d = Val(Text1)
    While d <> 0
        Sum = Sum + d Mod 10
        d = d \ 10
    Wend
End Function
 
Private Sub Form_Load()
    Text1 = "12345"
    Command1.Caption = "Пересчитать"
End Sub
 
Private Sub Text1_Change()
    Text1 = Val(Text1): Text1.SelLength = 100
End Sub

echs · 04.03.2017, 09:19

fever brain
Я подумал, что ТС хочет чтобы числа вводились
по одному в ТекстБокс, а при нажатии кнопки
суммировались... и ТекстБокс очищался для нового
числа...

@fever brain · 04.03.2017, 09:53

echs, Я тоже не уверен что ответил на вопрос.
ТС делится коментами неохотно, а вернее совсем не делится )) поэтому чтобы никого не мучать я предположил что ответ должен быть таким

@BuLa18 · 04.03.2017, 10:41 **[ТС]**

В общем ввожу 1111 и их сумма должна быть ровна 4 (1+1+1+1)

@fever brain · 04.03.2017, 12:17

Ну да так и есть.
Принцип моего того кода такой:
Делим на 10 указанное число столько раз, пока результат не будет равен нолю
а все его остатки складываются при каждом делении

1111 / 10 = 111.1 округляем 1110 вычитаем 1111- 1110 получаем 1 и так четыре раза
Ответ: 4

Не по теме:

Расписал. а то вдруг BuLa18, не знает на каком бейсике это проверить ))

@Alex77755 · 04.03.2017, 13:24

Как найти сумму чисел

Visual Basic

1	d = Val(Text1)

А разве было сказано, что текст в текстбоксе вписывается в размер соответствующего типа?

Добавлено через 13 минут
более 10 цифр и наступит переполнение

@fever brain · 04.03.2017, 13:25

Сообщение от Alex77755

А разве было сказано

Сказанно было очень мало, приведение к числовому типу удобно было для дальнейших операций
ну конечно же можно было использовать только текст для сложения, но математика интереснее

@BuLa18 0 / 0 / 0 Регистрация: 10.11.2016 Сообщений: 24
		1
	Как найти сумму чисел в TextBox Basic ? 01.03.2017, 11:58. Показов 3872. Ответов 10 Метки нет (Все метки) Как найти сумму чисел в TextBox Basic ? Заранее Спасибо ! 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	01.03.2017, 16:55	2
	BuLa18 Как заданы числа в ТекстБоксе? Приведите пример. 0

@BuLa18 0 / 0 / 0 Регистрация: 10.11.2016 Сообщений: 24
	03.03.2017, 15:00 [ТС]	3
	12345 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	03.03.2017, 19:12	4
	BuLa18 Вам нужно найти сумму цифр числа? ... примечание я полагал увидеть в качестве ответа что-то наподобие 1) 123 456 789 2) 123, 456, 789 3) 123 + 456 + 789 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	04.03.2017, 09:19	6
	fever brain Я подумал, что ТС хочет чтобы числа вводились по одному в ТекстБокс, а при нажатии кнопки суммировались... и ТекстБокс очищался для нового числа... 0

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	04.03.2017, 09:53	7
	echs, Я тоже не уверен что ответил на вопрос. ТС делится коментами неохотно, а вернее совсем не делится )) поэтому чтобы никого не мучать я предположил что ответ должен быть таким 1

@BuLa18 0 / 0 / 0 Регистрация: 10.11.2016 Сообщений: 24
	04.03.2017, 10:41 [ТС]	8
	В общем ввожу 1111 и их сумма должна быть ровна 4 (1+1+1+1) 0

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	04.03.2017, 12:17	9
	Ну да так и есть. Принцип моего того кода такой: Делим на 10 указанное число столько раз, пока результат не будет равен нолю а все его остатки складываются при каждом делении 1111 / 10 = 111.1 округляем 1110 вычитаем 1111- 1110 получаем 1 и так четыре раза Ответ: 4 Не по теме: Расписал. а то вдруг BuLa18, не знает на каком бейсике это проверить )) 1

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	04.03.2017, 13:25	11
	Сообщение от Alex77755 А разве было сказано Сказанно было очень мало, приведение к числовому типу удобно было для дальнейших операций ну конечно же можно было использовать только текст для сложения, но математика интереснее 0

Как найти сумму чисел в TextBox Basic ?

Решение