Друзья дали задание Решить в екселе через бейсик вот эту формулу, я пытался но выскакивает ошибка постоянно. Кому не лень распишите пожалуйтса! Нужно расписать в бейсике через ексель, что бы кнопка выдавала результат сама
совй код в студию. А то как же ошибку исправлять то будем
свой*
Private Sub CommandButton1_Click()Dim x, a, b, c, y As Doublex = 5.2319a = -2.9565b = 0.8204c = 0.05y = -Exp(b) + a ^ 2 - Sin(x) ^ 2 * 3 * (x) ^ 3 / (Sqr(b ^ 2 - c) + x ^ (1 / 3))Text1.Text = y
а скобочки расставлять кто будет?
да вот с радостью только ставлю, и везде ошибки
Sub CommandButton1_Click() ' Dim x, a, b, c, y As Double x = 5.2319 a = -2.9565 b = 0.8204 c = 0.05 y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3)) MsgBox y End Sub Вот так у меня выдает правильный ответ
уже сами расставляйте интерфейс и куда нужен вывод. Но расчеты проходят верно
Извините, а как понять "вывод" ?
вывод - это способ посмотреть ответ. Я просто делаю вывод во всплывающее окошко MsgBox. У вас там было какое-то Text1.Text
работает это или нет - не знаю, потому что кроме кода еще нужна форма
В форме у меня еще присутствует кнопка вычесления и "Textbox" то есть нужно связать эти две форсы только как?
кнопка походу уже связана. если судить по названию процедуры
ну а текст бокс - это нужно его название и свойство которое принимает текст/значение.
Формат: Имя.Свойство = текст
Кстати что там за ошибка у тебя вылазила?