Табулирование функции - VB (59992)

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

Табулирование функции Выводит единицы в PictureBox. В чем может быть проблема?

Private Sub Command1_Click()
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 * (t ^ 2) + b * Sin(t) + 1)
If x = 0.1 Then y = a * t + b
If x > 0.1 Then y = Sqr(a * (t ^ 2) + b * Sin(t) + 1)
Picture1.Print Format(y, "0.0000")
Next x
End Sub

Решение задачи: «Табулирование функции»

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
                        