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

на VBASub Z1()Dim A, B, sum, i As IntegerA = InputBox("Введите первое число: ")B = InputBox("Введите второе число: ")For i = A To B sum = sum + iNext iMsgBox ("Сумма: " & sum)End SubSub Z2()Dim n, sum, i As Integern = InputBox("Введите число n: ")For i = 1 To n sum = sum + 1 / iNext iMsgBox ("Сумма ряда: " & sum)End Sub