Страница 1 из 2

Написать программу для вычисления функции

Добавлено: 02 дек 2010, 02:58
Самохина Лена
Написать программу для вычисления функции cos(xy)/2+3(x-2y)^(1/3), причем x и y вводятся в текстовые поля. Использовать для вывода форму, созданную с помощью VBA (Visual Basic for Application). Организовать также вывод в приложение Word или Excel. Для этого в программу добавить Selection.TypeText Text:=TextBox3.Text или АсtivеDocument.Соntent.InsеrtAfter

кто сможет помочь?

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 07:32
Busine2009
Вот моё решение.

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 08:43
Самохина Лена
у меня не получается перенести в word мне нужно сделать как в примере http://depositfiles.com/files/pm8xv17va

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 08:49
Busine2009
Самохина Лена
сохраните папку на Рабочем столе - Разархивируйте её.
Перейдите в Word - Alt + F11 - File - Import file... - Тип файлов - .frm - Найдите Рабочий стол - Будет найден один файл - Открыть.

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 09:24
Самохина Лена
извините, я вставляла в код по отдельности.
огромное Вам спасибо, я бы Вас расцеловала :)

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 09:39
Busine2009
Самохина Лена
вариант приближенный к примеру. Импортировать надо в Project(Primer). При импорте выбрать Тип файлов - .frm, .bas, .cls (надо импортировать 2 файла). При импорте файла .cls все макросы из ThisDocument проекта Project(Primer) будут удалены. Если у вас там (ThisDocument) что-то есть, то экспортируйте его (ThisDocument) на Рабочий стол, чтобы потом вернуть обратно.

Re: Написать программу для вычисления функции

Добавлено: 02 дек 2010, 10:58
Самохина Лена
я сделала вот так, надеюсь правильно и похоже на пример
http://depositfiles.com/files/55vkkxc3r

Re: Написать программу для вычисления функции

Добавлено: 06 янв 2011, 00:40
sork
Привет у меня такое же задание только функция другая, вложения не работаю уже =(
кто может помогите
функция: sin(x/y)+0,3(x+0.2y)^(2/3).

Re: Написать программу для вычисления функции

Добавлено: 06 янв 2011, 08:08
Busine2009
Вот решение. Запускать надо в Excel. В ячейку A1 будет выведен результат.

Re: Написать программу для вычисления функции

Добавлено: 06 янв 2011, 14:15
sork
спасибо большое