Вычислить значение выражения - VB (59548)
Формулировка задачи:
Дело в том что только начал учиться на заочном и толком ничего не объяснили и дали сделать лабу. Кто может помочь подробно объяснить что и как делать. Дана формула (смотри вложение) далее надо задать начальные и конечные значения для переменных, шаг. Прошу прощения конечно за такие тупые вопросы но ни разу с подобным не сталкивался а толком не объяснили.
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
Private Sub Command1_Click()
Dim х_начальное As Double
Dim х_конечное As Double
Dim х_текущее As Double
Dim шаг As Double
Dim значение_функции As Double
х_начальное = InputBox("введите х_начальное", "ввод х_начальное", 0)
х_конечное = InputBox("введите х_конечное", "ввод х_конечное", 1)
шаг = InputBox("введите шаг", "ввод шаг", 0.1)
If шаг > 0 Then
For х_текущее = х_начальное To х_конечное Step шаг
значение_функции = х_текущее - х_текущее ^ 3 / 3 + х_текущее ^ 5 / 5
Print х_текущее; vbTab; Round(значение_функции, 4)
Next х_текущее
Else
MsgBox "некорректное значение шага!", vbExclamation
End If
End Sub