Найти значение функции - VBA

  1. Напишите процедуру на языке VBA для нахождения функции y(x)=(x²+x³)/(x⁴+x^6+5).Вычисление x^k оформить в виде функции


textual

Код к задаче: «Найти значение функции - VBA»

Sub Vishenka101098()
    Dim x As Double, y As Double
    x = Val(Replace(InputBox("x = ", , 0.78), ",", "."))
    y = (pow(x, 2) + pow(x, 3)) / (pow(x, 4) + pow(x, 6) + 5)
    MsgBox "y =" & y
End Sub
 
Function pow(x As Double, k As Integer) As Double
    pow = x ^ k
End Function

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.000 из 5



Похожие ответы
  1. Ребзя, помогите, пожалуйста. Есть условие: Есть 2 матрицы 6х6. Для матрицы, в которой выполняется условие "больше отрицательных элементов", ищется сумма положительных в каждой строке. Есть код. На выходе итоговый столбец полностью зануляется, хотя того не должно быть. Что я делаю не так?)

  1. Здравствуйте, все перепробовал... но никак не получается. Дело в том что нужно сделать небольшую программу которая будет считать значение функции sin(x)*cos(x). Расчеты будут производится на форме. Как выглядит форма.. картинку прикрепил)

  1. Всем доброго времени суток. В Excel'e есть 2 кнопки: 1-вызывает функцию test() 2-вызывает функцию transport() Как передать массив one() из функции test() в функцию transport(),чтобы с ней можно было взаимодействовать.

  1. Здравствуйте! Прошу помощи. Не знаю, как правильно написать код. Код выдаёт мне в Эксель почему-то сразу 11 нулей. Пожалуйста, исправьте мои ошибки. Условия. Вычислить значение функции у=а/x+b при x=1,2,...10 (a, b вводятся с клавиатуры) в VBA.

  1. Добрый вечер, форумчане. Помогите разобраться. У меня на листе есть три автофигуры с назначенными макросами (Макрос1, Макрос2, Макрос3). Рядом таблица - в которую вписаны названия автофигур и макросы, которые назначены им. Подскажите как макросом - переназначить макросы для автофигур? (Например если в таблице - напротив автофигуры "Oval 3" - написать "Макрос 1" и нажать на оранжевую кнопку - то на автофигуру "Oval 3" - вместо "Макроса 3" будет назначен "Макрос 1".)

  1. Гуру, хелп плз открываю ТХТ файл в екселе и выполняю разное редактирование теста (разбиение по колонкам, удаление полупустых строчек по фильтру и прочее). И вот определенной части нужно сохранить значение диапазона ячеек, который потом удалится по фильтру. Как правильно сохранить в переменную(возможно константу) данные с диапазона ячеек(например 2R:1С), который(диапазон) потом будет удален? чтобы считать потом и вставить в итоговый отформатированный файл

  1. подскажите пожалуйста, правильный паттерн, который бы вытягивал значение из 4 цифр сразу после слова хор (наглядно прилагаю табличку, у меня ненужная последняя буква слова вышла и пробел)

  1. Приветствую! Возникла нужда в сортировке данных. Дело такое. Мне нужно чтобы значения ячеек из столбца А листа 2 записывались через запятую в ячейки столбца А листа 1 только там, где значение ячейки столбца В листа 1 СОДЕРЖИТСЯ в значении ячейки столбца В листа 2. Вроде правильно написал)

  1. помогите заполнить инпут бокс значением по умолчанию, например "Привет!"