Вычисление суммы через цикл

@JaneSaz001 · Регистрация: 16.03.2011

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim m, r, s, x, a As Integer
        m = TextBox1.Text
        x = TextBox2.Text
        a = TextBox3.Text
 
        r = 1
 
        Dim i As Integer
        s = 0
        For i = 1 To m
 
            s = s + x * (m - r) * a
 
 
        Next i
        Label1.Text = s

не пойму в чём ошибка: ответ высчитывается по формуле с добавлением s, т.е. x * (m - r) * a = 20 , а ответ выводит 40. Как правильно написать код, чтобы сумма считывалась правильно?

@Dzhej-Dzhej · 23.03.2011, 08:49

наверно так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
        Dim m As Integer, r As Integer, s As Integer, x As Integer, a As Integer
        m = CInt(TextBox1.Text)
        x = CInt(TextBox2.Text)
        a = CInt(TextBox3.Text)
        r = 1
        Dim i As Integer
        s = 0
        For i = 1 To m
            s = s + x * (m - r) * a
        Next i
        Label1.Caption = CStr(s)

@JaneSaz001 · 23.03.2011, 09:36 **[ТС]**

Спасибо большое, но ответ всё равно 40 (((

@Dzhej-Dzhej · 23.03.2011, 09:47

какие m, x, a вы вводите?

@gitarillo · 23.03.2011, 09:49

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

но ответ всё равно 40

Какие значения в тестбоксах?

@JaneSaz001 · 23.03.2011, 21:28 **[ТС]**

значения в текстбоксе, в принципе любые. для примера: m=5, x=2, a=1, формула считывает правильно x * (m - r) * a, но добавляет повторное значение s. такое ощущение, что он не видит, что мы задали s=0

@Alex77755 · 23.03.2011, 23:14

Как записано так и считает

Visual Basic
1
2
3
 For i = 1 To m
            s = s + x * (m - r) * a   ' =  1*(5 - 1 ) * 1 = 8   и так 5 раз 8+8+8+8+8=40
Next i

Грамотные бухгалтеры спросили бы: А солько надо?

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@JaneSaz001 0 / 0 / 0 Регистрация: 16.03.2011 Сообщений: 9
	23.03.2011, 09:36 [ТС]
	Спасибо большое, но ответ всё равно 40 ((( 0

@Dzhej-Dzhej Заблокирован
	23.03.2011, 09:47
	какие m, x, a вы вводите? 0

@JaneSaz001 0 / 0 / 0 Регистрация: 16.03.2011 Сообщений: 9
	23.03.2011, 21:28 [ТС]
	значения в текстбоксе, в принципе любые. для примера: m=5, x=2, a=1, формула считывает правильно x * (m - r) * a, но добавляет повторное значение s. такое ощущение, что он не видит, что мы задали s=0 0

Вычисление суммы через цикл

Решение