Программа с циклом While (VBA)

[Olshevskiy]

Я понимаю,что программа проста до тупости,но всё же.
Задание : Дано целое положительное число А. Вычислите сумму последовательных целых чисел (S= 1 + 2 + 3 + ... ), пока она не превысит А. Вывести количество чисел k и сумму S.

Private Sub CommandButton1_Click()
'Объявление переменных
Dim A As Integer, S As Integer
'Ввод числа A
A = Val(Cells(3, 3).Value)
k = 0
S = 0
While S < A
S = S + k
k = k + 1
Wend
'Результат
Cells(6, 3).Value = Str(k)
Cells(7, 3).Value = Str(S)

End

Но почему-то получается так:

[Aleksandr H.]

Сообщение от Olshevskiy

Но почему-то получается так:

А как должно получиться? Так?

[Olshevskiy]

Должно получиться так

[Aleksandr H.]

а для 30, то k = 7, s = 28. если да, то попробуйте

While S+k < A

[Olshevskiy]

Без разницы , там может быть любое число - 20 или 30 , хоть 140.
Исправил,выдаёт такой результат.Вместо 5 стоит 6.

[Aleksandr H.]

Sub smb()
    A = [C3]
    s = 0
    k = 0
    Do While s + k < A
        k = k + 1
        s = s + k
    Loop
    [c6] = k
    [c7] = s
End Sub

[Olshevskiy]

Оперативно)Благодарствую!