Question

СРОЧНО!!! 50 БАЛЛОВ!!! Нужно составить функции в excel в VISUAL BASIC
функция, вычисляющая сумму целых чисел от 1 до n с помощью For

функция, вычисляющая сумму целых чисел от 1 до n с помощью while

Answer 1

Ответ:

на 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

Объяснение: