Написать программу в vba (visual basic) 1. программа, позволяющая вычислить сумму чисел в интервале от а до в 2. программа, позволяющая вычислить сумму первых n чисел ряда 1+1/2+1/3+1/4+1/5 заранее большое !

На VBA

Sub Z1()
Dim A, B, sum, i As Integer
A = InputBox("Введите первое число: ")
B = InputBox("Введите второе число: ")
For i = A To B
 sum = sum + i
Next i
MsgBox ("Сумма: " & sum)
End Sub

Sub Z2()
Dim n, sum, i As Integer
n = InputBox("Введите число n: ")
For i = 1 To n
 sum = sum + 1 / i
Next i
MsgBox ("Сумма ряда: " & sum)
End Sub