Определить номер последней прочитанной страницы.В чем ошибка? - VB

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

Татьяна, читая французский роман, подсчитала суму номеров прочитанных страниц. Обозначим эту сумму Q. Написать программу в Visual Basic 6.0, которая определяет номер последней прочитанной страницы

Private Sub Command1_Click()
Q = Val(Text1.Text)
i = 1
S = 1
Do While S >= Q
i = i + 1
S = S + i
Loop
Text2.Text = Str(i)
End Sub

Подскажите,пожалуйста, в чем ошибка? Выбивает на 1 больше , чем нужно

Решение задачи: «Определить номер последней прочитанной страницы.В чем ошибка?»

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

                            Sub Command1_Click()
MsgBox (-1 + Sqr(1 + 8 * InputBox("Сумма прочитанных страниц?"))) / 2 & " страниц прочитала Татьяна."
End Sub
                        

Оцени полезность:

6 голосов , оценка 4.5 из 5

Похожие ответы