Сколько слагаемых нужно взять из последовательности, чтобы получить указанное число - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д