Цикл с предусловием - VB

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

Есть задание написать программу для формулы с отрезком "n" с циклом, сделал ее но кажется чего то не хватает, вот она

        Dim n, xN, xK, y, a, n1, nom As Double
 
        n = 12
        a = 3
        xN = 2
        xK = 3
        n1 = (xK - xN) / n
        nom = 0
        Do While xN <= xK
            nom = nom + 1
            y = 2 * xN
            'Cos((Sqrt(xN) + Sqrt(a) + 1) / (Sqrt(a * xN)))
            TextBox1.Text = TextBox1.Text & vbCrLf & nom & "  " & y
 
            xN = xN + n1
 
        Loop

Почему у меня не отражается что 2*3 ведь xN когда станет 3, оно еше будет соответствовать xK и значит должно выполнятся действие, или я че то не понял В итоге видим как она работает

Решение задачи: «Цикл с предусловием»

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

                            Dim n&, nom&
    Dim xN#, xK#, y#, a#, n1#
    n = 12: a = 3: xN = 2: xK = 3
    n1 = (xK - xN) / n
    nom = 0
    Do While xN <= xK
        nom = nom + 1
        y = 2 * xN
        TextBox1.Text = TextBox1.Text & vbCrLf & nom & vbTab & y
        n = n - 1
        xN = xK - n1 * n
    Loop
                        