Создание VBA-проекта вычисления функции
Формулировка задачи:
Создать VBA-проект вычисления функции Y=f(X), как суммы членов ряда с заданой точностью. Каждое слагаемое (член ряда) вычисляется по рекурентным соотношениям:
- функция и Р\С
Пример:
Буду признателен, за помощь или подсказки^_^
Решение задачи: «Создание VBA-проекта вычисления функции»
textual
Листинг программы
Private Sub ScrollBar1_Change() Label5.Caption = Val(ScrollBar1.Value) / 10 End Sub Private Sub CommandButton1_Click() Dim D As Single, Un As Single D = ComboBox1.Value x = Val(ScrollBar1.Value) / 10 U = 1 / x n = 1 S = U Do U = -((U * (x ^ 2)) / (2 * n * (2 * n - 1))) MsgBox U n = n + 1 S = S + U Loop Until Abs(U) < D Text1 = "Сумма = " & Format(S, "0.00000") TextBox1.Text = Text1 End Sub Private Sub ScrollBar1_Scroll() Label5.Caption = Val(ScrollBar1.Value) / 10 End Sub Private Sub UserForm_Activate() ComboBox1.AddItem "0,0000001" ComboBox1.AddItem "0,00001" ComboBox1.AddItem "0,0001" ComboBox1.AddItem "0,001" ComboBox1.AddItem "0,01" ComboBox1.AddItem "0,1" End Sub Private Sub CommandButton2_Click() End End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д