Сумма целых чисел от A до B

Задача: Даны два числа введенных с клавиатуры. Найти сумму целых чисел в интервале от 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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *