Задача: Даны два числа введенных с клавиатуры. Найти сумму целых чисел в интервале от A до B.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub sum() num1 = InputBox("Введите А") num2 = InputBox("Введите B") If num2 <= num1 Then MsgBox "B должно быть больше A" Else summa = 0 For i = num1 To num2 summa = summa + i Next i MsgBox "Сумма целых числе равна: " & summa End If End Sub |