Сколько слагаемых нужно взять из последовательности, чтобы получить указанное число - VB

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

Не так давно начал работать с VB (около полугода) решал не сложные задачи и уже стою на цикле с постусловием и тут возник вопрос?. Что я не знаю как перейти с столбца на столбец в форме запуска, то есть чтобы и в правой стороне после линии также отображалось продолжение решения. В спойлере указан скриншот:
Кликните здесь для просмотра всего текста
Хотя этот вопрос и интересен, может можно решить как-то по другому эту задачу:Дана последовательность чисел 5,10,15 и так далее; составить программу определяющую сколько слагаемых (какое количество) надо взять, чтобы получить сумму = или больше 400. Данную задачу надо решить 3 способами с помощью циклов- For...Next, цикла с предусловием и цикла с постусловием. Для каждого решение создать отдельную кнопку. P.S. Моя программа была возможна бы и правильно будь их поменьше. Поскольку можно легко сочитать и кол-во и увидеть как она изменяется с помощью такого рода цикла. Однако в ваших правилах упоминается, что нельзя в 1 теме задавать более 1 вопроса, но они обе связаны... И 1 вопрос можно назвать моим способом решения. Хотя я может что-то и не так понял.. Жду ответа, выручайте. Заранее спасибо!

Код к задаче: «Сколько слагаемых нужно взять из последовательности, чтобы получить указанное число - VB»

textual
Sub bb()
Dim i&, s&, c&
For i = 5 To 1000 Step 5
    s = s + i
    c = c + 1
    If s >= 400 Then MsgBox "Слагаемых: " & c & vbLf & "Сумма: " & s: Exit Sub
Next
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ