Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2011, 22:35   #1
puteeva
Новичок
Джуниор
 
Регистрация: 27.11.2011
Сообщений: 2
По умолчанию Форма в Excel

помогите, чем сможете)
Задание:
Создать пользовательскую форму, которая позволит методом половинного деления найти корень уравнения на отрезке [-1;0], при трех разных значениях точности: 0,001; 0,00001 и 0,0000001. Также нужно определить сколько раз проводилось деление отрезка пополам для нахождения корня уравнения с данной точностью.
Форма должна запускаться кнопкой ActiveX с рабочего листа книги – Лист1. Результаты (корень уравнения, точность и количество делений отрезка пополам) должны выводиться в форме и записываться в диапазон A1:C4.
Вид формы:


форму я сделала, но код в visual basic сделала только для кнопки выход( помогите пожалуйста))

Последний раз редактировалось puteeva; 29.11.2011 в 22:36. Причина: неправильное название
puteeva вне форума Ответить с цитированием
Старый 29.11.2011, 23:42   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Вам в помощь,остальное сами
Код:
Sub FK1()
Dim a As Single: Dim b As Single: Dim c As Single: Dim E As Single
Dim Count As Integer
a = -1
b = 0
E = 0.00001
c = (a + b) / 2
Count = 1
Do While Abs(a - b) > E And f(c) <> 0
c = (a + b) / 2
Count = Count + 1
If f(c) * f(b) < 0 Then a = c Else b = c
Loop
MsgBox "корень x = " & Format(c, "0.######" & vbCrLf & "Делился " & Count & " Раз")

End Sub
Function f(x As Single) As Single
f = Exp(x) + Math.Sqr(1 + Exp(2 * x)) - 2
End Function
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 29.11.2011, 23:51   #3
puteeva
Новичок
Джуниор
 
Регистрация: 27.11.2011
Сообщений: 2
По умолчанию

Ок) спасибо большое
puteeva вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Форма просмотра и редактр. таблицы VBA Veha Microsoft Office Excel 19 19.10.2011 19:30
задача на vba...форма в excel Lyudmila_Alt Помощь студентам 0 11.10.2011 20:28
Форма VBA A_L_E_X Microsoft Office Excel 3 09.08.2010 19:36
форма vba gling Microsoft Office Excel 4 21.05.2010 21:27
Форма с командной кнопкой!(VBA) Versifikator Помощь студентам 1 06.12.2007 20:25