Где ошибка?

@bogkoda · Регистрация: 05.05.2014

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

Нужно решить задачку. Кроме бэйсика ничего не знаю, поэтому решил в экселе написать

вот код :
P

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
rivate Sub CommandButton1_Click()
Dim A As Integer, B As Integer, C As Integer, S As Double, E As Double, summa As Double
 E = InputBox("Введите Е")
 A = 1
 B = 2
 C = 3
 summa = S
 S = (1 / (A * B * C))
 If summa < E Then
 Print summa
 Else
Do Until summa < E
A 1, B + 1, C + 1 And summa + S
Loop
End If
Print summa
End Sub

после Do Until summa < E
автоматически убирает перед А знак "+", не могу понять почему
большое спасибо

)

Добавлено через 7 минут
линк на радикал не робит, хз почему

SoftIce · 05.05.2014, 13:46

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

автоматически убирает перед А знак "+", не могу понять почему

Потому что глупость написана.
Бейсик думает что А - это вызов процедуры или функции, а все что написано после нее - ее параметры.

@Казанский · 05.05.2014, 14:12

bogkoda, да, не божеское это дело

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim A As Long, S As Double, E As Double, summa As Double
E = InputBox("Введите Е", , 0.0001)
Do
  A = A + 1
  S = 1 / A / (A + 1) / (A + 2)
  summa = summa + S
Loop Until S < E
Print summa
End Sub

@bogkoda · 05.05.2014, 16:48 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim A As Integer, S As Long, E As Double, summa As Long
E = InputBox("Введите Е", , 0.0001)
summa = S
A = 1
Do
  A = A + 1
  S = 1 / (A + 1) * (A + 2)
  summa = summa + S
Loop Until S < E
Print summa
End Sub

получился такой рабочий вариант, но при запуске выходит ошибка overflow

Комментарий модератора

Второе предупреждение, следующая будет карточка! Используйте теги для выделения кода, наши теги VB.

SoftIce · 05.05.2014, 17:59

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

получился такой рабочий вариант, но при запуске выходит ошибка overflow

А почему же ты решил что он рабочий?

Чем не устроил вариант Казанского?

Замени в его коде только 9-ю строку на

Visual Basic
1
MsgBox summa

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Где ошибка?

Решение