Порядок выполнения работы. 1.Создать Excel-документ и сохранить его в бригадной папке под именем “Сумма чисел”

1.Создать Excel-документ и сохранить его в бригадной папке под именем “Сумма чисел”.

2.Запустить редактор VBA и вставить в рабочее поле форму проекта.

3.Задать имя проекта “Проба Do_Loop”.

4.Задать заголовок на форме “Суммирование ряда целых чисел от 1 до 5”.

5.Создать в форме командную кнопку с именем “CmdРешение” и надписью “Пуск”.

6.Создать в форме надпись (метку) “Сумма”, а под ней – текстовое поле для вывода результата (имя поля оставить стандартным TextBox1).

7.Создать следующий программный модуль:

Private Sub CmdРешение_Click()

Dim s As Integer, i As Integer

s=0 ‘Начальное значение суммы

i=1 ‘Начальное значение ряда чисел

Do While i<=5

s=s+i’Накопление суммы

i=i+1’Задание очередного числа

Loop

TextBox1.Text=s

End Sub

8.Сохранить разработанный проект и выполнить созданную программу.

9.Закрыть редактор VBA и подготовить для дальнейшей работы 3 копии исходного файла "Сумма чисел” под именами “While в конце”, ”Until в начале”, ”Until в конце”.

10.Открыть последовательно подготовленные копии исходного файла, выполнить необходимые изменения в тексте исходной программы, поставив служебные слова While и Until как указано в имени файла, выполнить измененные программы и сохранить их при успешном выполнении.

11.Создать два Excel-документа и сохранить их в бригадной папке под именами «Пробег дня 20 км» и «Сумма пробега 100 км».

12.Начать реализацию расчета двух показателей тренировок спортсмена-бегуна.

13. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

14. Ознакомиться с содержанием проекта (формы и программы) «Метод бисекции». Составить алгоритм, реализованный этой программой. Выполнить программу для исходных данных: начало интервала - -1, конец интервала – 5, точность – 0,01.

Программная реализация метода бисекции

Function F (Byval x As Single) As Single

F=(x–1)^2–1

End Function

Private Sub Расчёт (Byval xn As Single, Byval xk As Single, _└┘–

Byval e As Single, ByRef x As Variant)

Dim N As Integer, c As Single ‘Объявление локальных переменных_{___}

Dim mas () ‘Объявление динамического массива

If F(xn)*F(xk)>0 Then

X=”?”

MsgBox ”на данном интервале корня нет или четное кол-во корней.”_└┘–

+ Chr(13) _└┘ &_└┘ –

”Задайте интервал, содержащий один корень”

Exit Sub

End If

N=0

c=(xn+xk)/2

Do While xk-xn>℮ And Abs(F(c))> ℮

c=(xn+xk)/2

N=N+1

ReDim Preserve mas (1 Tо N)

mas (N) =C

If F(xn)*F(c)>0 Then xn=c Else xk=c

Loop

x=c

If N=0 Then

ReDim Preserve mas(1 To 1)

mas (1)=x

End If

List1∙List=mas

End Sub

Private Sub Cmd Решение _Click()

Dim a As Single, b As Single, eps As Single, _{└┘––___}

Корень As Variant

a=CSng(Text1.Text)

b=CSng(Text2.Text)

eps=CSng(Text3.Text)

Расчёт a, b, eps, корень

Text4.Text = корень

End Sub

Private Sub List1_Click()

Text5.Text=F(CSng(List1))

End Sub

Пояснения.

Данный проект является реализацией одного из численных методов поиска корня нелинейного уравнения.

Проект реализован структурированной программой. В главной (командной) подпрограмме с именем “CmdРешение” выполняется считывание с полей формы (ввод) основных исходных данных, вызов вспомогательной подпрограммы с именем “Расчет” и передача в поле формы (вывод) вычисленного значения корня.

В структуре программы содержатся описания

- функции с именем “F”, лежащей в основе уравнения;

- вспомогательной подпрограммы с именем “Расчет”;

- дополнительной подпрограммы с именем “List1”, передающей в поле формы значения функции при последовательных приближениях к корню.

Поиск по сайту: