Вложенные циклы (do loop until) и (while wend) - VB

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

Всем привет! Нужна помощь по вложенным циклам с пред- и постусловием. Нужно программу с (for...next) переделать под (do...loop until) и (while...wend)

Private Sub Command1_Click()
Dim a, an, ak, da, b, bn, bk, db, y As Single
an = 2: ak = 6
bn = 1: bk = 7
da = 0.5: db = 1
For a = an To ak Step da
For b = bn To bk Step db
y = a + b
Text3.Text = Text3.Text + Format(y, "0.00") + vbNewLine
Text2.Text = Text2.Text + Format(b, "0.00") + vbNewLine
Text1.Text = Text1.Text + Format(a, "0.00") + vbNewLine
Next b: Next a
End Sub

Решение задачи: «Вложенные циклы (do loop until) и (while wend)»

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

                            Private Sub Command1_Click()
    Dim a, an, ak, da, b, bn, bk, db, y As Single
    an = 2: ak = 6
    bn = 1: bk = 7
    da = 0.5: db = 1
    a = an
    Do Until a > ak
        b = bn
        While b <= bk
            y = a + b
            Text3.Text = Text3.Text + Format(y, "0.00") + vbNewLine
            Text2.Text = Text2.Text + Format(b, "0.00") + vbNewLine
            Text1.Text = Text1.Text + Format(a, "0.00") + vbNewLine
            b = b + db
        Wend
        a = a + da
    Loop
End Sub
                        