Как создать приложение, рассчитывающие значение функции y=x^3+3*x - VB

Узнай цену своей работы

Формулировка задачи:

задача такова, нужно создать приложение рассчитывающие значение функции y=x^3+3*x. условия такие все значения должны писаться в столбик, а последним значение должно быть именно 150

Решение задачи: «Как создать приложение, рассчитывающие значение функции y=x^3+3*x»

textual
Листинг программы 
Option Explicit
Dim y As Double
Dim x As Double
Dim a() As Double
Private Sub Command1_Click()
x = 1
Do While y < 150
y = Round(x ^ 3 + 3 * x, 1)
x = Round(x + 0.005, 3)
List1.AddItem x & vbTab & y
Loop
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 3.7 из 5
Похожие ответы