Нужно проверить код - VB

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

В кратце: Здравствуйте, составил программу но результат сомнительный

Private Sub Command1_Click()
a = Val(Text1)
h = 0.1
For x = 0.5 To 1 + h / 2 Step h
If x > 1 Then
y = Log(x + 1)
Else
If x <= 1 Then
y = Sin(Abs(a * y) ^ 1 / 2)
Else
End If
End If
List1.AddItem Format(y, "0.0") + " " + Format(x, "0.0")
Next x
End Sub

Решение задачи: «Нужно проверить код»

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

                            Private Sub Command1_Click()
a = 20.3 'Val(Text1)
h = 0.1
'For x = 0.5 To 1 + h / 2 Step h
For X = 0.5 To 2.000001 Step h
If X > 1 Then
  y = Log(X + 1)
Else
  'If X <= 1 Then
  'y = Sin(Abs(a * y) ^ 1 / 2) - почему y?
  y = Sin(Sqr(Abs(a * X))) ' ^ 1 / 2)
  'Else
  'End If
End If
List1.AddItem Format(y, "0.0000") + " " + Format(X, "0.0")
Next X
End Sub
                        