Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Написать подпрограмму для вычисления для n=1.46 з

Автор: sasha1212 16.10.2015, 21:20

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

Код


Sub Summa()

For k = 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(k) & ": " & sum + chr(13) + chr(10)
Next k
End Sub

Автор: Angel_666 18.10.2015, 23:23

Подскажу ты начал цикл
For s = 1 To 46 Step 1
и закончить ты должен так
Next s
у тебя переменная числовая s которая в цикле

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Napisat-podprogrammu-dlya-vychisleniya-dlya-n146-z-id56214011ae2015bb718b4567#findElement_E7045_5623ffafae2015e430047097_0

Автор: Angel_666 18.10.2015, 23:25

n что за переменная где она у тебя определяется???

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Napisat-podprogrammu-dlya-vychisleniya-dlya-n146-z-id56214011ae2015bb718b4567#findElement_E7045_56240029ae2015e4300470fc_0