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

Узнай цену своей работы

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

Не так давно начал работать с VB (около полугода) решал не сложные задачи и уже стою на цикле с постусловием и тут возник вопрос?. Что я не знаю как перейти с столбца на столбец в форме запуска, то есть чтобы и в правой стороне после линии также отображалось продолжение решения. В спойлере указан скриншот:
Спойлер
Хотя этот вопрос и интересен, может можно решить как-то по другому эту задачу:

Дана последовательность чисел 5,10,15 и так далее; составить программу определяющую сколько слагаемых (какое количество) надо взять, чтобы получить сумму = или больше 400. Данную задачу надо решить 3 способами с помощью циклов- For...Next, цикла с предусловием и цикла с постусловием. Для каждого решение создать отдельную кнопку.

P.S. Моя программа была возможна бы и правильно будь их поменьше. Поскольку можно легко сочитать и кол-во и увидеть как она изменяется с помощью такого рода цикла. Однако в ваших правилах упоминается, что нельзя в 1 теме задавать более 1 вопроса, но они обе связаны... И 1 вопрос можно назвать моим способом решения. Хотя я может что-то и не так понял.. Жду ответа, выручайте. Заранее спасибо!

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

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.25 из 5
Похожие ответы