Нужно интегрировать формулу vba

@ilyaushakov22 · Регистрация: 09.05.2023

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

Как решить задачу,сам ничего не понимаю,нужно написать программу на vba
гле 36 это n шагов

@Catstail · 11.05.2023, 10:42

Burk, если интересно, позже объясню, что я имел в виду.

@Burk · 11.05.2023, 10:50

Catstail, ок, но хотелось бы на этой задаче.

@Catstail · 11.05.2023, 10:51

Burk, я это и имею в виду.

@testuser2 · 11.05.2023, 11:11

Ни чего не смыслю в методе Симпсона, просто интересено было реализовать коллбек на vb, причем относительно простым методом (одним из). Тупо скопировал код Burk-a с небольшой переделкой под выше указанный метод. Из особенностей вместо функции надо использовать саб.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Sub f2(x#, ret#, ByVal nUnused1&, ByVal nUnused2&)
    ret = x ^ 2 + x
End Sub
 
Function loadSub#(Func&, x#) 'вместо Application.Run
    CallWindowProc Func, VarPtr(x), VarPtr(loadSub), 0&, 0&
End Function
 
Function simpson2(Func As Long, a As Double, b As Double, n As Integer) As Double
    h# = (b - a) / n: s# = 0
    For i% = 1 To n - 1
        s# = s# + (i Mod 2 + 1) * loadSub(Func, a + i% * h#)
    Next i%
    simpson2 = (2 * s# + loadSub(Func, a) + loadSub(Func, b)) * h# / 3
End Function
 
Sub proba()
    Debug.Print simpson2(AddressOf f2, 4, 8, 10)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

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

	Word Нужно интегрировать формулу vba 09.05.2023, 01:00. Показов 1258. Ответов 23 Метки нет (Все метки) Как решить задачу,сам ничего не понимаю,нужно написать программу на vba гле 36 это n шагов Миниатюры 0

@Catstail Супер-модератор 38226 / 21158 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	11.05.2023, 10:42
	Burk, если интересно, позже объясню, что я имел в виду. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	11.05.2023, 10:50
	Catstail, ок, но хотелось бы на этой задаче. 0

@Catstail Супер-модератор 38226 / 21158 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	11.05.2023, 10:51
	Burk, я это и имею в виду. 0