Алгоритмизация и програмирование з. циклической структуры - VB

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

В последовательности 1/2; 2/1; 3/2… вычислить член последовательности, который отличается от предыдущего члена не больше, чем на 0.001. Помогите плиз завтра контроша((( я кое что набросал ну прога не правильный результат дает.

Private Sub Command2_Click()
Dim x, y, n, z1, z2, k As Single
n = 1
x = 1
y = 2
Do While k < 1 / 1000
z1 = x / y
x = n + 1
y = n * 1
z2 = x / y
k = z2 - z1
Loop
Print "Z2="; z2
End Sub

Что тут неверно или как вообще эту задачу решить?

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

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

                            Private Sub Command2_Click()
Dim x, y, z1, z2, k As Single
x = 1
y = 2
Do While k < 1 / 1000
z1 = x / y
y = x * 1
x = x + 1
z2 = x / y
k = z2 - z1
Loop
Print "Z2="; z2
End Sub
                        