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

Узнай цену своей работы

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

Написать подпрограмму на VBA для вычисления для n=1...46 значений выражения ,записать на лист текст.документа MS Word.Есть код,но он не работает. Помогите ,где здесь ошибка?Только недавно начал изучать язык
Листинг программы
  1. Sub Summa()
  2. k = 1
  3. For s = 1 To 46 Step 1
  4. sum = sum + k ^ 3
  5. Documents(1).Paragraphs.Add Documents(1).Paragraphs(n + 1).Range
  6. Documents(1).Paragraphs(n + 1).Range.Text = str(n) & ": " & s + chr(13) + chr(10)
  7. Next s
  8. End Sub

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

textual
Листинг программы
  1. Sub Summa()
  2.   For s = 1 To 46
  3.     sum = sum + s ^ 3
  4.     ActiveDocument.Range.InsertAfter sum & vbCr
  5.   Next s
  6. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы