|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2012, 19:47 | #1 |
Регистрация: 06.04.2012
Сообщений: 4
|
программа, считающая интегралы visual basic
написал код(почти полностью скопировал из методы), ошибка:
"can`t execute code in break mode" Sub doug1as() Function f(ByVal x As Single) As Single f = (Sin(x) * 10 ^ Ln(1 + x)) Dim a As Single Do prom = InputBox("a=0") If Not IsNumeric(prom) Then MsgBox Loop Until IsNumeric(prom) a = prom Do prom = InputBox("Введите конечную границу отрезка b=2") If Not IsNumeric(prom) Then MsgBox Loop Until IsNumeric(prom) b = prom If a >= b Then MsgBox Loop Until a Do prom = InputBox("Введите погрешность вычисления e =0.1") If Not IsNumeric(prom) Then MsgBox Loop Until IsNumeric(prom) e = prom Worksheets("Лист1").Activate Cells.Clear ActiveSheet.ChartObjects.Delete Range("d1") = "Лабораторная работа № 1" Range("c2") = "Вычисление определённого интеграла y = f(x)" Range("e3") = "Исходные данные" Range("d4") = "Нижний предел интегрирования a = " & CSng(a) Range("d5") = "Верхний предел интегрирования b = " & CSng(b) Range("d6") = "Погрешность вычисления e = " & CSng(e) Cells(8, 4).Value = "Значение интеграла S = " & CSng(s) End Function End Sub как победить лабу?) |
12.04.2012, 19:49 | #2 |
Регистрация: 06.04.2012
Сообщений: 4
|
Sub doug1as() выделяется вот эта строка
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа тест на Visual Basic-e | cvetelin94 | Помощь студентам | 1 | 02.04.2011 14:45 |
программа на Visual Basic | aiktz | Помощь студентам | 3 | 17.10.2010 21:52 |
Программа на Delphi, считающая сколько раз в тексте встречается каждый символ, биграмма, триграмма | denis_dneprovski | Помощь студентам | 17 | 11.10.2010 06:15 |
Программа на Visual Basic | ViNcHeStEr | Помощь студентам | 1 | 08.08.2008 12:03 |