Question

Найдите сумму 1+1/2+1/3...+1/n(программа нужна для excel VBA)

Answer 1

Sub abc()

   Dim s As Double, n As Integer, i As Integer

   n = CInt(InputBox("Задайте значение n"))

   For i = 1 To n

       s = s + 1 / i

   Next i

   MsgBox "Сумма равна " & CStr(s)

End Sub

Answer 2

Вот пример программы на VBA для Excel, которая вычисляет сумму 1 + 1/2 + 1/3 + ... + 1/n:

vbaCopy code
Sub CalculateSum()
    Dim n As Integer
    Dim sum As Double
    Dim i As Integer
    
    n = InputBox("Введите значение n:")
    sum = 0
    
    For i = 1 To n
        sum = sum + 1 / i
    Next i
    
    MsgBox "Сумма равна: " & sum
End Sub

Эта программа открывает диалоговое окно, в которое можно ввести значение n. Затем она вычисляет сумму и выводит результат в сообщении MsgBox. Вы можете вставить этот код в модуль VBA в своей книге Excel и запустить макрос CalculateSum для выполнения вычислений.