Написать подпрограмму для вычисления для 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д