Написать подпрограмму для вычисления для n=1.46 значений выражения,записать на лист текст.документа - VB

Формулировка задачи:

Написать подпрограмму на VBA для вычисления для n=1...46 значений выражения ,записать на лист текст.документа MS Word.Есть код,но он не работает. Помогите ,где здесь ошибка?Только недавно начал изучать язык

Sub Summa()
k = 1
For s = 1 To 46 Step 1
sum = sum + k ^ 3
Documents(1).Paragraphs.Add Documents(1).Paragraphs(n + 1).Range
Documents(1).Paragraphs(n + 1).Range.Text = str(n) & ": " & s + chr(13) + chr(10)
Next s
End Sub

Решение задачи: «Написать подпрограмму для вычисления для n=1.46 значений выражения,записать на лист текст.документа»

textual
                            Листинг программы 
                        

                            Sub Summa()
  For s = 1 To 46
    sum = sum + s ^ 3
    ActiveDocument.Range.InsertAfter sum & vbCr
  Next s
End Sub
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы