Записать значения выражения на лист текстового документа Word - VB
Формулировка задачи:
Нужно для n=1...46 найти значения выражения и записать их на лист документа.Программа работает,только выводит значения в порядка убывания,как сделать,чтоб выводись в порядке возрастания?
Листинг программы
- 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
Решение задачи: «Записать значения выражения на лист текстового документа Word»
textual
Листинг программы
- Sub Summa1()
- For k = 1 To 46 Step 1
- sum = sum + k ^ 3
- Documents(1).Paragraphs.Add.Range.Text = Str(k) & ": " & sum & Chr(13) + Chr(10)
- Next k
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
