Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным - VB (250627)

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

1. Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы:

Таблица функций Y(X): X Y ... ... ... ...

, 2. Модифицировать программу таким образом, чтобы значение функции вычислялось многократно до тех пор, пока очередное значение не превысит заданного числа zk (начальное значение аргумента и шаг оставить прежним, из задачи 1)

Решение задачи: «Составить программу многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim x As Single, y As Single
 
Private Sub cmd1_Click()
    txt1.Text = "Таблица функции Y(X)"
    txt1.Text = txt1.Text + vbCrLf + "   X               Y"
    
    For x = 1 To 2 Step 0.05
        y = (Sqr(x ^ 2 + Log(x)) - 1) * x
        txt1.Text = txt1.Text + vbCrLf + _
        Format(x, " 0.00") + "        " + Format(y, "0.00000")
    Next
End Sub
                        