Определить сумму чисел расположенных в диапазоне - VB

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

Прошу проверить правильно ли я сделал программу у меня что то не сходится. Задание разработать модуль для определения суммы чисел, расположенных в диапазоне от -10 до 7, которые делятся на 4.

Public Sub n3()
Dim s As Integer
For i = -9 To 7 Step 4
s = s + i
Next
MsgBox "s=" & s
End Sub

Решение задачи: «Определить сумму чисел расположенных в диапазоне»

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

                            Public Sub n4()
    Dim s As Integer
    For i = -8 To 4 Step 4
       s = s + i
    Next
    MsgBox "s=" & s
End Sub
                        

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

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

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