Создание 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

Оцени полезность:

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