Вывести на печать значение функции - VB
Формулировка задачи:
Доброе время суток, форум
Пожалуйста помогите написать программу, вот исходные данные
Вывести на печать значение функии z=sin(x/(x+2)), находящиеся в интервале (-0,4;0,8), для x, изменяющегося на отрезке [-1;15] с шагом 1,4
Заранее спасибо
Решение задачи: «Вывести на печать значение функции»
textual
Листинг программы
Option Explicit Dim a!, b!, h!, x!, y!, x1! Private Sub cmd1_Click() txt1 = "" a = Val(txtA.Text) b = Val(txtB.Text) h = Val(txtH.Text) For x = a To b Step h y = f(x) If -0.4 <= y And y <= 0.8 Then y = Format(y, "0.0000") x1 = Format(x, "0.0") txt1.Text = txt1.Text + "x = " + Str(x1) + " y = " + Str(y) + vbCrLf End If Next End Sub Private Function f(x As Single) As Single f = Sin(x / (x + 2)) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д