Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
ProDen
1 / 1 / 0
Регистрация: 02.12.2011
Сообщений: 30
#1

Вычисление суммы и решение квадратного уравнения на VBA - VBA

08.10.2013, 14:10. Просмотров 1188. Ответов 1
Метки нет (Все метки)

Прошу помощи, чтобы сделали, или хотя бы начать помогли задания в прикреплении. Заранее спасибо.
0
Миниатюры
Вычисление суммы и решение квадратного уравнения на VBA  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2013, 14:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычисление суммы и решение квадратного уравнения на VBA (VBA):

VBA Вычислить корни квадратного уравнения - VBA
Вычислить корни квадратного уравнения ax^2 + bx + с = 0, заданного коэффициентами a, b и с (предполагается, что а ¹ 0 и что дискриминант...

Вычисление квадратного уравнения - VBA
Можно ли упростить эту программу для вычеслени квадратного уравнения: Private Sub CommandButton1_Click() a = Cells(3, 2): b =...

Решение квадратного уравнения - Basic
Здравствуйте у меня проблемма помогите если кто может... Мне нужно решить простенькую задачу по бейсику но я в нем ничего не понимаю... ...

Решение квадратного уравнения Visual Basic в Microsoft Excel - VBA
Помогите написать программу для решения квадратного уравнения с проверкой дискриминанта в VB Microsoft Excel для этой формы: Создала форму,...

Решение квадратного уравнения Visual Basic в Microsoft Excel - VBA
Помогите с кодом Visual Basic в Excel для этой формы. Чтобы решал квадратные уравнения с проверкой дискриминанта.

Вычисление суммы VBA - VBA
Даны значения n и m( ввести через окно ввода) Вычислить: B=\sum_{k=1}^{n}\sum_{j=1}^{m}\left(k + j \right) Результаты поместить в...

1
Аксима
5744 / 1194 / 188
Регистрация: 12.12.2012
Сообщений: 984
08.10.2013, 16:02 #2
Здравствуйте, ProDen,
Вот решение первой задачи из прикрепленного рисунка (надеюсь, что верно понял задание).

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'ÏðîöåäóðГ*, êîòîðГ*Гї Г§Г*Г*îñèò Гў ïåðåìåГ*Г*ûå x1 ГЁ x2 êîðГ*ГЁ ГЄГўГ*äðГ*ГІГ*îãî ГіГ°Г*ГўГ*ГҐГ*ГЁГї,
'Г§Г*Г¤Г*Г*Г*îãî ñâîèìè êîýôôèöèåГ*ГІГ*ìè a, b ГЁ c.
Sub GetRoots(ByVal a As Double, ByVal b As Double, ByVal c As Double, _
    ByRef x1 As Double, ByRef x2 As Double)
    Dim D As Double
    D = b * b - 4 * a * c
    x1 = (-b - Sqr(D)) / 2 / a
    x2 = (-b + Sqr(D)) / 2 / a
End Sub
'ÏðîöåäóðГ* âûâîäГ* Г*Г* ëèñò êîðГ*ГҐГ© ГЄГўГ*äðГ*ГІГ*îãî ГіГ°Г*ГўГ*ГҐГ*ГЁГї ax + bx - 2
'ïðè èçìåГ*ГҐГ*ГЁГЁ ГЇГ*Г°Г*ìåòðГ* a îò 2 äî 5 Г± ГёГ*ãîì 0.5
'ГЁ èçìåГ*ГҐГ*ГЁГЁ ГЇГ*Г°Г*ìåòðГ* b îò -1 äî 1 Г± ГёГ*ãîì 0.25.
Sub TableOfRoots()
    Dim i As Long, j As Long, x1 As Double, x2 As Double
    Dim answer(6, 8) As String, a(6, 0) As Double, b(8) As Double
    For i = 0 To 6
        a(i, 0) = i * 0.5 + 2
    Next i
    For i = 0 To 8
        b(i) = i * 0.25 - 1
    Next i
    For i = 0 To 6
        For j = 0 To 8
            GetRoots a(i, 0), b(j), -2, x1, x2
            answer(i, j) = "ÊîðГ*ГЁ: " & Format(x1, "0.00") & " ГЁ " & Format(x2, "0.00")
        Next j
    Next i
    Cells.Delete
    Cells.Interior.Color = vbWhite
    With Cells(2, 2)
        .Value = "b"
        .Offset(1) = "a"
        .HorizontalAlignment = xlRight
        .Parent.Shapes.AddLine(.Left, .Top, .Offset(2, 1).Left, .Offset(2, 1).Top).Line.ForeColor.RGB = 0
        .Offset(, 1).Resize(, 9) = b
        For i = 1 To 9
            With .Offset(, i).Resize(2)
                .HorizontalAlignment = xlCenter
                .Merge
            End With
        Next i
        .Offset(2).Resize(7) = a
        .Offset(2, 1).Resize(7, 9) = answer
        .Resize(9, 10).Borders.LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Resize(, 10).EntireColumn.AutoFit
    End With
    Columns(1).ColumnWidth = 4
End Sub


С уважением,
Aksima
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2013, 16:02
Привет! Вот еще темы с ответами:

Вычисление суммы по диапазону в VBA - VBA
Есть ли в Vba функция суммы по диапазону.Диапазон вычисляется в программе.На листе функцию задать не могу т.к. таблица создается программно...

Решение линейного уравнения в VBA - VBA
Вычислить значение f(x) f(x)=a2b-xba2+xb x=a2+a2b b=a2 -6c c = 4a-2 значение a - задать с клавиатуры. Можете помочь...

VBA Excel Вычисление суммы ряда по формуле - VBA
Разработать макро функцию с одним параметром “x", которая рассчитывает см рис. В функции запрещено использовать условный оператор...

Нахождение корней квадратного уравнения - VBA
y=ax^2+bx+c в exel VBA обьясните пожалуйста народ!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru