Табулирование функции - VB (59992)
Формулировка задачи:
Табулирование функции
Выводит единицы в PictureBox. В чем может быть проблема?
Решение задачи: «Табулирование функции»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim m As Single, n As Single, k As Single, x As Single
Dim a As Single, b As Single, t As Single, y As Single
n = InputBox("Нижняя граница аргумента", , -1)
m = InputBox("Верхняя граница аргумента", , 1)
k = InputBox("Шаг аргумента", , 0.2)
a = InputBox("a=", , 2.5)
b = InputBox("b=", , 0.4)
For x = n To m Step k
'If x < 0.1 Then y = Sqr(a * (x ^ 2) + b * Sin(x) + 1)
'If x = 0.1 Then y = a * x + b
'If x > 0.1 Then y = Sqr(a * (x ^ 2) + b * Sin(x) + 1)
If x = 0.1 Then y = a * x + b Else y = Sqr(a * (x ^ 2) + b * Sin(x) + 1)
Picture1.Print Format(y, "0.0000")
Next x
End Sub